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本 书 是 人 工 智 能 领域 里 的 著名 教科 书 和 参考 书 ， 详 细 介绍 专家 系统 的 基本 原理 与 编程 技术 。 本 版 
在 融合 了 前 几 个 版 本 的 理论 知识 和 实际 应 用 的 基础 上 进行 了 改进 。 本 书 分 两 部 分 ， 第 一 部 分 介绍 专家 
系统 的 基本 理论 ， 并 对 人 工 智能 及 其 与 专家 系统 的 关系 做 了 总 体 论述 。 第 二 部 分 集中 介绍 应 用 技术 ， 
包括 CLIPS 专 家 系统 工具 和 新 的 面向 对 象 语言 COOL。 读 者 将 学 习 如 何 应 用 COOL 语 言 通过 定义 规则 
和 对 象 ， 开 发 一 个 完整 的 专家 系统 。 


本 书 特 点 
© 履 盖 面 广 ， 包 括 专家 系统 的 理论 知识 和 基于 规则 的 应 用 。 
e 内 容 全 面 更 新 ， 反 映 了 快速 发 展 的 专家 系统 领域 的 最 新 趋势 。 
e 书 中 每 一 章 的 最 后 都 设计 了 有 针对 性 的 习题 ， 帮 助 读者 加 强 对 知识 的 理解 。 





美国 休斯敦 大 学 明湖 分 校 计算 机 科学 系 教授 ， 作 为 NASA 的 
Joseph C. Giarratano 顾问 ， 他 参与 了 专家 系统 工具 CLIPS (包含 在 本 书 中 ) 的 开 
者 | 发 。 另外， 他 发 表 了 30 多 篇 研究 论文 并 车 有 10 多 本 书 。 


简 © 4a ey `, yee Shy fade 
G ry | ) | 于 1984 年 在 美国 得 克 萨 斯 A&M 大 学 获 计 算 机 科学 硕士 学 位 。 他 在 NASA 工 作 
a i ley 了 11 年 ， 并 为 CLIPS 专 家 系统 语言 开发 了 基于 规则 的 特性 部 分 。 目 前 他 居住 
在 得 克 萨 斯 州 ， 任 职 于 PeopleSoft 有 限 公 司 。 
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本 书 是 一 本 关于 专家 系统 的 著名 教科 书 , 全 面 介绍 了 专家 系统 诛 理 , 并 通过 CLIPS 详细 讨论 
了 其 实际 应 用 。 本 书 内 容 包括 : 知识 表示 、 推 理 方法 、 不 确定 性 推理 、 不 精确 推理 、CLIPS 、 高 级 
模式 匹配 、 模 块 化 设计 、 执 行 控 制 和 规则 效率 、 过 程 化 程序 设计 、 类 、 实例 和 消息 处 理 程序 等 。 

本 书 理论 与 实际 相 结合 ,内容 由 浅 人 深 , 为 了 解 和 设计 专家 系统 提供 了 理论 基础 和 编程 指 
导 。 随 书 光盘 包括 CLIPS 程序 、 源 代码 以 及 其 他 相关 文档 。 

本 书 适合 作为 计算 机 科学 相关 专业 本 科 生 和 研究 生 的 教材 , 也 可 供 相关 专业 人 员 参 考 ， 
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出 版 者 的 话 


文艺 复兴 以 降 ， 源 远 流 长 的 科学 精神 和 逐步 形成 的 学 术 规范 ， 使 西方 国家 在 自然 科学 的 
各 个 领域 取得 了 垄断 性 的 优势 ， 也 正 是 这 样 的 传统 ， 使 美国 在 信息 技术 发 展 的 六 十 多 年 间 名 
家 辈出 、 独 领 风 驭 。 在 商业 化 的 进程 中 ， 美 国 的 产业 界 与 教育 界 越 来 越 紧密 地 结合 ， 计 算 机 
学 科 中 的 许多 泰山 北斗 同时 身 处 科研 和 教学 的 最 前 线 ， 由 此 而 产生 的 经 典 科 学 著作 ， 不 仅 璧 
划 了 研究 的 范畴 ， 还 揭 更 了 学 术 的 源 变 ， 既 遵循 学 术 规范 ， 又 自 有 学 者 个 性 ， 其 价值 并 不 会 
因 年 月 的 流逝 而 减退 。 

AF, ESR BAKES, RETRO Ree, HEATHER H 
益 迫 切 。 这 对 计算 机 教育 界 和 出 版 界 都 既是 机 遇 ， 也 是 挑战 ; 而 专业 教材 的 建设 在 教育 战略 
上 显得 举足轻重 。 在 我 国信 息 技术 发 展 时 间 较 短 、 从 业 人 员 较 少 的 现状 下 ， 美 国 等 发 达 国家 
在 其 计算 机 科学 发 展 的 几 十 年 间 积淀 的 经 典 教材 仍 有 许多 值得 借鉴 之 处 。 因 此 ， 引 进 一 批 国 
外 优秀 计算 机 教材 将 对 我 国 计 算 机 教育 事业 的 发 展 起 积极 的 推动 作用 ， 也 是 与 世界 接轨 、 建 
设 真正 的 世界 一 流 大 学 的 必由之路 。 

机 械 工 业 出 版 社 华章 图 文 信息 有 限 公司 较 早 意识 到 “出 版 要 为 教育 服务 ”。 自 1998 年 开 
始 ， 华 章 公 司 就 将 工作 重点 放 在 了 六 选 、 移 译 国 外 优秀 教材 上 。 经 过 几 年 的 不 懈 努 力 ， 我 们 
与 Prentice Hall, Addison-Wesley, McGraw-Hill, Morgan Kaufmann 等 世界 著名 出 版 公司 建 
立 了 良好 的 合作 关系 ， 从 它们 现 有 的 数 百 种 教材 中 甄选 出 Tanenbaum, Stroustrup, 
Kernighan, Jim Gray 等 大 师 名 家 的 一 批 经 典 作 品 ， 以 “计算 机 科学 丛书 ”为 总 称 出 版 ， 供 
读者 学 习 、 研 究 及 废 藏 。 大 理 石 纹理 的 封面 ， 也 正体 现 了 这 套 丛 书 的 品位 和 格调 。 

“计算 机 科学 丛书 ”的 出 版 工作 得 到 了 国内 外 学 者 的 里 力 训 助 ， 国 内 的 专家 不 仅 提供 了 
中 肯 的 选 题 指导 ， 还 不 辞 劳苦 地 担任 了 翻译 和 审 校 的 工作 ; 而 原 书 的 作者 也 相当 关注 其 作品 
在 中 国 的 传播 ， 有 的 还 专程 为 其 书 的 中 译本 作 序 。 迄 今 , “计算 机 科学 丛书” 已 经 出 版 了 近 
百 个 品种 ， 这 些 书 籍 在 读者 中 树立 了 良好 的 口碑 ， 并 被 许多 高 校 采用 为 正式 教材 和 参考 书 
籍 ， 为 进一步 推广 与 发 展 打下 了 坚实 的 基础 。 

随 着 学 科 建 设 的 初步 完善 和 教材 改革 的 逐渐 深化 ， 教 育 界 对 国外 计算 机 教材 的 需求 和 应 
用 都 步 人 一 个 新 的 阶段 。 为 此 ， 华 章 公司 将 加 大 引进 教材 的 力度 ， 在 “华章 教育 ”的 总 规划 
之 下 出 版 三 个 系列 的 计算 机 教材 除 “ 计 算 机 科学 丛书 ”之 外 ， 对 影印 版 的 教材 ， 则 单独 开 
辟 出 “经 典 原版 书库 ";， 同时， 引进 全 美 通行 的 教学 辅导 书 “Schaum's Outlines” 系列 组 成 
“全 美 经 典 学 习 指导 系列 ”"。 为 了 保证 这 三 套 从 书 的 权威 性 ， 同时 也 为 了 更 好 地 为 学 校 和 老师 
位 服务， 华章 公司 聘请 了 中 国 科学 院 、 北 京 大 学 、 清 华 大 学 、 国 防 科技 大 学 、 复旦 大 学 、 上 
海 交 通 大 学 、 南 京 大 学 、 浙 江 大 学 、 中 国 科技 大 学 、 哈 尔 滨 工业 大 学 、 西安 交通 大 学 、 中 国 





WV 


人 民 大 学 、 北 京 航 空 航天 大 学 、 北 京 邮 电大 学 、 中 山大 学 、 解 放 军 理工 大 学 、 郑 州 大 学 、 潮 
北 工学 院 、 中 国 国家 信息 安全 测评 认证 中 心 等 国内 重点 大 学 和 科研 机 构 在 计算 机 的 各 个 领域 
的 著名 学 者 组 成 “专家 指导 委员 会 ”， 为 我 们 提供 选 题 意 见 和 出 版 监督 。 

这 三 套 从 书 是 响应 教育 部 提出 的 使 用 外 版 教材 的 号 召 ， 为 国内 高 校 的 计算 机 及 相关 专业 
的 教学 度 身 订 造 的 。 其 中 许多 教材 均 已 为 M. I. T., Stanford, U.C. Berkeley, C. M. U. 
等 世界 名 牌 大 学 所 采用 。 不 仅 涵 盖 了 程序 设计 、 数 据 结 构 、 操 作 系统 、 计 算 机 体系 结构 、 数 
据 库 、 编 译 原 理 、 软 件 工程 、 图 形 学 、 通 信和 与 网 络 、 离 散 数学 等 国内 大 学 计算 机 专业 普遍 开 
设 的 核心 课程 ， 而 且 各 具 特 色 一 一 有 的 出 自 语言 设计 者 之 手 、 有 的 历经 三 十 年 而 不 衰 、 有 的 
已 被 全 世界 的 几 百 所 高 校 采用 。 在 这 些 圆 熟 通 博 的 名 师 大 作 的 指引 之 下 ， 读 者 必 将 在 计算 机 
科学 的 宫殿 中 由 登 堂 而 人 室 。 

权威 的 作者 、 经 典 的 教材 、 一 流 的 译 者 、 严 格 的 审 校 、 精 细 的 编辑 ， 这 些 因素 使 我 们 的 
图 书 有 了 质量 的 保证 ， 但 我 们 的 目标 是 尽善尽美 ， 而 反馈 的 意见 正 是 我 们 达到 这 一 终极 目标 
的 重要 帮助 。 教 材 的 出 版 只 是 我 们 的 后 续 服 务 的 起 点 。 华 章 公 司 欢迎 老师 和 读者 对 我 们 的 工 
作 提 出 建议 或 给 予 指正 ， 我 们 的 联系 方法 如 下 : 


电子 邮件 ; hzjsj@hzbook .com 

联系 电话 : (010) 68995264 

联系 地 址 : 北京 市 西城 区 百 万 庄 南 街 1 号 
邮政 编码 : 100037 
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译 者 & 


人 工 智 能 学 科 诞生 于 20 世纪 50 年 代 ， 引 在 研究 如 何 利 用 计算 机 等 工具 来 模仿 人 类 的 智 
能 行为 。 自 诞生 以 来 ， 人 工 智 能 就 一 直 是 一 个 富有 挑战 性 的 领域 ， 它 以 其 诱 人 的 目标 和 略 显 
神秘 的 面纱 ， 吸 引 了 人 类 持久 和 狂热 的 追求 ， 在 众多 的 人 工 智能 领域 中 ， 专 家 系统 是 一 个 最 
富有 代表 性 和 最 重要 的 应 用 分 支 。 

人 工 智能 和 专家 系统 曾 取 得 过 许多 令 人 有 瞩目 的 成 果 ， 也 走 过 不 少 弯 路 、 经 历 过 不 少 挫 
折 。 近 几 年 来 ， 随 着 计算 机 网 络 、 通 信 等 技术 的 发 展 ， 特 别 是 Internet 和 World Wide Web 
的 普及 ， 人 工 智能 与 专家 系统 的 研究 再 度 活跃 起 来 ， 并 正 向 更 为 广泛 的 领域 发 展 。 

本 书 是 一 本 关于 专家 系统 的 著名 教科 书 。 本 书 全 面 介绍 了 专家 系统 原理 ， 并 通过 CLIPS 
详细 讨论 了 其 实际 应 用 。 内 容 涉 及 知识 表示 、 推 理 方法 、 不 确定 性 推理 、 不 精确 推理 以 及 开 
发 专家 系统 的 一 系列 实用 技术 。 本 书 还 附送 1 张 包 括 CLIPS 程序 、 源 代码 以 及 其 他 相关 文 
档 的 光盘 。 

本 书 理论 与 实际 相 结 合 ， 内 容 由 浅 入 深 ,适用 于 计算 机 科学 、 管 理 信息 系统 、 软 件 工程 
专业 高 年 级 本 科 生 和 研究 生 及 相关 专业 人 员 ， 为 其 了 解 和 设计 专家 系统 提供 了 理论 基础 和 编 
程 指导 。 

本 书 前 言及 第 1~5 章 、 附 录 A~C 由 印鉴 翻译 ， 第 6、10 一 12 章 及 附录 DD 一 G 由 陈 忆 群 
翻译 ， 第 7 一 9 章 由 刘 星 成 翻译 ， 全 书 由 印鉴 组 织 、 校 阅 和 统 稿 ， 中 山大 学 胡 鞋 同志 也 给 予 
很 多 帮助 ， 参 加 了 文字 校对 工作 。 

限于 译 者 水 平 ， 书 中 朴 漏 之 处 ， 敬 请 读者 批评 指正 。 





译 者 简介 


印鉴 : B, 博士 ， 教 授 ， 博 士 生 导师 ，1968 年 生 。1994 年 毕业 于 武汉 大 学 计算 机 科学 系 ， 
获 工学 博士 学 位 。 现 任 中 山大 学 信息 科学 与 技术 学 院 计 算 机 科学 系 副 主任 和 计算 机 基础 教育 
中 心 主任 。1993 年 ， 曾 在 美国 洛杉矶 ALPHA OMEGA 公司 从 事 合 作 科研 。1997 年 、2000 
年 曾 在 香港 浸 会 大 学 电脑 学 系 作 访问 学 者 。2005 年 在 美国 东 华 盛 顿 大 学 (Eastern Washing- 
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如 何 有 效 地 使 用 本 书 


本 书 第 4 版 是 对 这 本 全 球 使 用 的 专家 系统 与 CLIPS 专家 系统 工具 编程 课本 的 一 个 主要 修订 本 。 自 从 20 
世纪 80 年 代 进入 商业 应 用 以 来 ， 专 家 系统 得 到 了 巨大 的 发 展 。 今 天 ， 专 家 系统 已 被 广泛 地 运用 到 商业 、 科 
学 、 工 程 、 农 业 、 制 造 、 医 药 、 视 频 游戏 以 及 实质 上 其 他 每 一 个 领域 。 事 实 上 ， 现 在 已 很 难 举 出 一 个 没有 
应 用 专家 系统 的 领域 。 

本 书 主要 介绍 专家 系统 原理 与 编程 ， 适 用 于 计算 机 科学 、 管 理 信息 系统 、 软 件 工程 专业 以 及 其 他 一 些 
对 专家 系统 有 兴趣 的 高 年 级 本 科 生 或 研究 生 。 一 些 新 出 现 的 术语 用 黑体 字 表 示 并 给 出 了 解释 。 书 中 还 给 出 
了 大 量 的 实例 和 参考 资料 帮助 理解 并 指导 更 深层 次 的 阅读 。 在 新 的 第 4 版 中 ， 许 多 新 的 软件 工具 的 免费 和 
试用 版 本 可 以 作为 额外 练习 的 基础 和 学 习 材料 ， 它 们 的 链接 都 在 附录 G 中 。 

对 新 材料 的 讨论 一 般 从 其 历史 背景 开始 ， 这 样 便于 学 生理 解 为 什么 要 开发 它们 ， 而 不 仅仅 是 学 会 如 何 
使 用 它们 。 教 育 的 核心 应 聚焦 在 为 什么 要 创造 新 技术 来 解决 问题 ， 而 不 是 简单 地 教授 如 何 去 应 用 。 

本 书 分 为 两 部 分 : 第 1~6 章 介绍 原理 ， 第 7 一 12 章 介绍 CLIPS 专家 系统 工具 编程 。 第 一 部 分 包括 了 专 
家 系统 所 涉及 的 理论 以 及 专家 系统 如 何 适合 计算 机 科学 范畴 。 

学 过 人 工 智 能 的 有 关 课 程 会 对 学 习 本 书 帮 助 较 大 ， 在 本 书 中 ， 对 与 专家 系统 有 关 的 一 些 人 工 智 能 知识 
也 在 第 1 章 作 了 一 个 自我 完备 的 介绍 。 单 独 一 章 自然 无 法 涵盖 人 工 智 能 的 所 有 内 容 ， 但 已 足够 概观 人 工 智 
能 以 及 专家 系统 所 扮演 的 角色 。 本 书 第 一 部 分 包括 了 逻辑 、 概 率 、 数 据 结 构 、 人 工 智 能 概念 和 其 他 形成 专 
家 系统 理论 的 内 容 。 

我 们 尝试 通过 对 专家 系统 理论 的 介绍 来 使 学 生 学 会 对 专家 系统 技术 的 运用 。 这 里 ， 要 强调 一 点 ， 专 家 
系统 和 其 他 工具 一 样 ， 既 有 优点 ， 也 有 缺点 。 在 理论 部 分 还 介绍 了 专家 系统 与 其 他 编程 方法 的 关系 ， 如 传 
统 程序 设计 。 另 外 ， 也 希望 对 理论 的 介绍 使 学 生 能 够 阅读 有 关 专 家 系统 的 现行 研究 文章 ， 但 由 于 专家 系统 
涉及 面 很 广 ， 对 初学 者 来 说 ， 仅 赁 了 解 就 阅读 是 非常 困难 的 。 

本 书 第 二 部 分 介绍 了 CLIPS 专家 系统 工具 。 这 部 分 是 专家 系统 编程 的 一 个 实例 ， 可 以 补充 和 并 释 第 一 
部 分 的 理论 知识 。 有 了 第 一 部 分 的 理论 知识 后 ， 编 程 部 分 只 要 具有 高 级 语言 的 编程 经 验 就 可 以 看 懂 。 学 生 
可 以 通过 CLIPS 这 个 功能 强大 的 现代 专家 系统 工具 来 了 解 专家 系统 开发 中 的 一 些 实际 问题 。 

在 本 版 中 讨论 的 一 个 新 特性 是 COOL， 即 CLIPS 面向 对 象 语言 。COOL 允许 完全 使 用 对 象 ， 或 者 使 用 
规则 和 对 象 的 混合 方法 来 开发 专家 系统 。 面 向 对 象 方法 的 优点 在 于 知识 集 可 以 方便 地 组 织 成 比 单独 规则 大 
的 集合 。 所 有 对 象 的 一 般 性 质 (例如 多 继承 ) 使 得 用 更 多 专门 知识 来 扩展 对 和 象 变 得 更 加 容易 ， 而 不 用 像 纯 
规则 系统 一 样 ， 每 次 都 从 头 开始 编写 。 本 版 还 讨论 了 CLIPS 的 过 程 化 编程 功能 ， 包 括 全 局 变量 、 函 数 和 类 
属 函 数 。 

CLIPS 最 初 是 由 Johnson 太空 中 心 NASA 开发 的 。Gary Riley 是 开发 基于 规则 组 件 的 首席 程序 员 。 
Joseph C. Giarratano 作为 顾问 编写 了 NASA CLIPS 的 官方 用 户 指南 。 现 在 ，CLIPS 已 用 于 开发 政府 、 商 业 、 
工业 以 及 事实 上 任何 部 门 的 实际 项 目 。 使 用 因特网 的 任何 搜索 引擎 都 能 返回 成 千 上 万 个 链接 指向 使 用 
CLIPS 编写 的 专家 系统 和 采用 了 CLIPS 的 世界 上 很 多 大 学 的 课程 。 

由 于 CLIPS 代码 是 可 移植 的 ， 它 实质 上 可 运行 在 任何 支持 ANSI C 或 C++ 编译 器 的 机 器 或 操作 系统 
上 。 本 书 附带 的 光盘 内 容 包 括 : CLIPS 在 Windows 以 及 MacOS 上 的 可 执行 程序 ; CLIPS 参考 手册 和 CLIPS 
用 户 指南 ; 文档 齐备 的 完整 CLIPS C 源 程序 代码 。 

有 些 专家 系统 课程 包含 一 个 课程 设计 ， 课程 设 计 是 提高 专家 系统 开发 技能 的 一 个 极 好 方法 。 学 生 们 常 
常 选择 完成 一 个 具有 50 一 150 条 规则 的 小 型 专家 系统 作为 一 学 期 的 课程 设计 。 基 于 这 本 书 已 开发 了 成 千 上 
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万 个 课程 设计 ， 包 括 医 疗 、 汽 车 维修 、 的 士 调度 、 个 人 安排 、 计 算 机 网 络 管理 、 天 气 预报 、 股 市 预测 、 购 
物 咨询 等 。 使 用 因特网 搜索 引擎 将 得 到 由 世界 各 地 的 大 学 开发 的 很 多 课程 设计 与 资源 ， 如 PowerPoint 幻灯 
片 、 提 纲 和 作业 等 。 

本 书 作为 一 学 期 的 课程 可 安排 如 下 : 

1. 第 1 章 简要 介绍 专家 系统 ， 习 题 1、2、3 可 作为 练习 。 

2. 第 7 一 10 章 介 绍 CLIPS 基本 编程 。 这 部 分 内 容 对 学 生 重新 编写 第 1 章 习 题 2 的 程序 ， 并 比较 专家 系 
统 方法 与 最 初 在 第 1 章 中 所 使 用 的 语言 方法 非常 有 帮助 。 通 过 比较 ， 可 使 学 生发 现 基 于 规则 的 语言 如 
CLIPS, LISP, PROLOG 与 在 习题 2 中 使 用 的 其 他 语言 的 差别 。 可 选 地 ， 讲 授 完 第 10 章 后 ,教师 可 返回 到 
理论 章节 。 如 果 学 生 具 有 较 强 的 逻辑 和 PROLOG 知识 ， 可 以 跳 过 第 2、3 章 的 多 数 内 容 。 对 没有 和 只 有 一 
点 人 工 智 能 课程 中 关于 LISP 简单 知识 的 学 生 ， 如 果 希 望 重 点 加 强 逻 辑 和 专家 系统 基础 理论 ， 则 将 从 第 2、 
3 章 得 到 很 大 提高 。 如 果 学 生 具 有 较 强 的 概率 和 统计 知识 ， 则 从 第 4 章 开始 到 第 4.11 节 可 以 跳 过 。 

3. 第 4 章 和 第 5 章 讨 论 对 不 确定 性 的 处 理 。 这 些 非 常 重要 ， 因 为 人 类 始终 都 在 处 理 不 确定 性 ， 如 果 没 
有 它 ， 专 家 系统 并 不 比 简单 的 判定 树 强 多 少 。 不 确定 性 包括 概率 和 贝 叶 斯 推理 、 确 定性 因子 、Dempster- 
Shafer 理论 以 及 模糊 理论 。 如 果 学 生 想 阅读 相关 方面 的 现行 文章 或 从 事 此 领域 研究 工作 ， 他 们 必须 掌握 好 
这 些 内 容 。 

4. 第 6 章 讨 论 专家 系统 中 的 知识 获取 和 软件 工程 问题 ， 这 部 分 内 容 主要 针对 那些 想 开 发 大 型 专家 系统 
的 学 生 。 在 布置 课程 设计 前 ， 可 以 不 学 此 章 。 事 实 上 ， 可 以 最 后 讲述 此 章 ， 以 使 学 生 更 好 地 熟悉 建造 一 个 
高 质量 专家 系统 的 所 有 因素 。 


补充 资源 


在 出 版 社 的 网 站 http: //www.course.com 上 可 以 下 载 具有 单 号 习题 和 部 分 双 号 习题 解答 的 手册 ， 并 有 
完整 的 PowerPoint 幻灯 片 。 另 外 ， 很 多 软件 和 其 他 资源 的 网 址 在 本 书 中 也 随处 可 见 。 这 些 资源 经 过 了 得 
A, 学生 使 用 软件 可 以 对 习题 的 关键 部 分 进行 实验 ， 而 不 只 是 书面 求解 ， 这 样 能 更 好 地 理解 书 中 的 内 容 ， 
例如 逻辑 和 概率 。 大 量 有 关 人 工 智能 、 逻 辑 、 概 率 、 贝 叶 斯 推理 、 模 糊 逻 辑 和 其 他 主题 的 资源 也 都 包含 在 
内 ， 以 便 学 生 对 国际 上 人 工 智 能 和 专家 系统 群体 有 更 广泛 的 了 解 。( 需 要 教 辅 资源 的 教师 ， 可 填写 书后 的 教 
学 支持 服务 表 ， 并 与 原 出 版 商 联系 。 编辑 注 ) 


感谢 对 CLIPS 有 贡献 者 


感谢 所 有 对 CLIPS 的 成 功 开 发 有 贡献 者 。 作 为 一 个 大 的 项 目 ，CLIPS 凝 从 了 许多 人 的 心血 。 其 中 , € 
RA: Robert Savely，JSC 高 级 软件 技术 首席 科学 家 ， 是 他 构思 出 此 项 目 ， 并 自始至终 给 予 指导 与 支持 ; 
Chris Culbert， 软 件 技术 分 部 主管 ， 是 他 负责 此 项 目 并 起 草 了 CLIPS 参考 手册 初稿 ;Gary Riley， 设 计 开发 
T CLIPS 中 基于 规则 部 分 ， 合 写 了 CLIPS 参考 手册 、CLIPS 结构 手册 ， 开 发 了 Macintosh 上 的 CLIPS 界面 ， 
并 维护 CLIPS 的 官方 网 站 http: /Awww. ghg. net/clips/CLIPS. html; Brian Donnell， 开 发 了 CLIPS 中 面向 对 象 
的 语言 (COOL)， 合 写 了 CLIPS 参考 手册 、CLIPS 结构 手册 ; Bebe Ly， 开 发 了 CLIPS 的 X Window 界面 ; 
Chris Ortiz， 开 发 了 CLIPS 的 Windows 3.1 界面 ，Houston-clear Lake 大 学 的 Joseph Giarratano 博士 ， 编 写 了 
NASA 的 每 个 CLIPS 版 本 的 官方 用 户 指南 ; 特别 是 ，Frank Lopez， 编 写 了 CLIPS 的 最 初 原型 版 本 。 


致谢 


在 写作 本 书 的 过 程 中 ,很 多 人 给 予 了 大 量 的 帮助 ， 包 括 : Ted Leibfried, Jeanne Leslie, Mac Umphrey, 
Terry Feagin, Dennis Murphy, Jenna Giarratano 和 Melissa Giarratano。 我 们 还 要 感谢 反馈 了 信息 的 第 4 版 审 
稿 者 : Akron 大 学 的 Chien-Chung Chan; Ohio 大 学 的 Constantine Vassiliadis; 加 拿 大 Concordia 大 学 的 Jenny 
Scott; Villanova 大 学 的 Anthony Zygmont。 

我 们 还 要 感谢 许多 从 1985 年 CLIPS 第 一 版 发 布 起 ，20 年 来 一 直 致 力 于 提高 CLIPS 的 人 们 。 通 过 提供 
免费 的 CLIPS 完整 源 代码 ， 开 源 组 织 极 有 效 地 提高 了 CLIPS 的 功能 及 影响 力 。 这 一 切 在 我 们 1985 年 刚 开 
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È CLIPS 时 是 不 可 想像 的 。 那 时 候 专家 系统 只 是 新 的 未 经 试验 的 技术 ， 没 有 人 知道 它 能 否 经 得 起 时 间 的 考 
验 。 在 过 去 的 20 年 中 ，CLIPS 从 NASA 的 最 初 谨慎 开 始 ， 发 展 成 为 在 世界 各 地 有 成 千 上 万 的 人 们 使 用 ， 并 
证 明了 各 个 领域 都 从 中 受益 。 我 们 特别 要 感谢 这 些 扩 展 了 CLIPS 功能 和 能 力 的 开发 者 ， 是 他 们 使 CLIPS 一 
开始 在 NASA 中 仅 作 为 人 工 智 能 技术 简单 试验 的 充满 风险 的 小 项 目 发 展 成 为 世界 范围 的 潮流 。 

Ernest Friedman-Hill， 对 专家 系统 的 推广 做 出 了 重要 的 贡献 ， 他 独自 开发 了 具有 新 特性 的 CLIPS Java 
版 本 ， 称 为 JESS。 他 还 写 了 一 本 关于 JESS 的 书 : (Jess in Action: Rule Based Systems in Java》， 里 面 有 很 多 
有 趣 的 项 目 。 

JESS: (http: //herzberg.ca.sandia.gov/jess’) 和 KAPICLIPS 1.0: (http://www. cs. umbe. edu/kqml/software/ 
kapiclips.shuml) 更 加 完备 了 CLIPS. 


CLIPS 的 其 他 后 代 版 本 


PerlCLIPS (http: //www. discomsys. com/ ~ mps/dnld/clips-stuff/) 
Protege: CLIPS 的 一 个 本 体 和 基于 知识 的 编辑 器 
(http: //protege. stanford. edu/index. html ) 
Python-CLIPS interface (http: /Awww. yodanet . com/portal/Products/download/clips-python. tar. gz/view) 
TixClips: 使 用 Tix 的 CLIPS 专家 系统 集成 开发 环境 (http: /Aix. sourceford.net/) 
TclClips (www. eolas.net/tel/clips), SWIG (http: //www.swig.org/) wrapping 
(http: //starship. python. net /crew/mike/TixClips/) 
WebCLIPS: 作为 CGI 应 用 程序 的 CLIPS 实现 。 
WebCLIPS: (http: /Awww.monmouth.com/~ km2580/wchome. htm) 
wxCLIPS， 一 个 使 用 图 形 用 户 界面 的 开发 知识 库 系统 应 用 程序 的 环境 : 
(http: //www .anthemion. co. uk/wxclips/wxclips2 . htm) 
ZClips 0.1 允许 Zope 和 CLIPS XE.: 
(http: //www. zope.org/Members/raystream/zZCLIPSO. 1) 
CLIPS/R2, Production Systems Technologies 公司 的 : 
(http: //www.pst.com/clips _ 12. htm) 


可 获取 的 其 他 CLIPS 版 本 ， 如 加 拿 大 国家 研究 委员 会 的 FuzzyClips: 
(http: //ai. iit. nre.ca/IR _ public/fuzzy /fuzzyClips/fuzzyCLIPSIndex. html) 


Togai InfraLogic 公司 的 FuzzyClips: 
Chttp: /Avww. ortech-engr . com/fuzzy /fzyclips. html) 


AdaCLIPS: (http://www. telepath. com/~ dennison/Ted/AdaClips/AdaClips. html) 
CLIPS 与 Perl 的 扩展 : (http : //cape. sourceforge. net/) 


许多 其 他 基于 CLIPS 的 工具 版 本 列 在 : 
(http: //www. ghg. net/clips/OtherWeb. html) 
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第 1 章 专家 系统 导论 


1.1 概述 


本 章 是 对 专家 系统 的 一 个 概略 介绍 ， 主 要 介绍 专家 系统 的 基本 原理 。 在 本 章 中 ， 将 讨论 专家 系统 
的 优 缺 点 ， 描 述 专家 系统 应 用 的 适用 范围 ， 并 讨论 专家 系统 与 其 他 编程 方法 的 关系 。 


1.2 专家 系统 的 定义 


20 世纪 人 们 提出 了 很 多 种 人 工 智能 (artificial intelligence, AD 的 定义 ， 其 中 一 个 最 早 的 定义 之 一 
“使 计算 机 像 人 类 一 样 思考 ”至 今 仍 在 使 用 。 许 多 科幻 电影 验证 了 这 一 观点 。 事 实 上 这 种 定义 是 基于 英 
国 数学 家 与 计算 机 先驱 Alan Turing 的 著名 的 “图 灵 测 试 "。 在 这 个 测试 中 ,一 个 人 试图 判断 与 之 通过 
远程 键盘 交谈 的 对 象 是 人 类 还 是 计算 机 程序 。 如 果 计 算 机 能 在 测试 中 顺利 回答 问题 而 不 被 发 现 是 计算 
机 ， 则 说 明 计算 机 已 经 具有 了 强人 工 智 能 (Strong AI)。“ 强 人 工 智能 ”被 人 们 定义 为 基于 严格 逻辑 基 
础 ， 以 区 别 于 基于 人 工 神经 网 络 、 遗 传 算法 和 进化 方法 的 弱 人 工 智 能 (Weak Al)。 在 今天 ， 很 明显 没 
有 一 种 人 工 智 能 技术 能 成 功 解决 所 有 问题 ， 而 一 些 组 合 的 方法 会 更 有 效 一 点 。 

第 一 个 通过 图 灵 测 试 的 程序 是 Steven Weizenbaum 在 1967 年 写 的 心理 测试 程序 。 从 那 以 后 ， 人 类 
知识 和 交互 的 研究 得 到 很 大 发 展 ， 并 举办 了 一 个 名 为 Loebner 的 奖金 高 达 100 000 美元 的 竞赛 
(http: //www. loebner.net/Prizef/loebner-prize.html) 。 当 然 ， 今 天 的 交互 多 数 用 的 是 声音 识别 而 不 是 旧 
式 的 电 传 打 字 机 或 键盘 。 如 果 你 曾 与 人 通过 电话 交谈 但 对 方 不 理解 你 的 话 ， 也 许 该 问 问 他 是 和 否 通过 了 
图 灵 测 试 。 

从 20 世纪 60 年 代 开 始 ， 专 家 系统 就 作为 一 种 研究 工具 而 被 开发 ， 作 为 人 工 智 能 的 一 个 特定 部 分 ， 
它 可 以 成 功 解决 某 些 领域 如 医疗 诊断 的 复杂 问题 。 但 建立 一 个 通用 的 人 工 智能 程序 解决 一 切 问 题 难以 
实现 ， 因 为 缺乏 问题 领域 的 专家 知识 ， 比 如 医疗 诊断 。 自 从 20 世纪 80 年 代 早 期 ， 专 家 系统 展现 了 其 
商业 用 途 之 后 ， 就 越 来 越 受到 欢迎 并 得 到 发 展 。 今 天 ， 专 家 系统 已 用 于 商业 、 科 学 、 工 程 、 制 造 和 其 
他 许多 具有 良 定义 问题 的 领域 。 实 际 上 ， 如 果 你 在 为 使 用 普通 的 支付 手段 还 是 使 用 信用 卡 而 犹 称 ， 专 
家 系统 可 以 帮 你 做 出 决定 。 

前 面 提 到 的 术语 “和 良 定 义 ”会 在 后 面 章 节 中 做 更 多 详细 讨论 。 其 最 基本 的 含义 是 如 果 人 类 专家 可 
以 确定 解决 一 个 问题 的 推理 步 又， 那么 专家 系统 也 可 以 做 到 。 如 果 不 能 确定 推理 ， 则 可 能 只 得 靠 运气 。 

作为 一 个 反例 ， 很 多 人 尝试 写 一 个 专家 系统 来 预测 股票 市 场 。 事 实 上 ， 华 尔 街 一 直 在 使 用 这 些 系 
统 。 然 而 ， 如 果 考 察 股 票 的 变化 ， 你 不 能 发 现 明显 的 趋势 ， 而 专家 系统 也 不 比 开发 它 的 人 强 多 少 。 这 
些 系统 的 最 大 好 处 是 ， 在 现实 交易 中 ， 一 毫秒 的 延迟 就 会 带 来 损失 ， 竞 争 者 的 专家 系统 可 以 和 你 一 样 
注意 到 股票 趋势 或 下 单 买卖 上 亿美 元 价值 的 股票 ， 但 可 以 比 人 类 快 得 多 。 但 它 不 一 定 工 作 得 好 ，1987 
年 声名 狼藉 的 股市 崩盘 导致 了 一 系列 新 的 限制 规定 的 出 台 ， 这 些 规定 限制 计算 机 不 能 仪 为 获得 几 百 元 
的 收益 而 销售 上 亿 支 股票 ， 因 为 这 类 行为 可 能 导致 股市 崩溃 。 

专家 系统 在 人 工 智 能 技术 领域 有 非常 成 功 的 应 用 。 许 多 方法 使 其 他 技术 与 专家 系统 结合 ， 例 如 遗 
传 算法 、 人 工 神经 网 络 等 。 使 用 了 人 工 智 能 的 系统 通常 称 为 智能 系统 (intelligent system) 或 自动 系统 
(Hopgood 01). 

一 般 ， 解 决 任何 问题 的 第 一 步 是 先 划 定 要 解决 问题 的 范围 或 领域 (domain)。 不 论 是 传统 编程 领域 
还 是 人 工 智 能 领域 这 一 点 都 是 相同 的 。 然 而 ， 出 于 以 前 对 人 工 智 能 感到 神秘 的 缘故 ， 人 们 往往 相信 这 
样 一 句 过 时 的 说 法 :“ 所 谓 人 工 智能 问题 就 是 该 问题 还 没有 解决 "。 另 外 一 种 流行 的 定义 则 是 “人 工 智 
能 就 是 使 计算 机 像 他 们 在 电影 中 所 做 的 一 样 行动 起 来 "。 在 20 世纪 70 年 代 ， 当 人 工 智能 仍 处 在 研究 阶 
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段 时 ， 这 种 想法 就 已 经 广为人知 了 。 但 是 , 今天 人 工 智 能 已 解决 了 许多 现实 问题 ， 并 且 已 应 用 到 商业 
领域 。 在 线 杂 志 PCAI.com 以 及 会 议 如 AAAI (http: //aaii.org/conferences/conferences.htm) 还 有 其 他 
许多 书籍 (Luger 02) 都 有 相关 内 容 讨论 ， 更 详细 的 资料 可 参看 附录 Go 

在 更 详细 地 讨论 人 工 智 能 之 前 ， 让 我 们 回头 看 看 它 是 如 何 符合 生命 模式 的 。 什 么 是 生命 ? 对 于 生 
命 有 很 多 不 同 的 定义 (Adami 98)， 从 生理 学 、 新 陈 代谢 、 基 因 和 热力 学 等 不 同 角度 。 哪 一 个 是 正确 的 
呢 ? 这 要 看 你 对 生命 的 哪个 角度 感 兴趣 。 也 许 最 简单 的 是 Shakespeare 的 定义 “生命 就 是 由 傻瓜 讲述 的 
充满 声音 、 愤 既而 没有 任何 含义 的 故事 。” 

从 计算 机 的 角度 来 说 ， 生 命 就 如 同 软件 一 样 。 在 Adami 的 书 所 附带 的 光盘 中 包含 一 个 软件 ， 用 户 
可 以 创造 人 工 的 生命 模式 进行 体验 。 也 有 抽象 定义 ， 如 电影 《黑客 帝国 》(Matrix) 中 描述 的 一 样 ， 代 
表 人 类 的 “ 行 ”生活 在 巨大 的 计算 机 程序 中 。 其 他 数字 计算 机 中 的 生命 描述 可 以 在 Helmreich 的 书 
(Helmreich 98) 中 找到 ， 这 本 书 详细 描述 了 计算 机 人 工 生命 的 生理 学 甚至 精神 细节 。 

从 生理 学 的 角度 看 ， 我 们 不 再 局 限于 从 计算 机 系统 中 寻求 人 工 生命 模式 。 从 20 世纪 90 年 代 开始 ， 
已 经 可 以 成 功 地 克隆 动物 ， 例 如 绵羊 多 利 (Dolly) ， 公 司 像 销售 母 牛 一 样 为 失去 宠物 的 主人 克隆 他 们 的 
宠物 。 但 是 通过 克隆 得 到 一 个 活 的 生物 的 复制 品 只 是 “改进 ”生命 的 第 一 步 。 例 如 ， 有 一 些 研究 人 员 
正在 尝试 创造 带 有 萤火虫 基因 的 兔子 ， 以 便 使 它 能 在 黑暗 中 生存 。 这 种 形式 的 生命 模式 在 自然 界 没有 
祖先 ， 是 真正 的 人 工 生命 。 同 时 ， 因 为 这 些 生物 是 智能 的 ， 它 们 也 就 具有 了 人 工 智 能 ， 尽 管 这 并 不 是 
用 计算 机 的 形式 来 表现 的 。 

人 工 生命 的 扩展 新 领域 是 创造 进化 系统 (creative evolutionary system)， 在 这 个 系统 里 人 工 生命 系 
统 可 以 根据 进化 压力 改变 自己 的 程序 (Bentley 02)。 许 多 不 同 的 技术 ， 例 如 遗传 算法 等 在 实际 应 用 中 
得 到 描述 ， 例 如 音乐 、 艺 术 、 电 路 设计 、 建 筑 、 战 斗 机 设计 等 。 同 样 ，Bentley 书 中 所 附带 的 光盘 允许 
用 户 体 验 创造 进化 系统 。 注 意 这 本 书 是 关于 这 些 系统 的 计算 机 表现 ， 而 不 是 未 来 的 新 的 设计 者 们 所 梦 
想 的 生物 生命 模式 ， 例 如 一 只 成 年 兔子 在 黑暗 中 照顾 小 孩 ， 或 者 一 只 比 人 更 能 胜任 飞机 驾驶 的 猴子 。 

de Silva 的 书 给 出 了 智能 的 另 一 个 定义 : “智能 就 是 学 习 、 获 取 、 适 应 、 修 正和 扩展 知识 以 便 解决 
问题 的 能 力 ”(de Silva 00) 。 从 这 个 角度 来 说 ， 我 们 的 目标 是 通过 机 器 人 、 工 厂 、 工 具 和 其 他 硬件 建立 
能 和 现实 世界 交互 的 智能 机 器 。 其 中 的 挑战 是 把 现实 世界 中 复杂 的 人 类 思维 融合 到 机 器 中 ， 例 如 歧义 、 
含糊 、 一 般 、 不 精确 、 不 确定 、 模 糊 、 信 任 以 及 似 然 等 。 在 这 本 书 第 4 章 和 第 $ 章 中 将 有 更 多 的 讨论 。 
注意 前 面 这 句 话 本 身 就 带 有 歧义 。“ 这 本 书 ” 是 指 de Silva 的 书 还 是 本 书 ? 作为 高 级 生物 ， 我 们 早已 习 
惯 于 处 理 这 些 问 题 ， 但 是 对 于 机 器 和 计算 机 来 说 ， 如 果 只 使 用 传统 的 逻辑 将 会 遇 到 很 多 困扰 。 

一 个 更 具 挑 战 性 的 问题 是 开发 具有 人 工 智能 同时 具有 意识 的 系统 。 关 于 人 脑 我 们 已 经 了 解 了 很 多 
(Cotterill 98) ， 但 我 们 仍然 不 清楚 意识 体现 在 哪个 部 位 ， 或 者 说 ， 是 什么 让 你 具有 了 自己 的 特性 。 但 是 
随 着 新 的 工具 例如 功能 磁性 共振 图 像 (functional magnetic resonance imaging, IMRI) 的 使 用 ， 大 脑 可 动 
态 映像 以 查 出 本 能 反应 时 是 激发 了 哪个 部 位 。 当 然 ， 如 果 我 们 使 用 人 造 克隆 动物 模型 ， 那 么 我 们 早已 
成 功 了 ， 因 为 克隆 的 编 羊 、 猫 当然 是 具有 意识 的 。 然 而 ， 我 们 还 是 不 知道 如 何 使 一 台 机 器 具有 意识 。 
更 重要 的 是 ， 当 我 们 看 过 《终结 者 》(Terminator) 或 者 Matrix 等 电影 以 后 ， 想 要 一 个 智能 机 器 的 想法 
可 能 不 是 一 个 好 的 念头 。 毕 竟 ， 无 论 是 人 类 还 是 机 器 ， 都 不 喜欢 被 毁灭 掉 。 

尽管 经 典 的 人 工 智能 问题 ， 如 : 自然 语言 翻译 、 语 音 理解 、 视 觉 识别 等 仍 未 完美 解决 ， 但 如 果 限 
制 问题 的 范围 则 可 能 会 找到 一 个 有 效 的 解决 方法 。 例 如 ， 如 果 限 定 句 子 形式 为 主 、 谓 、 宾 ， 那 么 建立 
简单 的 自然 语言 系统 就 不 会 很 困难 。 目 前 ， 这 类 系统 在 为 众多 软件 产品 ， 如 数据 库 系 统 和 电子 表格 系 
统 等 提供 友好 的 用 户 界面 上 做 得 很 成 功 。 与 说 话 人 无 关 的 声音 识别 系统 在 今天 也 有 了 很 高 的 精确 率 ， 
不 像 以 前 的 系统 需要 先 用 某 个 用 户 的 声音 做 训练 学 习 。 与 专家 系统 结合 ， 这 些 智 能 系统 一 旦 通过 了 图 
灵 测 试 ， 将 最 终 取 代 许 多 电话 中 心 以 记录 用 户 订单 (Luger 02)。 l 

目前 已 有 很 多 商用 的 声音 识别 系统 可 以 在 标准 的 个 人 电脑 上 运行 ， 并 且 其 价格 也 合理 。 有 很 多 声 
音 识别 系统 也 广泛 应 用 在 汽车 的 免 提 电话 中 ， 只 要 问题 领域 限定 在 阿拉 伯 数 字 而 不 是 所 有 单词 ， 它 就 
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有 很 好 的 识别 能 力 。 事 实 上 ， 目 前 流行 的 计算 机 文字 冒险 游戏 中 的 解析 器 展现 了 一 种 令 人 惊讶 的 自然 
语言 理解 能 力 ， 而 这 种 能 力 正 是 局 域 网 联网 多 人 游戏 所 必需 的 ， 因 为 输入 文字 会 使 游戏 速度 减 慢 。 

专家 系统 已 与 类 似 人 类 模式 识别 及 自动 决策 等 系统 的 数据 库 相 结合 ， 以 便 通 过 数据 挖掘 (data 
mining) 来 进行 知识 发 现 ， 这 导致 了 智能 数据 库 (intelligent database) 的 产生 (Bramer 99 )。 一 个 重要 
的 应 用 是 在 飞机 安全 系统 中 ， 使 用 可 疑 人 士 的 人 脸 识别 作为 专家 系统 的 前 端 ， 以 决定 是 否 需 要 向 上 级 
汇报 。 

另 一 个 令 人 激动 的 人 工 智能 领域 和 人 工 发 现 系 统 (discovery system) 有 关 。 这 是 一 些 能 够 真正 发 
现 某 问题 领域 中 的 知识 的 计算 机 程序 。 例 如 ，Automatic Mathematician (AM) 程序 发 现 新 的 数学 定理 ， 
并 再 次 发 现 了 已 经 由 人 类 归纳 出 来 的 如 素数 的 特点 等 知识 。BACON 3 系统 发 现 新 的 科学 知识 ， 例 如 开 
普 勒 第 三 行星 运动 定理 的 一 个 版 本 ， 在 Wagman 的 书 中 汇总 了 许多 发 现 系统 (Wagman 99). 

尽管 人 工 智 能 最 初 在 20 世纪 是 作为 计算 机 科学 的 一 个 分 支 被 提出 来 的 ， 它 现在 已 经 成 为 一 个 应 用 
于 许多 领域 ， 如 计算 机 科学 、 心 理学 、 生 物 学 、 神 经 系统 科学 等 的 基础 学 科 。 事 实 上 ， 越 来 越 多 的 大 
学 设置 了 人 工 智能 学 位 。 

人 工 智能 有 许多 备 受 关注 的 领域 ， 如 图 1.1 所 示 。 专 家 系统 (expert system) 就 是 对 传统 人 工 智 能 
问题 中 智能 程序 设计 的 一 个 非常 成 功 的 近似 解决 方法 。 专 家 系统 早期 先导 者 之 一 ， 斯 坦 福 大 学 的 Ed- 
ward Feigenbaum 教授 ， 把 专家 系统 定义 为 “一 种 智能 的 计算 机 程序 ， 它 运用 知识 和 推理 过 程 来 解决 只 
有 专家 才能 解决 的 复杂 问题 ”。 也 就 是 说 ， 专 家 系统 是 一 种 模拟 (emulate) 专家 决策 能 力 的 计算 机 系 
统 ,“ 模 拟 ” 一 词 表明 专家 系统 要 在 所 有 方面 都 做 得 像 专家 一 样 。 模 拟 比 模仿 (Simulation) 更 进一步 ， 
模仿 只 要 求 在 某 些 方面 做 得 像 真正 的 事物 一 样 。 





图 1.1 人 入 工 智能 的 一 些 领域 


虽然 我 们 仍 未 找到 一 种 通用 的 解决 问题 的 方法 ， 然 而 专家 系统 在 其 限定 的 领域 里 做 得 很 成 功 。 你 
可 以 从 附录 G 列 出 的 书籍 、 期 刊 、 会 以 、 产 品 以 及 专家 系统 在 商业 、 医 学 、 科 学 、 工 程 等 领域 的 应 用 
例子 看 到 专家 系统 的 成 功 应 用 。 

专家 系统 大 量 利用 专业 知识 以 解决 只 有 专家 (expert) 才能 解决 的 问题 。 专 家 是 一 个 在 特定 领域 里 
具有 专门 知识 的 人 。 亦 即 ， 专 家 具有 不 为 大 多 数 人 所 知 或 所 利用 的 专门 技能 或 知识 。 专 家 能 够 解决 大 
多 数 人 所 不 能 解决 或 是 不 能 高 效 地 (而 不 是 低劣 的 ) 解决 的 问题 。 在 最 初 发 展 起 来 时 ， 专 家 系统 特 指 
包含 专家 知识 。 然 而 “专家 系统 ”这 一 术语 在 今天 适用 于 任何 应 用 专家 系统 技术 的 系统 。 专 家 系统 技 
术 包 括 专门 的 专家 系统 语言 、 程 序 和 为 了 辅助 专家 系统 开发 和 执行 而 设计 的 硬件 。 

专家 系统 中 的 知识 可 以 是 专门 知识 或 是 从 书籍 、 杂 志 、 有 学 问 的 人 处 可 获得 的 知识 。 从 这 个 角度 
上 说 ， 知 识 也 代表 比 更 罕见 的 专家 知识 更 低层 次 的 内 容 。 专 家 系统 、 基 于 知识 的 系统 (knowledge- 
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based system) 和 基于 知识 的 专家 系统 (knowledge-based expert system) 这 些 术 语 经 常 同 义 地 使 用 。 多 数 
人 使 用 “专家 系统 ”这 一 术语 仅仅 是 因为 它 较 短 ， 即 使 在 他 们 的 专家 系统 中 可 能 仅 有 一 般 的 知识 而 没 
有 专门 知识 。 

图 1.2 描述 了 一 个 基于 知识 的 专家 系统 的 基本 概念 。 用 户 提供 事实 或 其 他 信息 给 专家 系统 ， 相 应 
地 收 到 专家 建议 或 专门 知识 (expertise)。 专 家 系统 内 部 包括 两 个 主要 部 分 : 知识 库 和 推理 机 。 知 识 库 
包含 有 为 让 推理 机 (inference engine) 得 出 结论 而 使 用 的 知识 。 这 些 结论 是 专家 系统 对 用 户 询问 的 
响应 。 

基于 知识 的 系统 还 被 设计 成 为 专家 的 智能 助手 。 由 于 开发 上 的 优势 ， 这 些 智能 助手 是 用 专家 系统 
技术 来 设计 的 。 随 着 添加 进 智 能 助手 的 知识 越 来 越 多 ， 智 能 助手 越 来 越 像 一 位 专家 。 因 此 开发 智能 助 
手 将 会 成 为 设计 一 个 完整 的 专家 系统 过 程 中 的 里 程 碑 。 此 外 ， 还 可 以 通过 加 快 解决 问题 的 速度 使 专家 
空 出 更 多 时 间 。 智 能 家 教 是 人 工 智能 的 另 一 个 应 用 。 与 原来 的 计算 机 辅导 系统 不 同 ， 新 的 系统 可 提供 
上 下 文 相关 的 指导 (Giarratano 91a). 

与 通用 问题 求解 技术 方面 的 知识 不 同 ， 专 家 知识 是 指 特定 问题 域 (problem domain) 方面 的 知识 。 
特定 问题 域 是 专家 能 成 功 解决 问题 的 领域 ,例如 医学 、 经 济 、 科 学 或 者 工程 学 等 。 正 如 人 类 专家 一 样 ， 
专家 系统 是 针对 某 一 个 问题 域 而 设计 的 。 比 如 ， 你 通常 不 会 期 望 一 个 棋 师 具 有 医学 方面 的 专门 知识 。 
在 一 个 问题 域 的 专门 知识 不 会 自动 地 转向 另 一 个 问题 域 。 

解决 特定 问题 的 专家 知识 称 为 专家 的 知识 域 (knowledge domain)。 例 如 ， 诊 断 传染 疾病 的 内 科 专 
家 系统 会 有 许多 关于 传染 疾病 症状 方面 的 知识 。 在 这 种 情况 下 ,知识 域 是 医学 ， 包 括 疾病 、 症 状 、 治 
疗 方法 等 方面 的 知识 。 图 1.3 说 明了 问题 域 和 知识 域 之 间 的 关系 。 图 中 知识 域 完全 包括 在 问题 域 之 内 ， 
知识 域 之 外 的 部 分 是 一 个 对 问题 域内 问题 没有 任何 知识 的 区 域 。 





专家 系统 
图 1.2 专家 系统 的 基本 作用 图 1.3 问题 域 和 知识 域 的 关系 


一 个 传染 病 诊 断 专家 系统 一 般 不 具有 医学 的 其 他 分 支 的 知识 ， 例 如 外 科 或 小 儿科 。 尽 管 专家 系统 
关于 传染 病 的 知识 与 一 个 人 类 专家 相当 或 更 多 ， 但 如 果 没 有 使 用 其 他 领域 的 知识 编程 ， 那 么 专家 系统 
就 不 知道 其 他 领域 的 任何 知识 。 

专家 系统 在 它 所 具有 的 知识 中 推导 或 推理 (inferences) 的 方式 与 人 类 专家 推断 解决 问题 的 方式 是 
一 样 的 。 即 是 ,给 出 一 些 事件 ， 一 个 逻辑 ， 然 后 推 表 1.1 对 技术 的 不 同 视 角 
理 出 结论 。 比 如 ， 如 果 你 的 爱人 已 经 一 个 月 没有 跟 





你 说 话 了 ， 你 会 推断 他 《或 地 ) 没有 什么 事 值得 说 。 § 
然而 ， 这 只 是 几 个 可 能 推断 中 的 一 个 。 DRK Serene 
对 任何 一 种 技术 都 有 各 种 方法 去 衡量 它 的 用 处 。 ara aia a 
结 了 在 一 E i 
表 1.1 总 结 了 在 一 工程 技术 中 参与 者 的 不 同 观点 ， ues 。。 它 全 节省 我 的 时 间 渤 是 金钱? 


在 表 中 ,技术 人 员 可 以 是 工程 师 或 软件 设计 者 ， 工 
程 技术 可 以 是 硬件 或 是 软件 。 无 论 解决 什么 难题 ， 
这 些 问题 都 得 回答 ， 和 否则 这 一 技术 就 不 能 成 功 地 被 
使 用 。 像 其 他 任何 工具 一 样 ， 专 家 系统 有 其 适宜 或 
不 适宜 的 应 用 领域 。 第 6 章 将 详细 讨论 如 何 选择 合适 的 应 用 。 


商业 人 员 我 能 减少 劳动 力 ? 
证 券 经 纪 人 ” 它 会 如 何 影响 季度 利润 ? 
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1.3 专家 系统 的 优点 


专家 系统 有 许多 吸引 人 的 特征 : 
适应 性 强 。 专 家 知识 在 任何 合适 的 计算 机 硬件 上 都 是 可 利用 的 ， 实 际 上 ， 专 家 系统 是 专家 知识 
的 集成 体 。 
成 本 低 。 提 供给 用 户 的 专家 知识 成 本 非常 低 。 
危险 性 低 。 专 家 系统 可 用 于 那些 可 能 对 人 有 害 的 环境 。 
持久 性 。 专 家 知识 是 持久 的 ， 不 像 人 类 专家 那样 会 退休 ， 或 者 死亡 ， 专 家 系统 的 知识 会 无 限 地 
持续 。 
。 复合 专家 知识 。 复 合 专家 知识 可 以 做 到 在 白天 或 晚上 的 任何 时 候 同时 、 持 续 地 解决 某 一 问题 。 
由 几 个 专家 复合 起 来 的 知识 ， 其 水 平 可 能 会 超过 一 个 单独 的 专家 。 
可 靠 性 强 。 专 家 系统 可 增强 正确 决策 的 信心 ， 这 是 通过 向 专家 提供 一 个 辅助 观点 而 得 到 的 。 此 
外 ,专家 系统 还 可 协调 多 个 专家 的 不 同意 见 。 不 过 ， 如 果 专 家 系统 是 由 某 一 个 专家 编程 设计 
的 ， 那 这 个 方法 就 不 能 奏效 。 如 果 专 家 没有 犯错 误 的 话 ， 专 家 系统 应 该 始终 与 专家 意见 一 致 。 
但 是 ， 如 果 专 家 很 累 或 有 压力 就 可 能 会 犯错 误 。 
解释 、 说 明 。 专 家 系统 能 明确 、 详 细 地 解释 导出 结论 的 推理 过 程 。 一 个 人 可 能 会 太 厌烦 、 不 愿 
意 或 是 没有 能 力 去 这 样 做 ， 但 明确 、 详 细 的 解释 可 增强 得 出 正确 决策 的 信心 。 
响应 快 。 迅 速 或 实时 的 响应 对 某 些 应 用 来 讲 是 必要 的 。 依 靠 所 使 用 的 软件 或 硬件 ， 专 家 系统 可 
以 比 专家 反应 得 更 迅速 或 更 有 效 。 某 些 突 发 的 情况 需要 响应 得 比 专家 迅速 ， 因 此 实时 的 专家 系 
统 是 一 个 好 的 选择 。 
始终 稳定 、 理 智和 完整 的 响应 。 实 时 和 突 发 情况 下 ， 当 专家 由 于 压力 或 疲劳 而 不 能 高 效 地 解决 
问题 时 ， 这 一 点 是 至 关 重 要 的 。 
智能 家 教 。 专 家 系统 可 以 作为 一 个 智能 家 教 ， 让 学 生 执 行 实例 程序 ， 解 释 系统 的 推理 。 
智能 数据 库 。 专 家 系统 能 以 智能 的 方式 来 存 取 一 个 数据 库 ， 例 如 数据 挖掘。 

开发 专家 系统 的 过 程 也 会 有 一 个 间接 的 益处 ， 由 于 专家 知识 必须 以 精确 的 形式 输入 到 计算 机 中 ， 
所 以 知识 要 被 明确 地 了 解 而 不 是 被 隐 含 于 专家 的 脑海 中 ， 这 样 ， 就 必须 对 知识 进行 正确 性 、 一 致 性 和 
完整 性 检查 ， 这 就 提高 了 知识 的 质量 (专家 可 不 理解 这 一 点 )。 


1.4 专家 系统 的 基本 概念 


专家 系统 的 知识 可 以 用 多 种 方式 描述 。 描 述 知 识 的 一 个 常用 方法 是 用 IF…THEN 型 的 规则 
(rules), i M0: 


IF 灯 是 红 的 THEN 停止 


如 果 灯 是 红 的 这 一 事件 出 现 ， 就 与 模式 “ 灯 是 红 的 ” 相 匹 配 ， 规 则 得 到 满足 ， 执 行 “ 停 止 ”行为 。 虽 
然 这 是 一 个 非常 简单 的 例子 ， 但 许多 重要 的 专家 系统 都 是 通过 规则 来 表达 专家 知识 而 建立 的 。 实 际 上 ， 
开发 专家 系统 的 这 种 基于 知识 的 方法 已 经 完全 取代 了 20 世纪 50 一 60 年 代 早 期 人 工 智能 的 方法 ， 那 时 
人 们 致力 于 使 用 复杂 的 不 依靠 知识 的 推理 技术 。 某 些 专 家 系统 工具 ， 如 CLIPS， 人 允许 使 用 对 象 
(objects) ， 知 识 可 以 封装 在 规则 和 对 象 中 。 规 则 可 以 与 对 象 及 事件 相 匹配 ， 而 对 象 则 可 以 独立 于 规则 
而 操作 。 

自在 如 何 配置 计算 机 系统 方面 已 胜 过 单个 人 类 专家 的 专家 系统 第 一 次 成 功 应 用 于 Digital Equipment 
公司 的 XOON/R1 系统 以 来 ， 专 家 系统 已 不 止 一 次 显示 出 它们 的 价值 和 可 用 性 。 许 多 针对 专门 任务 的 
小 型 系统 也 有 几 百 条 的 规则 ， 虽 然 这 些小 型 系统 的 运作 可 能 达 不 到 专家 的 水 平 ， 但 它们 也 充分 利用 了 
专家 系统 技术 来 处 理 那些 知识 密集 型 任务 。 对 这 些小 型 系统 而 言 ， 其 知识 主要 来 源 于 书 、 期 刊 或 其 他 
公共 资料 。 
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engineer) 长 期 地 与 人 类 专家 进行 沟通 而 获得 。 建 立 一 个 专家 系统 的 过 程 称 为 知识 工程 (knowledge en- 
gineering) ， 这 个 过 程 是 由 知识 工程 师 来 完成 的 ， 知 识 工 程 师 从 专家 或 其 他 来 源 获取 知识 并 把 它们 编码 

图 1.4 描述 了 开发 专家 系统 的 一 般 步 又。 知识 工 程 师 首 先 通 过 与 
专家 进行 对 话 而 获取 专家 知识 ， 这 个 阶段 与 传统 程序 设计 中 系统 设计 
库 中 ， 随 后 专家 评估 系统 并 返回 意见 给 知识 工程 师 。 这 个 过 程 一 直 循 
环 ， 直 到 系统 的 性 能 为 专家 所 满意 为 止 。 
edge-based system) 这 一 表述 是 较 好 的 术 诸 。 央 为 它 可 被 用 于 专家 系 明确 表达 的 知识 
统 和 基于 知识 的 系统 的 创建 。 然 而 ， 正 如 “人 工 智 能 ”这 一 术语 一 

的 知识 库 
平 ， 人 们 也 往往 使 用 “专家 系统 ”这 一 术语 。 

一 般 来 说 ， 专 家 系统 设计 不 同 于 传统 的 程序 设计 ， 因 为 其 问题 通 
是 一 种 理想 的 解决 方案 ， 因 为 它 会 在 有 限 的 时 间 内 给 出 答案 (Berlinski 00)。 然 而 ， 算 法 也 许 不 能 令 人 
满意 而 问题 的 复杂 性 也 会 增加 ， 所 以 需要 使 用 人 工 智 能 。 在 没有 任何 可 利用 的 算法 帮助 我 们 获得 最 佳 
的 推理 过 程 是 可 以 检查 的 。 解 释 机 (explanation facility) 是 复杂 专家 系统 的 一 个 必要 部 分 ， 实际 上 ， 复 
杂 的 解释 机 可 设计 为 允许 用 户 深 入 探究 What if 类 问题 ， 称 为 假设 的 推理 (hypothetical reasoning) 

有 些 专家 系统 甚至 允许 系统 通过 规则 归纳 (rule induction) 从 例子 中 学 习 规 则 ， 在 归纳 时 ， 系 统 从 
数据 中 生成 规则 。 把 专家 知识 整理 成 规则 并 非 易 事 ， 特 别 是 当 专 家 知识 还 未 被 系统 化 时 。 在 一 个 专家 
中 的 知识 ,否则 这 些 问题 都 难以 解决 。 

人 类 专家 也 知道 自己 知识 的 局 限 性 ， 当 问题 达到 他 们 的 未 知 界限 (limits of ignorance) 时 ， 他 们 会 
问题 的 话 ， 即 使 它们 处 理 的 数据 不 精确 、 不 完整 ， 专 家 系统 也 会 以 同样 的 确信 来 给 出 建议 。 专 家 系统 
的 建议 与 专家 的 建议 一 样 ， 在 其 不 知晓 的 范围 内 其 合理 性 应 降低 。 

地 理解 系统 中 隐 含 的 原因 和 结果 。 用 基于 经 验 和 启发 性 的 浅 (shallow) 知识 来 设计 专家 系统 比 用 基于 
对 象 的 基本 结构 、 功 能 和 行为 的 深 (deep) 知识 要 容易 得 多 。 例 如 ， 设 计 一 个 针对 头痛 开 阿 司 匹 林 药 
统 容 易 得 多 。 一 个 人 体 机 能 模型 的 程序 设计 工作 量 非常 之 大 ， 即 使 是 成 功 了 ， 由 于 系统 要 处 理 全 部 的 
言 息 ， 系 统 的 响应 时 间 也 可 能 会 很 慢 。 

于 希腊 ， 意 味 着 “探索 ”。 启 发 性 解决 方法 不 能 保证 用 同样 的 算法 能 取得 成 功 。 启 发 性 知识 是 一 种 从 实 
践 中 获得 的 经 验 性 知识 ， 它 对 问题 的 求解 可 起 帮助 作用 ， 但 不 能 保证 一 定 有 效 。 不 过 ， 在 许多 领域 ， 
花费 或 时 间 的 限制 ， 使 得 该 方法 不 能 实际 应 用 。 启 发 性 知识 能 够 提供 有 价值 的 捷径 ， 可 以 帮助 减少 时 
DRAE 


与 此 相反 ， 一 个 典型 的 专家 系统 主要 依赖 于 没有 写 下 的 知识 ， 这 主要 通过 知识 工程 师 (knowledge 
到 专家 系统 中 。 
人 员 与 用 户 讨论 系统 需求 相 类 似 。 然 后 知识 工程 师 将 知识 编码 到 知识 
对 于 采用 了 基于 知识 技术 的 应 用 而 言 ， 基 于 知识 的 系统 (knowl 
样 ， 现 今 凡 涉及 到 专家 系统 和 知识 系统 ， 即 便 是 知识 未 达到 专家 水 
党 没有 算法 去 求解 而 是 依靠 推理 来 获得 一 个 合理 的 解决 方法 . 算法 。 四 1 4 < 家 系统 的 开发 
方法 时 ， 一 个 合理 的 方法 就 是 最 好 的 。 因 为 专家 系统 依赖 于 推理 ， 它 必须 能 够 解释 这 个 过 程 ， 所 以 它 
问题 。 
系统 中 ， 专 家 知识 可 能 会 存在 不 一 致 性 、 模 糊 性 、 重 复 性 或 其 他 问题 ， 除 非 可 以 形式 地 表示 专家 系统 
给 建议 打上 一 定 折扣 。 人 类 专家 也 知道 何 时 “打破 规则 "。 如 果 专 家 系统 没有 专门 设计 来 解决 不 确定 性 
现今 许多 专家 系统 的 一 个 不 足 是 缺乏 因果 知识 (causal knowledge), ， 也 就 是 说 专家 系统 并 不 能 真正 
方 的 专家 系统 比 设计 个 关于 人 体 所 有 基本 的 生物 化 学 、 生 理学 、 动 物 学 、 神 经 医学 等 知识 的 专家 系 
启发 性 知识 (heuristic knowledge) 是 “ 浅 ” 知 识 的 一 种 类 型 , “启发 性 ” (heuristic) ， 这 个 词 来 源 
如 医学 、 工 程 学 ， 启 发 性 知识 对 问题 的 求解 起 着 重要 的 作用 。 即 使 知道 一 个 确切 的 解决 方法 ， 但 由 于 
专家 系统 的 另 一 个 不 足 是 它 的 知识 受 限于 系统 的 知识 域 。 典 型 的 专家 系统 不 能 像 人 那样 ， 通 过 类 
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比 (analogy) 来 一 般 化 知识 以 获得 求解 新 的 问题 的 方法 。 虽 然 通过 规则 的 归纳 ， 专 家 系统 可 以 获得 少 
许 新 的 知识 。 创 建 一 个 专家 系统 的 常用 方法 ， 即 知识 工程 师 访 问 专 家 、 设 计 原 型 、 测 试 ， 然 后 再 重复 ， 
这 个 过 程 是 一 件 既 费时 、 又 费 精力 的 事情 。 实 际 上 ， 把 人 类 知识 转化 到 专家 系统 这 一 问题 是 如 此 的 重 
要 ， 以 至 于 人 们 称 它 为 知识 获取 瓶颈 (knowledge acquisition bottleneck)。 这 是 一 个 描述 性 的 术语 ， 因 为 
如 同 瓶 颈 限制 液体 流入 瓶子 一 样 ， 知 识 获取 的 瓶颈 限制 着 专家 系统 的 创建 。 

尽管 有 一 些 局 限 性 ， 但 专家 系统 仍 成 功 解决 了 现实 世界 的 许多 问题 ， 这 些 问题 是 常规 的 程序 设计 
方法 学 所 不 能 解决 的 ， 尤 其 是 那些 需要 处 理 不 确定 或 不 完全 信息 的 问题 。 重 要 的 一 点 是 了 解 这 种 新 技 
术 的 优点 和 局 限 性 ， 只 有 这 样 才能 够 使 之 得 到 恰当 的 运用 。 


1.5 专家 系统 的 特点 


专家 系统 的 设计 具有 以 下 一 些 特点 : 

。 高 性 能 。 系 统 能 以 此 领域 里 专家 的 同等 或 更 高 水 平 响应 ， 也 就 是 说 系统 所 给 建议 的 质量 必须 很 
高 。 

。 适当 的 响应 时 间 。 系 统 必须 能 在 合理 的 时 间 内 工作 ， 此 时 间 与 专家 得 出 一 个 结论 所 需 的 时 间 相 
当 或 更 适当 。 与 专家 需要 一 个 小 时 的 时 间 相 比 ， 需 要 一 年 才 得 出 结论 的 专家 系统 是 不 会 太 有 价 
值 的 。 特 别 是 必须 在 一 特定 时 间 间 隔 内 做 出 响应 的 实时 系统 中 ， 时 间 限 制 (time constraints) 
就 显得 更 为 苛刻 。 例 如 在 雾 中 降落 飞机 。 

。 好 的 可 靠 性 。 专 家 系统 必须 可 靠 ， 且 不 易 崩 演 ， 否 则 就 不 能 使 用 。 

。 可 理解 性 。 在 执行 过 程 中 ， 系 统 能 解释 推理 步 又， 使 之 易于 理解 。 专 家 系统 不 是 一 个 推出 不 可 
思议 答案 的 黑 盒 子 ， 而 是 应 该 具有 解释 能 力 ， 其 解释 的 方式 应 与 专家 解释 他 们 推理 的 方式 一 
样 。 对 以 下 几 个 原因 而 言 ， 这 个 特征 非常 重要 。 

原因 之 一 是 人 的 生命 和 财产 可 能 会 依靠 专家 系统 的 回答 。 由 于 危害 的 巨大 潜在 性 ， 专 家 系统 必须 
能 够 以 专家 解释 如 何 得 出 某 一 结论 的 方式 来 证 明 它 的 结论 是 正确 的 。 因 此 ， 解释 为 人 提供 了 一 个 可 理 
解 的 推理 检测 。 

第 二 个 原因 出 现在 专家 系统 的 发 展 阶段 ， 这 一 阶段 是 让 解释 机 证 实 知识 已 经 被 正确 地 获取 并 正 被 
系统 正确 地 使 用 。 这 在 调试 中 是 很 重要 的 ， 因 为 知识 可 能 会 被 不 正确 地 带 人 或 者 由 于 知识 工程 师 和 专 
家 间 的 误解 而 导致 其 不 正确 。 一 个 好 的 解释 机 人 允许 专家 和 知识 工程 师 证 实 知 识 的 正确 性 。 而 且 由 于 传 
统 专 家 系统 创建 的 方法 ， 读 一 个 程序 并 理解 它 的 操作 将 会 很 困难 。 

另外 一 个 错误 源 也 许 是 专家 系统 里 没有 预想 到 的 相互 影响 ， 这 些 相互 影响 可 以 通过 运行 测试 实例 
来 检测 到 ， 这 些 测试 实例 按照 系统 必须 遵循 的 推理 方法 来 运行 。 正 如 后 面 将 要 详细 讨论 的 内 容 一 样 ， 
复合 规则 可 以 提供 一 个 系统 推理 的 环境 。 专 家 系统 中 的 执行 流 不 是 按 顺 序 的 ， 因 此 仪 仅 一行 行 地 阅读 
代码 ， 是 不 能 明白 系统 是 如 何 工 作 的 。 也 就 是 说 ， 规 则 进入 系统 的 次 序 并 不 一 定 是 它们 被 执行 的 次 序 。 
专家 系统 就 像 一 个 规则 独立 于 知识 处 理 机 的 并 行程 序 。 

。 灵活 性。 专家 系统 可 能 有 大 量 的 知识 ， 因 此 具有 一 个 增加 、 修 改 、 删 除 知识 的 高 效 机 制 是 十 分 

重要 的 。 基 于 规则 的 系统 得 以 普及 的 一 个 原因 就 是 由 于 规则 的 高 效 和 模块 化 存储 能 力 。 

视 系统 而 定 ， 一 个 解释 机 可 以 简单 也 可 以 复杂 。 在 基于 规则 的 系统 中 ， 一 个 简单 的 解释 机 可 以 显 
示 使 最 近 规 则 得 以 执行 的 所 有 事实 。 而 在 更 为 复杂 的 系统 中 可 能 按照 如 下 方式 来 做 : 

。 列 出 所 有 支持 和 反对 某 个 假设 的 原因 。 假 设 是 将 要 被 证 明 的 目标 ， 例 如 在 一 个 医疗 诊断 专家 系 

统 中 的 “病人 有 破 伤风 感染 ”就 是 一 个 假设 。 在 现实 问题 中 可 以 有 复合 假设 ， 正 如 个 病人 可 
以 同时 有 几 种 病 一 样 。 一 个 假设 也 可 以 被 看 作 是 一 个 事实 ， 其 正确 性 仍 存在 疑惑 ， 需 要 被 证 
X. 一 旦 目标 被 假设 将 推出 更 简单 的 子 目标 ， 直 到 子 目 标 可 以 被 解决 。 这 种 解决 问题 的 方法 是 
典型 的 “分 而 治之 ”方法 ， 也 是 后 面 章节 介绍 的 向 后 链 的 基础 。 

。 列 出 所 有 可 解释 观测 证 据 的 假设 。 
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解释 假设 的 所 有 推断 结果 。 例 如 ， 假 设 病人 确实 有 破 伤风 ， 由 于 感染 作用 ， 就 应 该 有 发 烧 的 迹 
象 。 如 果 后 来 观察 到 此 症状 ， 就 会 增强 此 假设 正确 的 可 信和 度 ， 如 果 没 有 发 现 此 症状 ， 就 会 前 弱 
假设 的 可 信 度 。 
给 出 当 假 设 是 正确 时 将 发 生 事件 的 一 个 预测 (prognosis) 。 
提供 程序 需要 用 户 进一步 信息 的 问题 的 依据 。 这 些 问题 可 以 用 来 指导 推理 链 朝 着 可 能 的 诊断 路 
径 前 进 。 在 大 多 数 现实 问题 中 ， 探 究 所 有 的 可 能 性 花费 太 大 或 者 需要 太 长 的 时 间 ， 并 且 要 提供 
特定 的 方法 引导 正确 搜索 。 例 如 ， 对 一 个 报 急 咽 喉 痛 的 病人 ， 考 虑 一 下 进行 所 有 内 科 检 查 所 需 
的 花费 及 所 用 的 时 间 、 效 果 (这 对 医疗 收益 很 有 利 ， 但 对 病人 很 不 利 )。 
。 提 供 程 序 所 用 知识 正确 的 依据 。 例 如 ， 如 果 程 序 断言 “病人 有 破 伤风 感染 ”这 一 假设 是 对 的 ， 
用 户 可 以 要 求解 释 ， 程 序 必须 给 出 得 到 这 一 结论 的 依据 是 基于 下 面 规则 : 如 果 病 人 进行 血液 检 
测 ， 其 破 伤 风 是 阳性 ， 那 么 病人 就 患 有 破 伤风 。 此 时 用 户 可 要 求 程序 提供 此 规则 正确 的 依据 ， 
则 程序 可 向 用 户 说 明 : 血液 检测 为 阳性 是 患 有 疾病 的 证 据 。 然 而 ， 正 如 后 面 章节 将 讨论 的 ， 这 
种 方法 忽略 了 假 阳 性 。 
在 这 个 实例 中 ,程序 实际 上 在 引用 一 个 关于 规则 的 知识 一 一 元 规则 (metarule)。“ 元 ”代表 “之 
上 ”或 “之 外 "。 程 序 已 经 包含 了 使 用 机 器 学 习 的 方法 来 推理 新 规则 。 假 设 通过 知识 而 证 实 ， 知 识 通过 
正确 的 根据 (warrant) 来 证 实 。 根 据 实 质 上 是 一 个 解释 专家 系统 推理 说 明 的 元 解释 。 
在 基于 规则 的 系统 中 ， 知 识 可 以 很 容易 地 增加 (incrementally)。 也 就 是 说 ， 知 识 库 可 以 随 着 规则 
的 添加 而 逐步 增加 ， 从 而 使 得 系统 的 性 能 和 正确 性 得 到 持续 地 检查 。 这 个 过 程 有 点 类 似 于 一 个 小 孩 每 
天 学 习 新 知识 并 检查 其 正确 性 。 如 果 规 则 设计 得 好 ， 那 么 规则 间 的 相互 影响 作用 就 会 非常 小 或 者 没有 ， 
从 而 消除 那些 难以 预料 的 副作用 。 知 识 的 这 种 逐步 增加 可 以 快速 原型 化 (rapid prototyping)， 以 使 知识 
工程 师 可 很 快 地 演示 专家 系统 的 工作 模式 。 这 是 一 个 重要 的 特征 ， 因 为 它 可 保持 专家 和 管理 者 对 项 目 
的 兴趣 。 快 速 原型 化 还 可 迅速 暴露 出 专家 知识 或 系统 中 的 缺陷 、 不 一 致 性 或 错误 ， 从 而 使 之 能 够 立即 
得 到 纠正 。 


1.6 专家 系统 技术 的 发 展 


专家 系统 的 理论 基础 涉及 到 诸多 学 科 ， 其 中 一 个 主要 理论 基础 是 认 知 科学 (cognitive science), A 
知 就 是 研究 人 类 如 何 认 知 处 理 信息 ， 换 句 话说 ， 就 是 研究 人 类 如 何 思考 ， 尤 其 是 如 何 解 决 问题 。 许 多 
认 知 工具 已 经 被 开发 来 提供 更 好 的 教学 (Lajoic 00)。 

另 一 个 重要 概念 是 人 工 智能 机 器 必须 具备 识别 符号 的 能 力 ， 由 此 建立 了 一 个 基础 领域 ， 称 为 符号 
# (semiotics) (Fetzer 01)。 在 符号 论 中 ， 我 们 并 不 是 指 简单 的 如 “ 停 ” 这 样 的 符号 ， 而 是 指 整 个 普遍 
意义 上 的 符号 。 符 号 是 表达 某 些 其 他 含义 的 东西 。 例 如 ， 当 你 看 一 部 有 背景 音乐 的 电影 时 ， 其 中 当 令 
人 激动 的 事情 要 发 生 时 ， 音 乐 的 节奏 变 快 而 高 昂 。 同 样 ， 当 令 人 不 安 的 事情 发 生 时 ， 音 乐 变 慢 而 低沉 。 
在 音乐 、 电 影 、 电 视 和 日 常生 活 中 存在 许多 非 语言 符号 。 例 如 ， 当 一 个 人 对 一 个 问题 撤 谎 或 感到 不 安 
时 ， 他 通常 会 看 着 地 下 。 这 给 设计 能 工作 在 现实 世界 的 智能 机 器 增加 了 极 大 的 负担 。 简 单 地 理解 语言 
的 程序 远 远 不 够 ， 机 器 必须 能 够 识别 这 些 符号 后 面 的 含义 。 

如 果 我 们 想 要 计算 机 模拟 专家 ， 那么 对 认 知 的 研究 是 非常 重要 的 。 通 常 ， 即 使 问题 是 由 专家 解决 
的 ， 他 们 也 不 能 解释 自己 是 如 何 解决 问题 的 。 在 一 个 基于 精确 知识 的 专家 系统 中 ， 如 果 不 能 解释 问题 
是 如 何 解决 的 ， 则 把 知识 译 成 代码 是 不 可 能 的 。 在 这 种 情况 下 ， 唯 一 的 可 行 方法 是 设计 通过 自学 习 来 
模拟 专家 的 程序 。 这 些 程序 建立 在 归纳 、 人 工 神经 系统 和 其 他 软件 计算 方法 的 基础 之 上 ， 我 们 将 在 后 
面 讨 论 。 

人 类 问题 求解 与 产生 式 
专家 系统 技术 的 发 展 有 着 广阔 的 背景 ， 表 1.2 总 结 了 现代 专家 系统 的 一 些 重要 发 展 并 最 后 发 展 出 
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CLIPS。 只 要 可 能 ,项 目的 开始 日 期 都 会 给 出 ,许多 项 目 都 延续 了 几 年 以 上 。 在 本 章 和 其 他 章 里 都 较 
详细 地 分 析 了 这 些 发 展 。 附 录 G 中 介绍 了 许多 专家 系统 工具 和 现代 专家 系统 。 


表 1.2 导致 CLIPS 第 一 次 发 布 的 一 些 重要 事件 








年 h 事 ff 
1943 Post 产生 式 规则 ; McCulloch and Pitts 神经 元 模型 
1954 控制 规则 执行 的 马尔 可 夫 算 法 
1956 Dartmouth SW; 逻辑 学 家 ; 启发 性 搜索 ; 创立 “AI” 术 语 
1957 Rosenblatt 提出 感知 机 ; GPS (General Problem Solver， 通 用 问题 求解 器 ) (Newell, Shaw 
和 Simon) 
1958 人 工 智能 语言 LISP (McCarthy) 
1962 Rosenblatt 关于 感知 的 神经 动力 原理 
1965 自动 定理 证 明 的 归结 方法 (Robinson) 


模糊 对 象 的 模糊 推理 逻辑 (Zadeh) 
开始 建立 DENDRAL， 第 一 个 专家 系统 (Feigenbaum、Buchanan 等 ) 


1968 语义 网 ， 联 想 记忆 模型 (Quillian) 
1969 MACSYMA 数学 专家 系统 (Martin 和 Moses) 
1970 PROLOG (Colmerauer, Roussell 等 ) 
1971 语音 识别 HEARSAY I 
人 类 问题 求解 通用 规则 (Newell 和 Simon) 
1973 MYCIN 医疗 诊断 专家 系统 〈Shortliffe 等 ) 及 由 此 产生 的 GUIDON， 即 智能 家 教 (Clancey) 


TEIRESIAS， 概 念 解释 机 (Davis) 
EMYCIN， 第 一 个 外 过 (Van Melle, Shortliffe 和 Buchanan) 
HEARSAY] ， 多 协作 专家 的 黑板 模型 


1975 框架 ， 知 识 表示 (Minsky) 
1976 AM (Artificial Mathematician， 人 工 数 学 家 )， 数 学 概念 的 创造 性 发 现 〈Lenat) 不 确定 性 推 
理 的 Dempster-Shafer 证 据 理论 
开始 建立 矿产 探测 的 PROSPECTOR 专家 系统 (Duda. Hart 等 ) 
1977 OPS 专家 系统 外 壳 (Forgy), CLIPS 的 一 个 祖先 
1978 开始 建立 XOON/R1 以 配置 DEC 计算 机 系统 Meta-DENDRAL (MecDermott、DEC)， 元 规 
则 ， 规 则 归纳 (Buchanan) 
1979 快速 模式 匹配 的 Rete 算 法 (Forgy) 
人 工 智 能 开始 商业 化 
Inference 公司 成 立 (1985 年 发 行 ART 专家 系统 工具 ) 
1980 Symbolics 和 LMI 推出 LISP 机 
1982 SMP 数学 专家 系统 ; Hopfield 神经 网 络 ; 
- 开发 智能 计算 机 的 日 本 第 五 代 语 言 项 目 
1983 KEE 专家 系统 工具 (IntelliCorp) 
1985 CLIPS 专家 系统 工具 第 一 版 (NASA)， 可 以 在 任何 计算 机 上 使 用 而 不 限制 在 特制 的 昂贵 
LISP 机 器 





在 20 世纪 50 年 代 后 期 及 60 年 代 ， 人 们 编写 了 大 量 的 以 通用 问题 求解 为 目标 的 程序 ， 其 中 最 著名 
的 是 通用 问题 求解 器 (General Problem Solver)。 这 引起 了 巨大 的 关注 ， 因 为 巨大 的 计算 机 充满 了 整个 
房间 ， 并 称 之 为 “ 巨 脑 ”(Giant Brains)。 人 们 担心 他 们 会 因此 失去 工作 ， 直 到 IBM 宣布 机 器 只 会 处 理 
那些 需要 一 百 万 年 才能 完成 的 成 千 个 数学 运算 。 在 那些 机 器 价值 一 百 万 美元 而 CPU 时 间 以 1 毫秒 1 美 
元 的 价格 售卖 的 日 子 ， 人 们 无 法 想像 有 一 天 自己 可 以 有 便宜 的 个 人 电脑 在 家 庭 或 者 工作 中 使 用 。 

Newell 和 Simon 证 明 的 最 重要 结果 之 一 是 大 部 分 的 人 类 问题 求解 或 认 知 (cognition) 可 以 用 IF… 
THEN 类 型 的 产生 式 规则 (production rule) 表达 。 例 如 ,“ 如 果 ” 看 起 来 将 要 下 雨 , “那么 ” 带 上 一 把 
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雨伞 ， 或 者 “如 果 ” 你 的 爱人 心情 不 好 ,“ 那 么 ”你 不 要 显得 很 高 兴 。 与 一 个 小 的 、 模 块 化 的 知识 集 相 
对 应 的 规则 称 为 一 块 (chunk)， 块 以 松散 的 形式 连接 、 组 织 ， 并 与 相关 的 知识 有 联系 。 其 原理 之 一 是 
所 有 的 人 类 记忆 都 以 块 的 形式 组 织 。 下 面 是 用 一 条 规则 表示 一 个 知识 块 的 例子 : 

IF 汽车 运转 不 了 并 且 

油箱 是 空 的 

THEN 加 油 

Newell 和 Simon 用 规则 表示 知识 并 显示 了 如 何 用 规则 推理 。 认 知心 理学 家 已 经 使 用 规则 作为 模型 
来 解释 人 类 信息 处 理 ， 其 基本 思想 是 感官 的 接收 对 大 脑 产 生 刺 激 ， 刺 激 引发 出 适当 的 长 期 记忆 Cong- 
term memory) 规则 并 生成 恰当 的 响应 ， 长 期 记忆 是 我 们 的 知识 存储 处 。 例 如 ， 我 们 都 有 如 下 的 规则 : 

IF 有 火焰 THEN 有 火灾 

IF 有 烟雾 THEN 可 能 有 火灾 

Ir 有 报警 THEN 可 能 有 火灾 

可 以 看 到 后 两 个 规则 在 表述 上 不 是 完全 肯定 ， 火 可 能 已 经 天 了 ,但 空中 可 能 仍 有 烟雾 。 同 样 ， 报 
警 声 并 不 证 明 就 有 火灾 ， 因 为 可 能 是 一 个 虚假 的 报警 信号 。 看 到 火焰 、 闻 到 烟雾 、 听 到 报警 声 的 刺激 
会 诱发 出 这 些 或 相似 的 规则 。 

长 期 记忆 包括 许多 形 如 IF…THEN (如 果 ……' 那 么 ) 简单 结构 的 规则 。 实 际 上 一 个 技艺 高 超 的 棋 
师 可 能 通晓 50 000 或 更 多 的 关于 棋 的 模式 的 知识 块 。 与 长 期 记忆 相反 ， 短 期 记忆 (short-term memory) 
是 在 解决 问题 过 程 中 用 来 暂时 存储 知识 的 。 尽 管 长 期 记忆 能 够 容纳 成 千 上 万 甚至 更 多 的 块 ， 然 而 正 工 
作 着 的 记忆 的 容量 是 惊人 地 小 一 一 4 一 7 块 。 试 着 在 脑海 中 浮现 几 个 数字 就 是 一 个 简单 的 例子 ， 大 多 数 
人 一 次 仅 可 以 浮现 4 一 7 个 数字 ， 但 他 们 能 记 住 的 远 不 只 4 一 7 位 数字 ， 只 不 过 这 些 数字 是 存储 在 长 期 
记忆 中 。 

一 种 理论 假设 短期 记忆 表示 那些 可 以 同时 活跃 的 数据 块 ， 并 把 人 类 问题 的 解决 当 作 脑海 中 这 些 已 
激活 块 的 传播 。 最 后 那个 块 被 激活 的 强度 如 此 之 大 以 致 产生 出 一 个 有 意识 的 想像 。 

人 类 问题 求解 的 另 一 个 必要 元 素 是 认 知 处 理 机 (cognitive processor) ， 它 尽力 去 发 觉 那些 将 被 适当 
刺激 激活 (activated) 的 规则 。 但 并 不 是 任何 规则 都 可 激活 ， 例 如 ， 你 不 会 每 次 听 到 警报 声 就 想到 给 油 
箱 充 油 。 只 有 与 刺激 相 匹配 的 规则 才 会 被 激发 。 如 果 很 多 规则 同时 被 激发 ， 认 知 处 理 机 必须 处 理 冲 突 
来 决定 哪 一 个 规则 有 最 高 优先 权 ， 这 个 规则 将 会 被 执行 。 例 如 ， 如 果 以 下 两 个 规则 是 激发 态 的 : 

IF 有 火灾 THEN 离开 

IF 我 的 衣服 着 火 了 THEN 扑灭 火 
此 时 ， 具 有 最 高 优先 权 的 那 条 规则 将 会 执行 。 对 现代 专家 系统 来 说 ， 推 理 机 (inference engine) 就 相当 
于 认 知 处 理 机 。 

Newell 和 Simon 把 人 类 问题 求解 的 模型 归纳 为 : 长 期 记忆 (规则)、 短 期 记忆 (工作 内 存 )、 认 知 
处 理 器 (推理 机 )， 这 三 者 是 现代 基于 规则 的 专家 系统 的 基础 。 

这 里 所 说 的 规则 是 一 类 产生 式 系 统 (production system)。 目 前 ， 基 于 规则 的 产生 式 系统 是 实现 专 
家 系统 的 一 种 流行 方法 。 构 成 产生 式 系统 的 规则 称 为 产生 式 规则 (production rule)。 在 设计 专家 系统 的 
过 程 中 ,一 个 重要 的 因素 是 知识 的 数量 和 规则 的 粒度 〈granularity)。 粒 度 太 小 ， 则 在 没有 其 他 规则 参 
考 的 情况 下 很 难 理解 规则 ， 粒 度 太 大 ， 则 专家 系统 很 难 修改 ， 这 是 因为 几 个 知识 块 被 集成 在 一 条 规则 
中 。 能 够 像 使 用 规则 一 样 地 使 用 对 象 是 CLIPS 的 一 个 主要 功能 。 

直到 20 世纪 60 年 代 中 期 ， 人 工 智能 的 主要 目标 就 是 依赖 少量 的 知识 和 功能 强大 的 推理 方法 来 生 
成 智能 系统 。 所 谓 的 通用 问题 求解 器 也 是 希望 能 解决 大 量 的 问题 ， 而 非 针 对 某 一 特定 领域 。 虽 然 通用 
问题 求解 器 的 推理 功能 非常 强大 ， 但 它 仍然 只 相当 于 一 个 初学 者 ， 当 它 面 对 一 个 新 的 领域 时 ， 它 得 从 
头 做 起 ， 远 比 不 上 一 个 依赖 于 高 性 能 领域 知识 的 人 类 专家 。 
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知识 能 力 的 一 个 例子 是 博弈 。 虽 然 计算 机 现在 能 与 人 匹敌 ， 但 计算 机 如 果 不 是 比 人 计算 得 快 百 万 
倍 的 话 ， 人 将 比 计算 机 下 得 好 。 研 究 表明 ， 人 类 专家 下 棋 并 不 是 依赖 于 推理 ， 而 是 依赖 于 多 年 下 棋 所 
积累 的 模式 。 正 如 前 面 所 提 到 的 一 样 ， 人 类 专家 可 保存 50000 个 模式 。 人 类 识别 棋盘 上 模式 的 能 力 非 
常 强 ， 计 算 机 一 般 通过 推理 来 预测 50~ 100 步 或 者 更 多 步 后 的 情形 ， 而 人 类 则 通过 分 析 模 式 来 发 现 潜 
在 的 威胁 。 这 个 策略 比 起 强力 的 向 前 走 步 预测 方法 更 强 ， 这 就 使 得 计算 机 下 棋 程 序 ， 例 如 IBM 的 “ 深 
YE (Big Blue)”"， 可 以 打败 人 类 棋 手 。 

虽然 领域 知识 非常 强大 ， 但 它 一 般 局 限于 某 一 领域 。 例 如 ， 一 个 象棋 高 手 不 可 能 自动 成 为 一 个 数 
学 专家 或 是 一 个 跳棋 专家 ， 虽 然 某 些 知 识 能 借鉴 到 其 他 领域 ， 如 仔细 地 规划 每 一 步 走 法 ， 但 那 主 要 是 
技巧 而 不 是 知识 。 

直到 20 世纪 70 年 代 初 期 ， 人 们 才 意 识 到 领域 知识 才 是 建造 具有 人 类 专家 水 平 的 问题 求解 器 的 关 
键 。 虽 然 推理 方法 很 重要 ， 但 研究 表明 ， 专 家 并 不 是 首先 依赖 推理 来 求解 问题 。 事 实 上 ， 推 理 只 是 起 
到 辅助 的 作用 ， 人 类 专家 主要 依赖 他 们 多 年 所 积累 的 大 量 启发 式 知识 和 经 验 。 只 有 当 专 家 不 能 用 他 们 
的 专家 知识 去 求解 问题 时 ， 他 们 才 去 推理 (或 是 求教 男 一 个 专家 )。 在 一 个 不 熟悉 的 环境 下 ， 专 家 的 推 
理 能 力 与 常人 无 异 。 早 期 基于 推理 建造 问题 求解 器 的 尝试 表明 ， 完 全 依赖 推理 是 行 不 通 的 。 

领域 知识 是 建造 现实 世界 问题 求解 器 的 关键 这 一 观点 导致 了 专家 系统 的 成 功 。 因 此 ， 今 天 成 功 的 
专家 系统 是 基于 知识 的 专家 系统 而 不 是 通用 问题 求解 器 。 此 外 ， 开 发 专家 系统 的 技术 也 同样 适用 于 不 
需要 专门 知识 的 基于 知识 的 系统 的 开发 。 

虽然 专门 知识 被 认为 是 专业 化 的 且 仅 为 少数 人 所 知 ， 但 它 一 般 可 在 书本 里 、 网 络 上 、 期 刊 和 其 他 
广泛 可 获得 的 资料 中 找到 。 例 如 ， 如 何 求解 一 个 二 次 方程 式 或 做 积分 和 微分 的 知识 是 可 广泛 获得 的 。 
基于 知识 的 计算 机 程序 如 Mathematica 和 MATLAB 可 自动 完成 这 些 以 及 其 他 一 些 数字 或 符号 上 的 数学 
操作 ， 其 他 基于 知识 的 程序 可 以 完成 工厂 的 生产 控制 。 今 天 ， 基 于 知识 的 系统 (knowledge-based sys- 
tem) 和 “专家 系统 ”这 些 术 语 经 常 被 同 义 地 使 用 。 实 际 上 ， 现 今 专家 系统 被 认为 是 常规 程序 设计 的 一 
个 可 选择 的 程序 设计 模型 或 范例 (paradigm) 。 


基于 知识 系统 的 起 源 


20 世纪 70 年 代 随 着 基于 知识 系统 的 广 为 接 受 ， 产生 了 许多 成 功 的 专家 系统 。 这 些 系 统 都 具备 完 
整 的 文档 ,许多 论文 、 书 籍 阐释 它们 的 工作 和 基础 知识 。 对 于 现代 专家 系统 ， 你 将 遇 到 的 普遍 问题 是 
它们 的 知识 都 是 私有 的 和 保密 的 。 使 用 专家 系统 的 公司 从 为 他 们 服务 的 人 类 专家 中 收集 知识 ， 他 们 不 
愿 这 些 知 识 被 竞争 者 、 特 别 是 律师 们 获得 。 想 一 下 ， 一 个 医疗 专家 系统 提供 病人 死亡 或 声称 受伤 的 诊 
斯 ， 事 实 上 ， 被 检查 的 人 也 许 没 有 受伤 ， 只 是 他 的 行为 符合 受伤 的 人 的 情况 。 专 家 系统 中 的 软件 以 及 
知识 库 被 其 他 专家 检查 。 正 如 许多 判例 一 样 ， 你 可 以 看 到 一 个 专家 反驳 另 一 个 专家 。 

这 些 经 典 的 专家 系统 能 够 解释 大 量 光谱 图 从 而 确定 化 学 组 成 “DENDRAL)、 诊 断 疾病 (MYCIN). 
分 析 石 油 (DIPMETER) 和 和 矿产 的 (PROSPECTOR) 地 质 资料 、 配 置 计算 机 系统 (XCON/R1)。 到 
1980 年 为 止 ， PROSPECTOR 探测 到 价值 1 亿美 元 的 矿物 淀 积 层 和 XOCON/R1 每 年 为 DEC 节省 数 百 万 
美元 的 消息 激 起 了 人 们 对 专家 系统 技术 的 强烈 关注 。 作 为 对 人 类 信息 处 理 的 研究 ， 在 20 世纪 50 年 代 
开始 的 人 工 智能 这 一 分 支 已 通过 现实 世界 应 用 的 实践 性 程序 发 展 到 取得 商业 性 的 成 功 。 

MYCIN 专家 系统 之 所 以 重要 有 几 个 原因 。 首 先 ， 它 证 明了 人 工 智能 可 以 应 用 到 医疗 诊断 ; 其 次 ， 
MYCIN 是 新 概念 的 试验 ， 例 如 解释 机 、 知 识 的 自动 获取 和 今天 可 在 许多 专家 系统 中 找到 的 智能 指导 。 
第 三 个 原因 是 它 证 实 了 专家 系统 外 壳 (shell) 程序 软件 与 数据 分 离 的 可 行 性 。 也 就 是 说 ， 数 据 和 知识 
并 没有 被 编写 在 程序 中 。 事 实 上 ， 外 壳 允 许 把 一 个 领域 知识 方便 地 替换 成 另 一 个 领域 的 知识 。 

以 前 的 专家 系统 如 DENDRAL， 是 一 个 把 知识 库 中 的 知识 与 推理 机 通过 软件 集成 起 来 的 单一 系统 。 
MYCIN 明确 地 把 知识 库 与 推理 机 分 开 ， 这 对 于 专家 系统 技术 的 发 展 是 极其 重要 的 ， 因 为 这 意味 着 专家 
系统 的 基本 核心 可 以 重用 。 也 就 是 说 ， 通 过 清空 旧 知识 装 人 新 领域 的 知识 ， 新 的 专家 系统 可 以 比 
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DENDRAL 类 型 的 系统 创建 得 快速 得 多 。 处 理 推理 和 解释 的 MYCIN 部 分 ， 可 以 用 新 系统 的 知识 重 装 。 
去 掉 了 医学 知识 的 MYCIN 被 称 为 EMYCIN (基本 的 或 空 的 MYCIN). 
到 20 世纪 70 年 代 后 期 ， 作 为 今天 大 多 数 专家 系统 基础 的 3 个 概念 已 合 为 一 体 ， 如 图 1.5 所 示 ， 
这 些 概念 是 规则 、 外 壳 、 知 识 。 
模拟 人 类 问题 求 独立 于 知识 的 部 专家 
解 的 产生 式 规则 分 和 推理 机 外 过 知识 


| | | 
专家 系统 | 


图 1.5 建造 现代 基于 规则 的 专家 系统 的 三 个 重要 因素 


到 1980 年 ， 新 的 公司 已 开始 把 专家 系统 从 大 学 实验 室 里 带 出 并 且 生 产 商业 性 产品 ， 而 且 引进 了 为 
专家 系统 开发 服务 的 功能 强大 的 新 软件 。 直 接 用 LISP 开发 的 为 专家 系统 开发 服务 的 强大 的 新 软件 和 专 
业 软 件 也 开始 推出 。 但 遗憾 的 是 ， 随 着 个 人 计算 机 的 功能 越 来 越 强 大 且 CLPS 等 专家 系统 工具 业已 开 
发 出 来 ， 高 昂 的 花费 和 可 观 的 训练 时 间 导 致 这些 系 统 不 可 避免 的 灭亡 。 在 LISP 机 器 中 ， 原 始 汇编 语 
言 、 操 作 系统 和 其 他 基础 代码 都 用 LISP 开发 ， 因 此 导致 大 量 的 维护 工作 。 

CLIPS 用 C 语 言 开发 以 提高 速度 和 可 移植 性 ， 同 时 使 用 强大 的 模式 匹配 算法 Rete。 而 且 和 其 他 专 
家 系统 工具 不 同 ，CLIPS 不 仅 是 免费 的 且 具 有 完备 的 源 程 序 说 明文 档 。CLIPS 可 以 安装 在 支持 标准 的 
Kernigan 和 Richie C 语言 的 任何 C 编 译 器 上 。 它 已 经 被 安装 在 许多 计算 机 系列 上 。 正 如 前 言 所 述 ， 许 
多 从 CLIPS 衡 生 出 来 的 语言 已 经 开发 出 来 ， 并 带 有 如 模糊 逻辑 和 反 向 链 等 特性 ， 它 们 用 Java 语言 开 
发 ， 称 为 Jess。 


1.7 专家 系统 的 应 用 与 领域 


传统 的 计算 机 程序 可 用 来 解决 许多 类 型 的 问题 ， 这 些 问题 通常 有 算法 上 的 解决 方法 ， 这 使 得 它们 
易于 用 传统 的 程序 和 程序 设计 语言 如 C、C++ 、Java、C# 等 来 实现 。 在 许多 应 用 领域 如 工业 和 工程 技 
术 中 ， 数 值 计算 是 极其 重要 的 。 与 之 相反 ， 专 家 系统 基本 上 是 为 符号 推理 而 设计 的 。 

虽然 经 典 人 工 智能 语言 如 LISP 和 PROLOG 也 常 被 用 作 符号 操作 的 语言 ， 但 它们 的 应 用 并 不 局 限 
于 专家 系统 外 壳 ， 这 并 不 意味 着 不 可 用 LIS 和 PROLOG 建造 专家 系统 。 在 今天 ， 逻 辑 程序 设计 (log- 
ic programming) 这 个 词 通常 指 用 PROLOG 编写 的 程序 ， 虽 然 很 多 其 他 语言 也 以 此 为 目标 开发 。 事 实 
上 ,许多 专家 系统 都 是 用 PROLOG 和 LISP 建造 的 。PROLOG 用 于 诊断 系统 有 很 多 的 优点 ， 这 主要 是 
由 于 它 内 含 反 向 链 推理 。 不 过 ， 使 用 专门 为 专家 系统 建造 而 设计 的 外 过 和 实用 程序 来 建造 大 型 专家 系 
统 更 为 方便 ， 效 率 也 更 高 。 因 为 它 不 必 每 建造 一 个 新 的 专家 系统 就 从 头 做 起 。 


专家 系统 的 应 用 


专家 系统 已 被 应 用 到 几乎 每 一 个 知识 领域 ， 其 中 有 些 被 设计 为 研究 工具 ， 有 些 则 履行 着 重要 的 商 
业 和 工业 功能 。 专 家 系统 应 用 于 商业 的 一 个 例子 是 20 世纪 70 年 代 DEC 的 XCON 系统 ，XCON 系统 
《最 初 称 为 R1) 是 与 Camegie-Mellon 大 学 的 John McDermott 合作 开发 的 ， 它 是 为 DEC 服务 的 -个 计算 
机 配置 专家 系统 。 

一 个 计算 机 系统 的 配置 (configuration) 意味 着 当 用 户 下 了 一 个 订单 时 ， 所 有 的 部 件 一 一 软件 、 硬 
件 和 资料 一 一 都 要 提供 。 这 至 今 仍 是 一 个 比较 重要 的 问题 ， 特 别 是 当 人 们 通过 在 Internet 上 填 表 格 选 
购 计算 机 、 汽 车 和 其 他 产品 的 时 候 。 对 一 个 计算 机 厂商 或 汽车 制造 商 来 说 ， 花 时 间 去 检查 每 一 个 订单 
所 需要 的 零 部 件 是 否 齐全 然后 决定 某 一 个 订单 是 否 能 发 送 是 非常 没有 效率 的 行为 。 今 天 ， 对 任何 需要 
配置 并 在 一 定时 间 内 发 送 的 事情 来 说 ， 专 家 系统 是 一 个 符合 逻辑 和 效益 的 必需 品 。 
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大 量 的 专家 系统 已 创建 并 且 已 报道 在 计算 机 期 刊 、Internet、 书 籍 和 会 议 上 ， 但 这 些 可 能 只 是 涉及 
到 一 些 皮毛 ， 因 为 许多 公司 和 军事 集团 由 于 所 有 权 或 者 包含 在 系统 内 的 秘密 知识 的 缘故 而 不 会 报道 他 
们 的 系统 。 在 已 公开 的 系统 基础 上 ， 我 们 可 以 看 出 专家 系统 应 用 的 某 些 广义 的 分 类 ， 如 表 1.3 所 示 。 
由 于 文档 齐全 ， 表 1.4 一 表 1.9 列 出 了 一 些 经 典 的 专家 系统 实例 ， 现 在 的 一 些 系统 其 应 用 也 类 似 。 


表 1.3 专家 系统 的 广义 分 类 





种 类 通用 的 领域 
配置 以 正确 的 方法 配置 系统 组 成 
诊断 基于 已 观察 到 的 迹象 推断 潜在 的 问题 
教学 智能 教学 使 得 学 生 可 以 问 为 什么 、 怎 么 样 和 如 果 …… 会 怎样 之 类 的 问题 ， 如 同人 在 教学 一 样 
解释 解释 观察 到 的 数据 
监测 比较 观察 数据 和 预测 数据 以 判断 性 能 
规划 规划 行为 以 产生 预期 结果 
预测 预测 给 定 情况 的 结果 
补救 对 问题 给 定 补救 措施 
控制 管理 一 个 过 程 ， 可 能 要 求解 释 、 诊 断 、 监 测 、 设 计 、 预 测 和 补救 


表 1.4 典型 化 学 专家 系统 表 1.5 典型 电子 学 专家 系统 




















名 R 化 学 名 R 电 子 学 
CRYSALIS 解释 蛋白 质 的 三 维 结构 ACE 诊断 电话 网 络 故障 
DENDRAL 解释 分 子 结构 IN-ATE 诊断 示波器 故障 
TQMSTUNE 矫正 三 重 、 四 重 、 多 重 分 光 (使 NDS 诊断 国内 通信 网 

之 协调 ) EURISKO 设计 三 维 微 电子 学 
CLONER 设计 新 型 生物 分 子 PALLADIO 设计 并 检测 新 型 VLSI 电路 
MOLGEN 设计 基因 一 克隆 实验 REDESIGN 重新 设计 数字 电路 
SECS 设计 复杂 的 有 机 分 子 CADHELP 指导 计算 机 辅助 设计 
SPEX 规划 分 子 生物 学 实验 SOPHIE 指导 电路 故障 分 析 
表 1.6 典型 医学 专家 系统 表 1.7 ”典型 工程 学 专家 系统 
名 R E 学 名 称 工程 学 

PUFF 诊断 肺病 REACTOR 诊断 /补救 核反应 堆 事故 

VM 监视 特 护 病人 DELTA 诊断 /补救 GE 火车 头 故 障 

ABEL 分 析 酸 /电解 液 STEAMER 指导 电厂 操作 流 

AI/COAG 诊断 血液 疾病 

AI/RHEUM 诊断 风湿 疾病 

CADUCEUS 诊断 内 科 疾 病 

ANNA 监测 洋 地 黄 治疗 法 表 1.8 典型 地 质 学 专家 系统 

BLUE BOX Ow AEM EB 名 K 地 质 学 

MYCIN 诊断 /治疗 细菌 感染 DIPMETER 解释 钻井 日 志 

ONCOCIN 治疗 /管理 化 疗 病人 LITHO 解释 油井 运转 记录 数据 

ATTENDING 指导 麻醉 管理 MUD 诊断 /补救 钻探 问题 

GUIDON 指导 病菌 感染 分 析 PROSPECTOR ”解释 矿产 地 质 资料 
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专家 系统 的 适用 领域 


在 开始 建造 专家 系统 之 前 ， 决 定 这 是 不 是 一 个 适当 的 模式 是 很 必要 的 ， 例 如 ， 要 考虑 是 否 要 用 专 
家 系统 而 不 是 用 传统 的 程序 设计 。 一 个 专家 系统 的 适用 领域 取决 于 很 多 因素 : 

。 传统 的 程序 设计 能 有 效 地 解决 此 问题 吗 ? 如果 答案 为 “是 ”"， 那 么 专家 系统 就 不 是 最 好 的 选择 。 
例如 ， 想 一 下 一 个 诊断 某 种 设备 的 问题 。 如 果 能 预先 知道 所 有 功能 失灵 的 全 部 症状 ， 那么 一 个 
简单 的 图 表 或 错误 判定 树 就 足够 了 。 专 家 系统 最 适合 于 那些 没有 高 效 算法 解决 的 情况 ， 这 些 情 
况 被 称 为 非 结构 化 问题 (ill-structured problem) ， 且 推理 可 能 会 是 好 的 解决 方法 的 唯一 希望 。 

举 一 个 非 结构 化 问题 的 例子 ， 考 虑 一 个 不 能 决定 去 哪儿 度假 且 决 定 去 旅行 社 看 看 的 人 的 情况 。 表 

1.10 列 出 了 这 个 人 对 旅行 社 问题 的 反应 所 显示 出 来 的 一 个 非 结 构 化 问题 的 一 些 特 征 。 











表 1.9 典型 计算 机 专家 系统 R110 一 个 非 结构 化 问题 的 例子 

名 称 计算 机 系统 旅行 社 的 问题 反 应 
PTRANS 给 出 管理 DEC 计算 机 的 预测 我 能 为 你 做 什么 吗 ? 我 不 确定 
BDS | 疹 断 交换 网 中 的 损 环 部 分 你 想 去 哪里 ? 某 些 地方 
XCON 配置 DEC 计算 机 系统 有 特别 的 目的 地 加 ? 不 确定 
XSEL 配置 DEC 计算 机 销售 订单 人 5 
尔 少 钱 ? R Ald 

XSITE 配置 DEC 计算 机 顾客 位 置 你 能 负担 多 少 钱 ? 我 不 知道 
YES/MVS 监控 IBM MVS 操作 系统 你 能 弄 到 钱 吗 ? 我 不 知道 

TIMM 诊断 DEC 计算 机 你 什么 时 候 想 去 ? 不 定 


尽管 这 可 能 是 一 个 极端 的 例子 ， 但 它 的 确 阐明 了 非 结构 化 问题 的 基本 概念 ， 正 如 你 所 看 到 的 ， 由 
于 有 如 此 之 多 的 可 能 性 ， 非 结构 化 问题 就 不 能 有 一 个 较 好 的 算法 方法 来 解决 。 在 这 种 情况 下 ， 当 所 有 
其 他 方法 都 无 效 时 就 应 给 一 个 默认 的 选择 。 例 如 ， 旅 行 社会 说 :“ 哈 哈 ! 我 有 完美 的 旅程 给 你 ， 环 游 世 
界 。 请 填 好 下 面 的 信用 卡 申 请 表 ， 每 一 件 事 都 会 准备 好 。 
在 处 理 非 结 构 化 问题 时 ， 有 一 点 值得 注意 ， 那 就 是 专家 系统 设计 可 能 偶而 反映 了 一 种 算法 ， 即 专 
家 系统 开发 在 不 知 不 觉 中 使 用 了 一 种 算法 。 一 个 明显 的 迹象 就 是 硬性 规定 了 一 种 控制 结构 (control 
structure) ， 那 就 是 ， 通 过 知识 工程 师 明 确 地 设 定 规则 的 优先 级 ， 这 些 规则 可 以 按 相 应 的 顺序 强制 执行 。 
在 专家 系统 中 强制 性 的 控制 结构 抹杀 了 专家 系统 技术 的 一 个 主要 优点 ， 即 不 按照 预定 的 模式 来 处 理 预 
料 外 的 输入 。 也 就 是 ， 专 家 系统 随机 地 对 输入 作出 反应 ， 不 管 输入 什么 。 传 统 程序 通常 希望 按照 一 定 
的 顺序 输入 。 一 个 有 大 量 控制 的 专家 系统 通常 表明 了 一 个 模糊 的 算法 ， 这 对 重 写 传统 程序 可 能 是 一 个 
好 的 选择 。 
。 这 个 域 容易 确定 边界 吗 ? 在 希望 专家 系统 知道 什么 和 它 的 能 力 应 该 是 什么 上 有 明确 的 界限 时 ， 
这 一 点 是 很 重要 的 。 例 如 ， 假 设 你 想 建造 一 个 诊断 头痛 的 专家 系统 ， 显 然 医生 的 药理 知识 应 该 
输入 到 知识 库 中 。 然 而 ， 为 了 更 深刻 地 理解 头痛 ， 你 可 能 还 要 输入 关于 神经 化 学 的 知识 ， 然 后 
是 它 的 上 一 级 领域 : 生物 化 学 ， 接 着 是 化 学 ， 分 子 生 理学 ， 这 样 一 直 推 可 能 到 亚 原子 物理 。 其 
他 域 比如 生物 反馈 学 、 心 理学 、 精 神 病 学 、 生 理学 、 运 动 学 、 瑜 伽 还 有 压力 管理 也 可 能 包含 与 
头痛 相关 的 知识 。 问 题 是 : 你 什么 时 候 停止 增加 域 ? 域 越 多 ， 专 家 系统 会 变 得 越 复杂 。 
尤其 是 ,协调 所 有 这 些 专业 知识 将 成 为 一 个 主要 的 任务 。 从 现实 世界 的 经 验 可 知 ， 协 调 正在 解决 
问题 的 专家 组 ， 特 别 当 他 们 提出 矛盾 的 建议 时 是 多 么 的 困难 。 如 果 我 们 知道 怎样 做 好 专家 知识 间 的 协 
调 ， 那 么 我 们 就 能 尝试 建立 一 个 具有 复合 专家 知识 的 专家 系统 。 这 种 尝试 已 经 在 专家 系统 HEARSAY 
本 和 HEARSAY 亚 中 用 到 。 举 一 个 常见 的 例子 ， 当 有 故障 时 把 车 子 开 进 多 个 服务 中 心 ， 你 会 得 到 许多 
截然 不 同 的 判断 。 但 当 专 家 变 少 时 ， 选 择 的 数量 也 将 变 少 ， 这 使 得 决定 一 个 行动 非常 困难 。 
。 该 专家 系统 是 否 有 需求 ? 虽然 建立 一 个 专家 系统 是 伟大 的 体验 ， 但 如 果 设 有 人 愿意 用 ， 它 就 是 
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毫 无 意义 的 。 如 果 已 经 有 大 量 的 人 类 专家 ， 那 就 很 难 用 缺乏 专家 这 一 -理由 去 为 专家 系统 辩护 。 
而 且 ， 如 果 专 家 或 用 户 不 想 要 这 种 系统 ， 即 使 有 需要 ， 它 也 不 会 被 接受 。 例 如 ， 许 多 模拟 显示 
人 工 智能 控制 交通 灯 可 以 减少 大 约 50% 的 汽油 消耗 ， 但 它 同 时 会 减少 城市 、 省 和 政府 汽油 税收 
的 50%. 

管理 阶层 应 该 特别 愿意 支持 这 种 系统 。 相 对 于 传统 的 程序 ， 专 家 系统 显得 更 重要 ， 因 为 它 被 视 为 
减轻 工作 压力 的 手段 。 丁 人 必须 确信 引入 专家 系统 之 后 不 会 造成 失业 ， 而 是 当 专 家 知识 更 容易 以 低 成 
本 获取 后 自己 会 取得 较 大 的 收益 。 专 家 系统 领域 值得 获取 更 多 支持 ， 因 为 它 试 图 去 解决 传统 程序 不 能 
解决 的 问题 ， 风 险 是 巨大 的 ， 回 报 也 是 巨大 的 。 

。 至少 有 一 个 愿意 合作 的 人 类 专家 吗 ? 一 定 得 有 一 个 愿意 合作 且 对 这 个 项 目 充满 热情 的 专家 。 并 
非 所 有 专家 都 愿意 把 他 们 的 知识 接受 错误 检查 后 再 输入 计算 机 。 即 使 以 后 开发 中 有 很 多 专家 愿 
意 合 作 ， 限 制 加 入 专家 的 数目 可 能 是 明智 的 。 不 同 的 专家 有 不 同 的 解决 问题 的 方法 ， 比 如 要 求 
不 同 的 诊断 检测 手段 ， 有 时 他 们 甚至 会 得 出 不 同 的 结论 。 应 该 努力 去 解决 知识 库 中 需要 解决 、 
可 能 引起 内 部 冲突 和 不 相 容 的 问题 。 
专家 能 够 解释 他 的 知识 以 使 知识 工程 师 理解 吗 ? 即使 专家 愿意 合作 ， 但 用 清晰 的 词语 表达 这 些 
知识 可 能 有 困难 。 一 个 简单 的 例子 是 ， 你 可 以 用 语言 表达 你 是 怎样 移动 一 个 手指 的 吗 ? 虽然 你 
会 说 这 是 通过 收缩 手指 上 的 肌肉 来 完成 的 ， 但 接 下 来 的 问题 是 ， 你 怎样 收缩 手指 肌肉 ?专家 和 
知识 工程 师 沟 通 上 的 另 一 个 困难 是 : 知识 工程 师 不 懂 专 家 的 专门 术语 。 对 于 医学 术语 ， 这 个 问 
题 尤 其 严重 ， 知 识 工程 师 可 能 要 花费 一 年 或 者 更 长 的 时 间 仅 仅 去 理解 专家 所 谈论 的 内 容 ， 何 况 
还 要 把 那些 知识 转换 成 清晰 的 计算 机 代码 。 
求解 问题 的 知识 主要 是 启发 式 和 模糊 的 吗 ? 当 专 家 的 知识 大 部 分 是 启发 式 和 模糊 时 ， 专 家 系统 
是 非常 适合 的 ， 这 是 因为 ， 知 识 可 以 基于 经 验 ， 这 种 知识 叫 经 验 知识 (experiential knowledge), 
专家 可 以 在 一 个 方法 无 效 时 ， 尝 试 不 同 的 方法 ， 换 一 名 话说， 专家 的 知识 与 其 说 是 基于 有 逻辑 和 
算法 ， 不 如 说 更 多 是 一 种 “尝试 一 错误 ”反复 的 方法 。 然而， 专家 仍然 比 非 专家 解 题 快 些 ， 因 
此 这 是 一 个 适 于 专家 系统 的 应 用 。 假 如 问题 可 以 简单 地 用 逻辑 和 算法 去 解决 ， 那 最 好 还 是 用 传 
统 程序 去 处 理 。 


1.8 iB. A. IR 


定义 一 个 问题 的 一 个 基本 决策 是 决定 怎样 才能 最 好 地 建立 它 的 模型 ， 有 时 经 验 可 用 来 帮助 选择 最 
好 的 范例 。 例 如 ， 对 工资 表 ， 经 验 建 议 最 好 用 传统 的 过 程 程序 设计 ， 而 且 ， 如 果 可 以 的 话 ， 使 用 商业 
软件 包 比 从 头 写 一 个 更 好 。 选 择 范 例 的 一 个 普遍 原则 是 首先 考虑 最 传统 的 方法 一 一 通常 的 程序 设计 方 
法 。 这 是 因为 ， 对 传统 的 程序 设计 ,我们 已 有 丰富 的 经 验 和 大 量 的 商业 软件 包 。 如 果 一 个 问题 不 能 用 
传统 的 程序 设计 方法 来 解决 ， 此 时 ， 我 们 再 来 考虑 非 传统 的 方法 ， 如 人 工 智 能 方法 ， 它 要 求 有 理论 知 
识 而 不 仅仅 是 C 语言 过 程 。 

和 关系 数据 库 语 言 SQL 一 样 ， 专 家 系统 语言 是 一 种 比 LIS 或 C 语言 层次 更 高 的 语言 ， 因 为 它 更 
容易 去 做 某 些 事情 ， 但 能 够 解决 问题 的 范围 也 更 小 。 因 此 ， 专 家 系统 语言 的 这 种 专门 性 使 它们 适合 
家 系统 而 不 适合 一 般 的 编程 。 在 很 多 情况 下 ， 甚 至 需要 从 专家 系统 语言 中 暂时 退出 以 便 去 执行 过 程 语 
言 的 一 个 函数 。CLIPS 特意 设计 了 使 这 种 转换 更 容易 的 特性 。 

专家 系统 语言 和 过 程 语言 之 闻 的 主要 功能 差异 集中 在 表示 上 .过程 语言 着 重 提供 一 种 灵活 的 、 健 
壮 的 技术 去 表示 数据 。 例 如 ， 诸 如 线性 表 、 记 录 、 链 表 、 堆 栈 、 队 列 和 树 的 数据 结构 很 容易 被 创建 并 
熟练 操作 。 现 代 语 言 如 Java 和 C# ,通过 对 象 、 方 法 和 软件 包 来 更 好 地 辅助 数据 抽象 。 这 提供 了 一 个 
抽象 层 。 数 据 和 操纵 它 的 方法 是 紧密 交织 在 对 象 中 的 。 相 反 ， 专 家 系统 语言 提供 灵活 、 健 壮 的 方法 去 
表示 知识 。 专 家 系统 允许 两 个 抽象 层 ， 数 据 抽 象 和 知识 抽象 (knowledge abstraction) ， 专 家 系统 语言 特 
别 地 把 数据 和 操作 数据 的 方法 分 离开 来 ， 这 种 分 离 的 一 个 例子 是 : 在 一 个 基于 规则 的 专家 系统 语言 中 ， 
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事实 (数据 抽象 ) 和 规则 (知识 抽象 ) 是 分 离 的 。CLIPS 还 提供 了 对 象 并 且 具 备 真正 的 面向 对 象 语言 
的 特性 。 

着 重点 的 不 同 也 导致 程序 设计 方法 上 的 不 同 。 由 于 在 过 程 语 言 中 数据 和 知识 的 紧密 交织 ， 程 序 员 
必须 仔细 描述 执行 的 顺序 。 然 而 ， 在 专家 系统 语言 中 数据 和 知识 的 明确 分 离 使 得 其 更 少 考虑 执行 顺序 
的 严格 控制 。 典 型 的 ， 如 推理 机 ， 就 是 一 段 完 全 独立 的 代码 块 ， 它 主要 用 来 把 知识 作用 到 数据 上 。 知 
识 和 数据 的 分 离 允 许 更 高 程度 的 并 行 性 和 模块 化 。 

决定 一 个 专家 系统 是 否 需 要 的 通常 方式 是 决定 你 是 否 想 把 一 个 人 类 专家 的 专门 知识 编 成 程序 。 假 
如 这 样 的 专家 存在 而 且 愿 意 合作 ， 那 么 专家 系统 的 方法 可 能 会 获得 成 功 。 同 样 的， 一 个 高 度 知识 密集 
型 并 且 不 具备 确定 性 的 任务 最 好 采用 专家 系统 工具 来 解决 。 

选择 一 种 专家 系统 语言 让 人 难以 抉择 ， 因 为 有 太 多 不 同 的 选择 。 尽 管 CLIPS 并 不 具备 其 他 语言 的 
所 有 特性 ， 但 它 简单 易学 ， 因 此 是 一 本 入 门 教科 书 的 较 好 选择 。 而 且 ，CLIPS 还 具备 程序 规模 小 和 在 
实时 响应 要 求 严格 时 执行 速度 快 等 优点 。 

除了 可 用 语言 的 选择 困惑 外 ， 用 来 描述 这 些 语言 的 术语 也 是 令 人 困惑 的 。 - 些 卖主 称 他 们 的 产品 为 
“工具 ”"， 其 他 一 些 则 称 作 “ 外 壳 *， 还 有 一 些 称 为 “集成 环境 "。 本 书 为 清楚 起 见 ， 定 义 一 些 术 语 如 下 。 

。 A (Language): 按照 某 种 特定 语法 书写 的 命令 的 翻译 器 。 专 家 系统 语言 会 提供 一 个 推理 机 去 

执行 该 语言 的 语句 。 依 赖 这 种 执行 ， 推 理 机 会 提供 正 向 链 、 反 向 链 推理 或 两 者 都 提供 。 在 这 种 
定义 下 ，LISP 不 是 一 种 专家 系统 语言 而 是 PROLOG. Kitt, FA LISP 写 一 种 专家 系统 语言 和 用 
PROLOG 写 人 工 智 能 语言 是 可 能 的 。 因 此 ， 你 甚至 可 以 用 汇编 语言 写 一 个 专家 系统 或 人 工 智 能 
语言 ， 只 是 要 考虑 开发 周期 、 便 利 、 可 维护 、 高 效 和 速度 这 些 问 题 。 

。 工具 (Tol): 语言 加 上 有 关 的 实用 程序 ， 以 使 应 用 程序 的 开发 、 调 试 、 交 付 更 方便 。 实 用 程序 

可 能 包括 文本 图 形 编 辑 器 、 调 试 器 、 文 件 管理 器 、 代 码 生 成 器 等 。 有 些 工具 允许 使 用 不 同 的 模 
板 ， 比 如 在 一 个 应 用 中 可 有 正 向 和 反 向 链 推理 。 

有 些 工具 可 能 和 实用 程序 集成 在 一 个 环境 中 ， 以 提供 给 用 户 一 个 统一 的 界面 。 这 种 方法 使 用 户 离 
开 当 前 环境 去 执行 任务 的 需求 降 到 最 小 。 例 如 ， 一 个 简单 的 工具 可 能 不 提供 文件 管理 方面 的 功能 ， 因 
此 用 户 不 得 不 退出 这 个 工具 去 执行 操作 系统 命令 。 一 个 集成 环境 使 环境 中 实用 程序 之 间 的 数据 交换 变 
得 容易 。 一 些 工 具 甚 至 不 需要 用 户 写 任何 代码 ， 只 需 按 表 和 表格 的 例子 输入 知识 ， 它 就 会 自动 生成 适 
当 的 代码 。 

。 3È (Shelb) :一 种 专门 工具 ， 为 某 些 类 型 的 应 用 而 设计 。 在 这 些 应 用 中 用 户 仅 仅 只 需 提供 知 

识 库 。 一 个 典型 的 例子 是 EMYCIN 外 壳 ， 它 是 通过 去 除 MYCIN 专家 系统 中 的 医学 知识 库 而 建 
立 的 。 

MYCIN 通过 反 向 链 推理 来 诊断 疾病 。 通 过 去 除 医 学 知识 ，EMYCIN 可 作为 一 种 外 壳 使 用 ， 它 可 
用 于 那些 使 用 反 向 链 推理 的 咨询 系统 。EMYCIN 外 壳 证 明了 MYCIN 软件 中 一 些 基本 部 件 如 推理 机 和 
用 户 界 面 的 可 重用 性 。 这 是 现代 专家 系统 开发 技术 上 非常 重要 的 一 步 ， 因 为 这 意味 着 对 每 一 新 的 应 用 ， 
再 也 不 必 从 头 开始 建立 一 个 专家 系统 。 如 今 ， 专 家 系统 工具 领域 已 经 具备 大 量 可 用 的 用 户 界面 和 组 件 。 

专家 系统 的 特点 表现 在 很 多 方面 ， 如 知识 的 表示 、 正 向 或 反 向 链 推理 、 不 确定 性 支持 、 假 设 推理 、 
解释 机 等 。 路 非 建立 过 大 量 的 专家 系统 ， 否 则 是 难以 体会 所 有 这 些 特点 的 ， 尤 其 是 那些 昂贵 工具 上 所 
具备 的 特点 。 学 习 专 家 系统 技术 的 最 好 方法 是 用 一 种 易学 的 语言 去 开发 一 些 系统 ， 然 后 当 你 需要 更 多 
功能 时 再 使 用 更 复杂 的 工具 。 


1.9 专家 系统 要 素 


一 个 典型 专家 系统 的 要 素 如 图 1.6 所 示 。 在 一 个 基于 规则 的 系统 中 ， 知 识 库 包 含 以 规则 形式 编码 
的 解决 问题 的 领域 知识 。 虽 然 规则 是 表示 知识 的 常用 形式 , 但 有 些 专家 系统 使 用 了 不 同 的 表示 ， 本 书 
将 在 第 2 章 讨 论 。 
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专家 系统 由 下 列 几 部 分 组 成 : 
。 HARE (user interface) 用 户 和 专家 系统 之 
间 的 通信 和 机制。 (规则 ) 
。 解释 机 (explanation facility) 一 一 解释 系统 的 推 
理 给 用 户 。 


。 工作 内 存 (working memory) 一 一 被 规则 所 使 用 
的 事实 的 全 局 数据 库 (global database)。 

。 推理 机 (inference engine) 通过 决定 那些 规则 
满足 事实 或 目标 ， 并 授予 规则 优先 级 ， 然 后 执行 
最 高 优先 级 规则 来 进行 推理 。 

。 WH (agenda) 由 推理 机 创建 的 一 个 规则 优 
先 级 表 ， 这 些 规则 匹配 工作 内 存 中 的 事实 或 。 LO 基于 规则 的 专家 系统 的 结构 
目标 。 








。 知识 获取 机 (knowledge acquisition facility) 为 用 户 建立 的 一 个 知识 自动 输入 方法 ， 以 代替 





知识 工程 师 去 编码 知识 。 


知识 获取 机 在 很 多 系统 中 是 一 个 可 选 的 功能 。 某 些 专家 系统 工具 可 以 通过 例子 归纳 学 习 ， 并 自动 
生成 规则 。 在 机 器 学 习 中 也 使 用 其 他 方法 如 ID3、C 4.5、C 5.1、 人 工 神 经 网 络 和 遗传 算法 等 来 产生 规 
则 。 机 器 学 习 产 生 规则 的 主要 问题 是 无 法 解释 为 什么 会 产生 这 样 的 结果 。 不 像 人 类 可 以 解释 一 个 规则 
的 产生 原因 ， 机 器 学 习 系统 无 法 解释 它们 的 行为 ， 因 此 可 能 产生 不 可 靠 的 结果 。 不 过 这 些 例子 通常 来 
自 适 于 判断 树 形式 的 列表 或 表格 数据 。 一 般 通 过 知识 工程 师 建立 的 规则 要 比 来 自 归纳 的 简单 规则 复杂 


得 多 。 


对 不 同 的 系统 ， 用 户 界面 可 以 是 简单 的 文本 显示 方式 ， 也 可 以 是 复杂 的 、 高 分 状 率 的 位 映射 显示 


方式 。 高 分 辨 率 显 示 一 般 用 来 模拟 一 个 带 按钮 和 显示 器 的 控制 板 。 


在 基于 规则 的 专家 系统 中 知识 库 又 叫 产生 式 存储 库 (production memory)。 作 为 一 个 简单 的 例子 ， 
考虑 决定 横 过 街道 的 问题 。 两 条 规则 的 产生 式 如 下 ， 箭 头 表 示 如 果 左 边 的 条 件 为 真 则 系统 执行 右边 的 


行为 。 
灯 是 红色 一 停止 
灯 是 绿色 一 走 
这 样 的 产生 式 规则 可 以 用 一 条 IF…THEN 伪 码 表达 ， 格 式 为 : 
规则 : 红 灯 
Ie 灯 是 红色 
THEN 停 下 来 
规则 :绿灯 
Ir 灯 是 绿色 
THEN 走 


每 条 规则 用 一 个 名 字 标 识 ， 后 面 跟 着 这 条 规则 的 IF 部 分 。 在 规则 IF A THEN 之 间 的 部 分 有 许多 
不 同 的 叫 法 ， 如 前 件 (antecedent)、 条 件 部 分 (conditional part)、 模 式 部 分 (pattern part)、 或 左 部 
(left-hand-side，LHS) ， 单 独 的 条 件 “ 灯 变 绿 ” 称 为 条 件 元 素 (conditional element) 或 一 个 模式 (pat- 


term)。 
下 面 给 出 几 个 真实 系统 中 的 规则 例子 。 
BoA APA UE (MARR) 的 MYCIN 系统 : 


IF 
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感染 体 是 血液 ,并且 
细菌 的 类 别 不 能 确切 知道 ,并 且 
细菌 的 染色 是 革 兰 氏 阴性 , 并 且 
细菌 的 外 形 是 杆 状 ,并 且 
病人 有 严重 发 烧 
THEN 


以 不 太 充分 的 证 据 (可 信 程 度 0.4) 说 明细 菌 的 类 别 是 假 单 胞 细菌 属 
用 来 配置 DEC VAX 计算 机 系统 的 XCON/RI 系统 : 
IF 
当前 环境 是 分 配 设 备 给 总 线 组 件 , 并 且 
有 一 个 未 分 配 的 双 端 口 磁盘 驱动 器 , 并 且 
所 需 控 制 器 的 类 别 是 知道 的 , 并 且 
每 个 控制 器 没有 任何 设备 分 配给 它 , 并且 
这 些 控制 器 能 够 支持 的 设备 数目 已 知 
THEN 
分 配 磁 盘 驱 动 器 给 每 一 个 控制 器 ,并 且 
记 下 相关 的 控制 器 对 , 其 中 每 一 个 控制 器 支持 一 个 驱动 器 
在 基于 规则 的 系统 中 ， 推 理 机 决定 哪些 规则 的 前 件 被 事实 满足 。 专 家 系统 中 用 来 求解 问题 的 两 个 
常用 推理 策略 是 正 向 链 (forward chaining) 和 反 向 链 (backward chaining)。 为 了 特殊 需要 而 使 用 的 其 他 
方法 可 能 包括 : 手段 -目的 分 析 、 问 题 简 化 、 回 调 、 规 划 - 生 成 -测试 、 逐 级 规划 和 最 小 满足 原则 、 约 束 
处 理 。 
正 向 链 是 从 事实 到 结论 的 推理 ,例如 ， 如 果 你 离 家 之 前 看 到 外 面 正在 下 雨 (事实 )， 那 么 你 应 该 拿 
FE (Bie). 
反 向 链 则 是 从 假设 ， 即 要 证 明 的 结论 ， 到 事实 的 推理 。 例 如 ， 假 如 你 看 到 外 面 有 人 穿着 湿 鞋 ， 拿 
着 爹 进来 ， 你 的 假设 就 是 正在 下 雨 。 为 了 支持 这 个 假设 ， 你 可 以 问 这 个 人 是 否 真 的 在 下 雨 。 如 果 回 答 
是 ,那么 假设 证 明 为 真 而 成 为 事实 。 正 如 前 面 所 述 ， 一 个 假设 可 以 当 作 一 个 真 伪 尚 未 确定 的 事实 ， 它 
可 作为 一 个 要 证 明 的 目标 。 
根据 不 同 的 设计 ， 推 理 机 既 可 以 作 正 向 链 、 也 可 以 作 反 向 链 推理 . 例如 ，OPSS 和 CLIPS 是 正 向 
链 推 理 ， 而 PROLOG 则 是 反 向 链 推理 。 而 由 Paul Haley 开发 的 另 一 个 版 本 的 CLIPS， 称 为 Eclipse， 两 
者 都 提供 。 推 理 机 的 选择 取决 于 问题 的 类 型 。 诊断 问题 最 好 用 反 向 链 推理 ， 而 预测 、 监 视 、 控 制 则 最 
好 使 用 正 向 链 推理 。 不 管 怎 样 ， 使 用 一 个 功能 更 强 的 工具 需要 存储 容量 和 执行 速度 的 牺牲 ， 因 为 有 更 
多 的 代码 来 构成 该 工具 。 设计 CLIPS 的 目的 是 用 来 “学 习 和 体验 "， 因 此 它 会 用 最 快 的 速度 执行 并 适 
用 于 小 存储 器 件 例如 ROM 的 应 用 开发 。 尽管 使 用 具有 512 Mbyte AF (RAM) 台式 计算 机 的 人 通常 
不 会 意识 到 这 一 点 ， 但 开发 一 个 像 智 能 远程 控制 或 微波 感应 器 等 产品 需要 ROM 便宜 的 永久 存储 。 在 
储 的 价格 随 着 容量 下 降 ， 对 消费 产品 来 说 ， 存 储 越 小 越 具 竞争 力 。CLIPS 可 以 产生 一 个 足够 小 的 可 运 
TF CISL BREA BI) ROM 中 . 
工作 记忆 可 能 包含 关于 交通 灯 当 前 状态 的 事实 如 “ 灯 是 绿 ” 或 “ 灯 是 红 ”， 这 些 事实 可 能 一 个 或 者 
两 个 同时 在 工作 记忆 中 ， 如 果 交 通 灯 工作 正常 ， 则 只 有 一 个 事实 在 记忆 中 : 然而 ， 如 果 交 通 灯 有 故障 ， 
那么 有 可 能 两 个 事实 都 在 记忆 中 。 注 意 知 识 库 和 工作 内 存 的 区 别 . 事实 彼此 之 间 不 会 相互 作用 ,“ 灯 是 
绿 ” 这 个 事实 对 “和 灯 是 红 的 ”这 个 事实 没有 任何 作用 。 不 过 ， 关 于 交通 灯 的 知识 会 表明 如 果 两 个 事实 
同时 存在 ， 那 么 灯 有 故障 。 
如 果 有 一 个 事实 “ 灯 是 绿 ” 在 工作 记忆 中 ， 那 么 推理 机 会 注意 到 这 个 事实 满足 绿灯 规则 的 条 件 部 
分 并 将 这 条 规则 放 到 议程 中 。 如 果 一 条 规则 有 多 个 模式 ， 那 么 只 有 所 有 的 模式 同时 得 到 满足 时 才能 把 
它 放 到 议程 中 。 有 些 模式 被 满足 还 要 通过 在 工作 记忆 中 指定 某 些 没有 的 事实 。 
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使 所 有 模式 得 到 满足 的 规则 称 作 是 被 激活 的 或 者 是 被 例 化 的 ， 多 个 被 激活 的 规则 可 同时 在 议程 中 。 
在 这 种 情况 下 推理 机 必须 选择 一 个 规则 去 触发 它 。 术 语 “ 和 触发” 来自 神经 生理 学 。 当 受到 刺激 时 ， 一 
个 独立 的 神经 细胞 或 神经 元 会 产生 一 个 电信 号， 除非 达到 一 定数 量 的 刺激 才能 够 引起 神经 元 在 短 时 间 
内 再 次 触发 ， 这 种 现象 叫 “反射 ”。 为 了 避免 无 谓 的 循环 ， 基 于 规则 的 专家 系统 采用 了 反射 方法 。 即 ， 
如 果 绿 灯 规 则 在 同样 的 事实 上 一 次 又 一 次 地 被 触发 ， 则 专家 系统 不 做 任何 事情 。 

有 很 多 不 同 的 方法 实现 反射 。 在 OPS 专家 系统 语言 中 ， 每 一 个 事实 进入 工作 记忆 时 ， 都 赋予 它 
一 个 叫 时 间 标 签 的 唯一 标识 。 在 规则 被 一 个 事实 触发 后 ， 推 理 机 就 不 会 使 它 在 那个 事实 上 再 次 触发 ， 
因为 它 的 时 间 标 签 已 经 用 过 了 。 

THEN 后 面 的 部 分 是 规则 触发 时 将 要 执行 的 一 系列 行为 (actions)。 规 则 的 这 部 分 称 作 后 件 (con- 
sequent) RAAB (right-hand side，RHS)。 当 红 灯 规 则 触发 时 ， 它 的 行为 停止) 就 被 执行 。 类 似 地 ， 
当 绿灯 规则 触发 ， 它 的 行为 是 走 。 一 些 特定 行为 通常 包含 从 工作 记忆 中 增加 、 删 除 一 些 事实 或 是 打印 
结果 。 这 些 行为 的 格式 依赖 于 专家 系统 语言 的 语法 。 例 如 ,在 CLIPS 中 ,增加 一 个 叫 “stop” 的 事实 
到 工作 记忆 中 的 行为 是 〈assert stop), HF LIS 的 缘故 ， 其 模式 和 动作 需要 用 括号 括 起 来 。 

推理 机 不 停 地 循环 (cycles) 工作 。 描 述 这 种 循环 有 不 同 的 名 字 ， 如 识别 动作 循环 (recognize-act 
cycle) 、 选 择 执 行 循环 (select-execute cycle)、 环 境 反 应 循环 (situation-response cycle) 和 环境 行为 循环 
(situation-action cycle) 等 。 不 管 叫 什 么 名 字 ， 推 理 机 都 会 重复 执行 一 组 任务 ， 直 到 某 种 执行 终止 的 判 
定 标准 出 现 。 其 循环 的 任务 列 在 下 面 的 伪 码 中 ,包括 冲突 归结 (conflict resolution), BATE (act), Be 
(match) 和 终止 检测 (check for halt). 


WHILE 还 没 终止 


冲突 归结 (conflict resolution): 如 果 有 激活 者 ， 那 么 选择 有 最 高 优先 级 的 一 个 。 否 则 终止 。 

动作 (act): 顺序 执行 选中 的 激活 者 右 部 的 行为 ， 在 这 个 循环 中 那些 改变 工作 记忆 的 激活 者 有 即 
时 的 效果 。 从 议程 中 删 去 刚刚 触发 过 的 激活 者 。 

匹配 (match): 通过 检测 任何 一 个 规则 的 左 部 是 否 被 满足 来 更 新 议程 。 如 果 满 足 ， 激 活 它 们 。 如 
果 规 则 的 左 部 不 再 满足 则 删除 它们 。 

终止 检测 (check for halt): 如 果 一 个 终止 行为 被 执行 或 给 出 一 个 中 断 命令 ， 那 么 终止 。 


END-WHILE 


接受 一 条 新 的 用 户 命令 (Accept a new user command) 

多 个 规则 可 能 在 一 个 循环 中 被 激活 并 放 到 议程 中 。 另 外 ， 有 些 激活 者 会 由 于 前 一 次 的 循环 而 留 在 
议程 中 ， 除 非 它 们 的 左 部 不 再 被 满足 。 因 此 激活 者 的 数目 在 执行 过 程 中 会 不 同 。 有 的 程序 ， 一 个 激活 
者 可 能 总 在 议程 中 ,但 却 从 来 没有 被 选中 去 触发 。 同 样 地 ， 一 些 规则 可 能 从 来 没有 被 激活 。 在 这 些 情 
况 下 ， 应 该 重新 检查 这 些 规则 ， 看 其 是 否 必要 或 其 模式 是 否 正确 。 

推理 机 首先 执行 在 议程 中 有 最 高 优先 级 的 激活 者 的 行为 ， 然 后 是 次 优先 级 的 激活 者 ， 这 样 直 到 没 
有 激活 者 剩 下 。 在 专家 系统 外 壳 中 ， 有 各 种 优先 级 方式 。 一 般 ， 所 有 外 这 都 让 知识 工程 师 去 定义 优先 
级 准则 。 

当 不 同 的 激活 者 有 同一 优先 级 而 推理 机 必须 决定 其 中 哪 一 个 被 触发 时 ， 议 程 会 发 生 冲 突 。 不 同 的 
外 壳 有 不 同 的 解决 方法 。 在 早期 的 Newel 和 Simon 范例 里 ， 那 些 首先 进入 系统 的 规则 有 最 高 的 默认 优 
ER, E OPS 里 ， 对 模式 越 复杂 的 规则 给 予 越 高 的 优先 级 。 在 CLIPS 里 ， 除 非 知 识 工 程 师 分 配 不 同 
的 优先 级 给 规则 ， 否 则 它们 有 同样 的 默认 优先 级 。 

此 时 ， 控 制 返回 到 命令 解释 器 的 顶层 (top-level) ， 以 便 用 户 下 达 更 多 指令 给 专家 系统 外 壳 。 顶 层 
是 用 户 与 专家 系统 通信 的 默认 模式 , 它 的 提示 信息 为 “接受 一 条 新 的 用 户 命令 ”， 只 有 顶层 才能 接受 新 
命令 。 


顶层 是 外 过 的 用 户 界面 ， 通 过 它 来 开发 专家 系统 应 用 。 为 了 专家 系统 操作 的 便利 ， 通 常设 计 非 党 
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复杂 的 用 户 界 面 。 例 如 ， 为 了 一 个 制造 车 间 的 控制 ， 专 家 系统 可 能 需要 用 户 界 面 以 高 精度 、 按 位 彩色 
模式 来 显示 一 个 车 间 图 表 ， 警 告 和 状态 信息 可 能 以 模拟 响 铃 和 闪烁 灯光 的 方式 实现 。 事 实 上， 花费 在 
设计 和 实现 用 户 界面 上 的 努力 比 在 专家 系统 知识 库 上 的 更 多 ,特别 是 在 设计 原型 时 。 根 据 专 家 系统 功 
能 的 不 同 ， 用 户 界面 可 通过 规则 或 可 被 专家 系统 调用 的 另 一 种 语言 来 实现 。 例 如 ， 由 Ernest Friedman- 
Hill (Friedman Hill 03) 开发 的 JAVA 版 CLIPS， 称 为 Jess， 能 方便 地 调用 Java 类 实现 GUI， 且 实现 起 
来 更 加 容易 ， 因 为 Java 语言 带 有 很 多 支持 这 方面 的 对 象 。 

专家 系统 的 一 个 关键 特征 是 解释 机 允许 用 户 询问 系统 怎样 得 出 某 个 结论 和 为 什么 需要 某 种 信息 。 
系统 怎样 得 出 某 个 结论 这 个 问题 在 一 个 基于 规则 的 系统 中 是 容易 回答 的 。 因 为 激活 规则 的 历史 和 工作 
记忆 的 内 容 能 够 保存 在 一 个 栈 中 。 这 一 点 在 人 工 神经 网 络 、 遗 传 算法 或 其 他 相关 系统 中 并 不 存在 。 R 
管 某 些 系统 尝试 提供 解释 能 力 ， 但 不 如 专家 系统 清楚 明白 。 复 杂 的 解释 机 可 人 允许 用 户 问 “如 果 …… 会 
怎样 ”类 型 的 问题 ， 以 便 通过 假设 去 探索 推理 路 径 。 


1.10 产生 式 系 统 


当今 最 流行 的 专家 系统 类 型 是 基于 规则 的 系统 ， 基 于 规则 的 系统 不 是 采用 静态 的 断言 来 表达 知识 ， 
而 是 以 多 个 规则 的 方式 说 明 在 不 同 的 情况 下 有 什么 样 的 结果 。 一 个 基于 规则 的 系统 包括 IF…THEN 规 
则 、 事 实 和 一 个 解释 器 ， 该 解释 器 根据 工作 记忆 中 的 事实 来 决定 哪 条 规则 被 激发 。 
基于 规则 的 系统 分 为 两 大 类 : 正 向 链 和 反 向 链 。 一 个 正 向 链 系统 从 已 知 的 初始 事实 出 发 ,通过 使 
用 规则 来 得 到 新 的 结论 或 做 出 某 种 行动 。 反 向 链 系统 则 从 某 个 假设 或 要 证 明 的 目标 出 发 ， 不 断 寻 找 能 
使 假设 成 立 的 规则 ， 这 个 过 程 可 能 产生 新 的 子 目标 以 便 把 大 的 问题 分 成 更 容易 证 明 的 小 问题 。 正 向 链 
系统 以 数据 驱动 为 主 ， 而 反 向 链 系统 是 目标 驱动 的 (Debenham 98)。 在 后 面 的 章节 中 会 有 更 多 的 相关 
讨论 ， 也 会 给 出 一 个 反 向 链 在 CLIPS 中 是 如 何 工作 的 复杂 例子 。 
规则 的 流行 主要 有 以 下 几 个 原因 
。 模块 化 特征 。 规 则 使 得 知识 容易 封装 并 不 断 扩充 。 
。 解释 机 制 。 通 过 规则 容易 建立 解释 机 ， 这 是 因为 一 个 规则 的 前 件 指明 了 激活 这 个 规则 的 条 件 。 
通过 追踪 已 触发 的 规则 ， 解 释 机 可 以 得 到 推出 某 个 结论 的 推理 链 。 
。 类 似 人 类 认 知 过 程 。 基 于 Newell 和 Simon 的 工作 ， 规 则 似乎 是 模拟 人 类 怎样 解决 问题 的 一 个 自 
然 方 法 。 规 则 的 简单 表示 方式 “IF…THEN” 使 得 容易 向 获取 他 们 知识 的 专家 解释 知识 的 结构 。 
规则 的 起 源 最 早 可 追溯 20 世纪 40 年 代 ， 由 于 基于 规则 系统 的 重要 性 ， 有 必要 回顾 一 下 它 的 发 展 ， 
这 将 给 你 一 个 更 全 面 的 认识 ， 为 什么 基于 规则 的 系统 对 专家 系统 这 么 有 用 。 


Post 产生 式 系统 


产生 式 系统 首先 由 Post 在 符号 逻辑 中 使 用 ， 它 证 明了 这 一 重要 和 令 人 惊奇 的 结果 ， 即 任何 数学 或 
人 逻辑 系统 都 能 被 写成 某 种 产生 式 规 则 系统 。 这 一 结论 表明 了 大 多 数 类 型 的 知识 都 可 以 由 产生 式 规则 来 
表达 。 应 用 重 写 规则 (rewrite rules) ， 还 可 以 定义 语言 的 语法 。 计 算 机 语言 普遍 使 用 BNF 范式 这 一 产 
生 式 规则 来 形式 来 定义 像 列 在 附录 D 中 的 CLIPS。 

Post 的 基本 思想 是 ， 任 何 数学 或 逻辑 系统 都 只 是 一 组 特定 规则 ， 用 来 将 一 组 符号 转换 成 另 一 组 符 
号 。 也 就 是 说 ， 提 供 一 个 输入 字符 串 ， 即 前 件 ， 产 生 式 规 则 能 够 产生 一 个 新 的 字符 串 ， 即 结果 。 这 一 
思想 也 适用 于 程序 和 专家 系统 ， 即 初始 符号 串 是 输入 数据， 输出 串 则 是 转换 后 的 输入 。 

举 个 简单 的 例子 ， 比 如 输入 串 是 “病人 发 烧 ” 那 么 输出 串 将 是 “服用 阿司匹林 ”。 注 意 到 这 里 的 串 
并 没有 特别 的 含义 。 也 就 是 说 ， 串 的 使 用 是 基于 语法 结构 而 非 语义 ， 你 也 不 必 懂 得 发 伐 ， 阿 司 匹 林 和 
病人 所 表示 的 意义 。 人 们 知道 在 现实 世界 里 这 些 字符 串 所 代表 的 意思 ， 但 是 一 个 产生 式 系统 只 懂得 将 
一 个 字符 串 转换 成 另 一 个 字符 串 ， 这 个 例子 的 产生 式 规则 如 下 : 


前 件 一 结果 人 发 烧 了 一 服用 阿司匹林 
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箭头 表示 从 一 个 字符 串 到 另 一 个 字符 串 ， 我 们 可 以 用 正 …THEN 语句 来 解释 ， 即 如 果 发 烧 了 ， 那 
么 服用 阿司匹林 。 

产生 式 规则 还 可 包括 多 个 前 件 。 例 如 ， 

BRT 并且 

超过 102"F 一 看 医生 

连接 的 “并 且 ” 并 不 是 字符 串 部 分 ， 它 只 表示 规则 有 多 个 前 件 。 

一 个 Post 产生 式 系统 包括 一 组 产生 式 规则 ， 如 下 : 

(1) 汽车 不 能 发 动 一 检查 电池 

(2) 汽车 不 能 发 动 一 检查 汽油 

G) 检查 电池 和 电池 坏 了 一 换 电池 

(4) 检查 汽油 各 没 汽油 了 一 加 油 

如 果 有 字符 串 “ 汽 车 不 能 发 动 "， 则 规则 (1) 和 (2) 可 以 产生 字符 串 “ 检 查 电池 ”和 “检查 汽 
油 ”。 然 而 ,并 没有 控制 机 制 将 这 些 规则 作用 于 串 ， 也 许 只 有 一 个 规则 能 被 应 用 或 者 两 个 或 者 一 个 都 没 
有 。 如 果 有 另 一 个 串 “ 电 池 坏 了 ”和 串 “ 检 查 电池 ”， 则 规则 (3) 将 产生 字符 串 “ 换 电池 ”。 

规则 的 次 序 并 没有 特别 规定 ， 这 个 例子 的 规则 也 能 写成 如 下 次 序 ， 但 系统 仍 是 同一 系统 。 

(4) 检查 汽油 和 没 油 了 一 加 油 

(2) 汽车 不 能 发 动 一 检查 汽油 

(1) 汽车 不 能 发 动 检 查 电 池 

(3) 检查 电池 和 没 电 了 一 换 电 池 

虽然 Post 产生 式 规则 对 建立 专家 系统 的 某 些 基 本 部 分 很 有 用 ， 但 对 于 编写 实际 的 程序 来 说 是 不 够 
的 ， 其 根本 缺陷 在 于 缺乏 控制 策略 (control strategy) 来 指导 规则 应 用 ， 一 个 Post 系统 允许 规则 以 任何 
方式 作用 于 字符 串 ， 因 为 它 没有 规定 如 何 运用 规则 。 

举 个 例子 ， 比 如 你 去 图 书馆 找 某 一 本 关于 专家 系统 的 书 。 在 图 书馆 里 ， 你 从 书架 上 查找 你 要 的 那 
本 书 ， 如 果 图 书馆 非常 大 ， 你 得 花 很 长 时 间 找 到 这 本 书 。 即 使 你 找到 了 一 本 书 中 关于 专家 系统 的 这 一 
部 分 ， 但 该 书 的 下 一 部 分 可 能 会 带 你 到 另 一 个 完全 不 同 的 部 分 ， 比 如 法 国 亮 饪 。 如 果 你 需要 从 第 一 本 . 
书 中 找到 资料 来 确定 你 需要 找 的 第 二 本 书 ， 情 况 会 变 得 很 糟 ， 对 第 二 本 书 的 搜寻 同样 会 花费 你 大 量 
时 间 。 


马尔 可 夫 算 法 


使 用 产生 式 规 则 的 另 一 个 好 处 是 Markov 发 现 的 ，Markov 给 出 了 一 个 产生 式 系统 的 控制 结构 。 马 
尔 可 夫 算 法 (Markov algorithm) 就 是 把 一 组 按 优先 级 排序 的 产生 式 顺 序 作 用 于 输入 串 。 如 果 最 高 优先 
级 的 规则 不 适用 ， 则 尝试 次 高 优先 权 的 规则 ， 如 此 类 推 。 如 果 (1) 最 后 的 产生 式 规则 不 适用 输入 串 ， 
(2) 使 用 了 一 个 终止 产生 式 ， 则 算法 结束 。 

马尔 可 夫 算 法 也 适用 于 一 个 串 中 从 左 到 右 的 子 串 ， 例 如 ， 产 生 式 系统 包含 一 条 规则 ; 


AB 一 HIJ 


当 输入 字符 串 GABKAB 时 ， 产 生 新 串 GHJKAB。 然 后 产生 式 再 作用 于 新 串 ， 最 后 结果 为 GHI- 
JKHIJ 

设 和 代表 空 串 (null string), MP ÆR 

ATA 

删除 字符 串 中 所 有 字母 A 

有 些 特殊 符号 可 表示 任 一 单个 符号 ， 设 由 小 写字 母 a，b，c 等 来 表示 ， 它 们 在 专家 系统 中 是 一 个 
重要 的 组 成 部 分 ， 例 如 ， 规 则 ， 
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AXR ~ BXA 

将 互 换 A 与 B。 

希腊 字母 «<，B 等 将 用 于 表示 字符 串 ， 使 用 它们 是 由 于 其 不 同 于 普通 字母 。 

下 面 给 出 了 一 个 使 用 马尔 可 夫 算 法 把 输入 字符 串 的 第 一 个 字母 移 到 末尾 的 例子 ， 规 则 的 优先 次 序 
为 〈1) 最 高 ，(2) 其 次 ， 如 此 下 去 。 

(1) oxy ~> yax 

(2) 以 一 入 

(3) a> 

表 1.11 列 出 了 对 输入 串 ABC 的 执行 顺序 。 

表 1.11 马尔 可 夫 算法 的 执行 过 程 追踪 


规 W 成 功 与 否 


4} 
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1 
2 
3 
1 
1 
1 
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这 里 a 类 似 传 统 程序 设计 语言 中 的 一 个 临时 变量 。 但 是 ，a 并 不 是 用 来 存放 一 个 值 ， 而 是 用 来 标明 
一 个 位 置 ， 以 使 代 换 输入 串 的 过 程 能 进行 下 去 。 一 旦 完成 任务 ，a 将 通过 规则 2 消除 ， 当 规则 2 被 应 用 
时 ,程序 就 结束 ,这 是 由 于 规则 2 是 一 个 终止 规则 。 隐 马尔 可 夫 模 型 (HMM) 广泛 使 用 于 使 用 模式 识 
别 的 应 用 中 ， 例 如 语音 识别 。 


Rete 算法 


注意 到 马尔 可 夫 算 法 具有 明确 的 控制 策略 ， 它 总 是 使 用 最 高 优先 级 的 规则 。 只 要 最 高 优先 级 的 规 
则 被 满足 ， 就 使 用 ; 否则 ， 就 尝试 较 低 优先 级 的 规则 。 虽 和 然 马 尔 可 夫 算 法 可 作为 专家 系统 的 基本 准则 ， 
但 对 具有 大 量规 则 的 系统 来 说 它 是 低 效 的 。 效 率 是 一 个 最 重要 的 问题 ， 不 管 一 个 系统 的 其 他 方面 如 何 
好 ， 如 果 用 户 响应 时 间 长 ， 则 这 个 系统 就 不 会 被 使 用 。 我 们 需要 这 样 一 个 算法 ， 它 不 必 去 顺序 尝试 每 
一 个 规则 。 

这 个 问题 的 解决 办 法 之 一 是 Rete 算法 (Rete Algorithm)， 它 是 1979 年 由 Carnegie-Mellon 大 学 的 
Charles L. Forgy 在 其 关于 OPS 专家 系统 外 过 的 博士 论文 中 提出 的 。 术 语 Rete 来 源 于 拉丁 文 rete， 是 网 
的 意思 。Rete 算法 通过 在 网 络 上 存储 规则 信息 来 提高 反应 和 规则 激发 速度 ， 比 起 传统 的 一 个 一 个 检查 
大 量 的 IF…THEN 语句 快 得 多 。Rete 算 法 是 一 个 动态 的 数据 存储 结构 ， 类 似 标准 的 B+ 树 ， 可 以 自发 
优化 查询 。 

Rete 算法 是 一 个 非常 快速 的 模式 匹配 器 ， 它 是 通过 把 有 关 规 则 的 信息 在 存储 器 中 以 网 络 方式 存放 
来 获取 速度 的 。Rete 算法 通过 限制 一 个 规则 激发 后 重新 计算 冲突 集合 的 耗费 来 提高 正 向 链 规则 系统 的 
速度 。 其 缺点 是 需要 较 多 的 存储 空间 ， 但 在 今天 这 已 不 成 问题 ， 因 为 存储 器 已 非常 便宜 。Rete 利用 下 
面 两 个 经 验 总 结 ， 并 把 它们 与 其 数据 结构 相 结合 。 

时 间 宛 余 性 一 一 一 个 规则 的 激发 通常 只 改动 了 少量 事实 ， 而 每 个 改动 只 影响 了 少量 规则 。 

结构 相似 性 一 一 相同 的 模式 通常 在 不 只 一 个 规则 的 左边 出 现 。 

如 果 有 成 千 上 万 条 规则 ， 那 么 计算 机 逐个 去 检查 每 条 规则 是 否 会 被 激发 是 非常 低 效 的 。Rete 算法 
使 专家 系统 工具 在 计算 速度 低下 的 20 世纪 70 年 代 可 以 投入 实际 使 用 。 今 天 ，Rete 算法 仍 对 一 个 包含 
较 多 规则 的 专家 系统 的 快速 执行 非常 重要 。 
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在 每 个 识别 动作 循环 中 ，Rete 算法 不 是 用 事实 去 匹配 每 一 个 规则 ， 而 是 仅仅 考察 那些 有 变化 的 匹 
配 。 由 于 在 每 一 个 循环 中 ， 那些 没 有 变化 的 数据 可 忽略 ， 因 此 大 大 提高 了 事实 与 前 件 的 匹配 速度 。 在 
CLIPS 一 章 中 ,我 们 将 进一步 讨论 这 一 点 。 快 速 模式 匹配 算法 ， 如 Rete 算法 等 英 定 了 专家 系统 走向 实 
际 应 用 的 基础 。 图 1.7 总 结 了 现代 基于 规则 的 专家 系统 的 一 些 基本 技术 。 


基于 规则 的 专家 系统 








， 规则 右 部 





产生 式 规 则 





图 1.7 现代 基于 规则 的 专家 系统 的 一 些 基本 技术 


1.11 过 程 化 程序 规范 


程序 规范 可 分 为 过 程 化 与 非 过 程 化 。 图 1.8 是 语言 的 过 程 化 规范 的 分 类 (taxonomy)， 图 1.9 是 非 
过 程 化 规范 的 分 类 。 它 们 例 示 了 其 他 规范 与 专家 系统 的 关系 ,但 只 是 一 般 导向 而 不 是 严格 定义 。 例 如 
CLIPS 基于 规则 ,但 是 也 可 以 用 CLIPS 写 出 一 个 完全 面向 对 象 的 专家 系统 ， 或 混合 了 规则 和 对 象 的 系 
统 。 一 些 规范 与 语言 可 以 属于 多 种 类 别 , 例如， 有 些 被 认为 是 函数 式 而 有 些 被 认为 是 说 明 性 。 
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C++ | Java | LISP | 
图 1.8 过 程 化 语言 
非 过 程 化 语言 








非 说 明 性 


逻辑 基于 规则 的 基于 框架 的 | 基于 归纳 的 | 


图 1.9 非 过 程 化 语言 


算法 (algorithm) 是 一 种 在 有 限 步 内 解决 问题 的 方法 。 一 个 算法 的 程序 实现 就 是 一 个 过 程 化 程序 
(procedural program) 。 术 语 算法 程序 、 过 程 化 程序 以 及 传统 程序 经 常 交换 使 用 ， 用 于 表达 非 人 工 智能 
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程序 。 过 程 化 程序 的 一 种 通常 定义 是 其 按 顺 序 执行 。 一 个 语句 接着 一 个 语句 ， 直 到 遇 到 分 支 指令 。 过 
程 化 程序 的 另 一 个 常用 的 代名词 是 顺序 程序 。 然 而 ， 顺 序 程序 这 个 术语 当 所 有 的 现代 程序 语言 支持 递 
归 时 ， 其 在 应 用 上 就 受到 很 多 限制 。 因 为 ， 这 些 程序 不 可 能 严格 地 按 顺 序 执行 。 

过 程 化 程序 的 一 个 独特 特点 是 必须 精确 地 说 明 一 个 问题 的 解决 是 如 何 编码 的 ， 甚 至 代码 生成 器 也 
必须 产生 过 程 化 代码 。 在 某 种 意义 上 ， 代 码 生成 器 的 使 用 是 非 过 程 化 (nonprocedural) 程序 设计 ， 因 为 
它 去 掉 了 程序 员 所 写 的 大 部 分 或 全 部 过 程 化 程序 代码 。 非 过 程 化 程序 设计 的 目的 就 是 只 需 程序 员 说明 
目的 而 让 系统 决定 如 何 来 实现 它 。 


命令 式 程序 设计 


术语 命令 式 (imperative) 与 面向 语句 (statement-oriented) 是 同 义 的 。 比 如 C 语言 就 具有 一 种 明显 
的 特点 ， 那 就 是 语句 是 命令 式 的 ， 它 告诉 计算 机 怎么 做 。 在 面向 对 象 的 C++ 语言 中 ， 对 象 可 以 被 使 
用 ， 对 象 之 间 可 以 传送 信息 。 因 此 ， 一 个 面向 对 象 程序 的 执行 类 似 于 一 个 事件 驱动 的 系统 ， 而 不 像 一 
个 命令 驱动 的 程序 流 ， 从 头 到 尾 顺 序 执行 。 

命令 驱动 程序 规范 是 基于 图 灵机 和 汉 诺 伊 曼 寄存 器 和 存储 结构 的 机 器 的 抽象 。 这 类 机 器 的 核心 是 
可 更 新 存储 (store) 概念 。 变 量 和 赋值 是 其 在 程序 语言 中 的 具体 体现 。 存 储 是 程序 操作 的 对 象 。 命 令 
式 程序 语言 具有 丰富 的 命令 以 编码 和 操作 存储 。 每 一 个 命令 程序 语言 都 定义 了 一 种 特定 的 硬件 视图 。 
这 些 视图 非常 明确 ， 就 是 通常 所 说 的 Pascal 虚拟 机 或 者 Java 虚拟 机 ， 其 执行 的 字 节 码 可 以 在 任何 硬件 
平台 上 运行 。 字 节 码 的 可 移植 性 使 Pascal 在 20 世纪 70 年 代 和 80 年 代 获 得 巨大 成 功 ， 直 到 Java 使 用 了 
相同 的 系统 。 事 实 上 ， 一 个 编译 器 就 是 实现 了 实际 硬件 和 操作 系统 支持 的 程序 语言 定义 的 虚拟 机 。 

在 命令 程序 语言 中 ， 一 个 名 字 可 以 被 赋予 一 个 值 ， 稍 后 又 被 赋予 另 一 个 值 。 所 有 名 字 和 相关 的 值 
以 及 程序 中 的 控制 区 域 构 成 了 状态 (state)。 状 态 是 连接 位 置 和 值 的 存储 的 一 个 逻辑 模型 。 在 执行 过 程 
中 ， 程 序 可 以 被 描述 为 从 一 个 初始 状态 通过 一 系列 中 间 状 态 到 达 最 终 状 态 的 过 程 。 而 这 中 间 的 状态 变 
化 取决 于 操作 参数 、 输 入 和 命令 序列 。 

在 冯 :' 诺 依 曼 体系 中 ， 命 令 式 语言 是 程序 员 编写 汇编 语言 的 一 种 方式 。 命 令 语言 非常 支持 变量 、 赋 
值 操作 及 循环 ， 这 些 都 是 低层 操作 ， 现 代 语 言 企 图 用 递归 、 子 程序 、 模 块 、 包 等 来 代替 。 命 令 语言 还 
非常 强调 严格 的 控制 结构 并 常常 采用 自 顶 向 下 “(top-down) 的 程序 设计 。 

所 有 语言 都 有 这 样 一 个 重要 的 问题 ， 那 就 是 如 何 保 证 程序 的 正确 性 (在 第 2 章 中 将 详细 讨论 )。 从 
人 工 智能 的 观点 来 看 ， 另 一 个 重大 问题 是 命令 式 语言 不 是 一 种 高 效 的 工具 。 因 为 命令 式 语言 是 依据 冯 。… 
诺 依 曼 体 系 结构 的 ， 所 以 它 非常 适合 数值 计算 而 不 适合 于 符号 处 理 。 然 而 命令 式 语言 、C 和 面向 对 象 
语言 C++ 、Java 已 被 用 作 编 写 专 家 系统 外 过 的 底层 语言 ， 这 些 语言 和 用 它们 所 实现 的 外 过 在 一 般 通 用 
机 上 的 运行 比 用 LISP 实现 的 早期 外 壳 要 高 效 的 多 。 

由 于 它们 的 顺序 性 ， 命 令 语言 对 于 直接 实现 专家 系统 特别 是 基于 规则 的 系统 并 不 很 有 效 。 作 为 这 
个 问题 的 说 明 ， 考 虑 一 个 具有 成 百 上 千 条 规则 的 现实 世界 问题 。 例 如 ，DEC 用 于 配置 计算 机 系统 的 
XOON 系统 目前 其 知识 库 具 有 7000 条 规则 。 早 期 使 用 FORTRAN, BASIC 来 编写 代码 ， 但 不 成 功 ， 直 
至 使 用 专家 系统 方法 才 获 得 成 功 。 一 个 专家 系统 工具 ， 如 CLIPS， 使 建立 一 个 大 型 的 基于 规则 的 专家 
系统 比 使 用 第 三 代 语言 或 面向 对 象 语言 java、C++ 或 C# 更 加 容易 。 要 想 充 分 体验 专家 系统 语言 的 优 
点 ， 你 得 尝试 编写 代码 。 如 何在 CLIPS 中 编写 代码 将 在 本 书 的 第 2 部 分 中 讲解 。 

编写 这 些 知识 的 代码 在 命令 语言 里 需要 7000 个 下 …THEN 语句 或 一 个 很 长 的 CASE 语句 ， 如 果 这 样 
的 话 ， 效 率 将 是 -- 个 主要 的 问题 ， 因 为 在 每 一 识别 动作 循环 中 ， 所 有 的 7000 个 规则 都 需要 匹配 ， 而 且 推 
理 机 和 所 有 的 识别 动作 循环 都 得 用 命令 语言 来 编写 。 而 且 情 况 比 仅仅 编写 7000 条 规则 复杂 得 多 ， 因 为 许 
多 规则 将 被 其 他 的 规则 限制 。 例 如 ， 如 果 红 灯 时 停车 ， 这 条 规则 仅 当 你 遇 到 交通 灯 的 时 候 应 用 ， 当 你 已 
经 过 了 交通 灯 时 便 不 再 适用 。 在 基于 规则 的 系统 中 存在 许多 可 能 的 交互 。 有 一 些 规则 证 实 了 事实 ， 有 些 
则 撤销 了 事实 ， 有 些 则 更 改 了 事实 。 更 复杂 的 规则 可 能 产生 新 的 规则 或 者 在 机 器 学 习 中 删除 了 规则 。 
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如 果 将 规则 排序 ， 使 得 那些 最 可 能 执行 的 规则 放 在 开头 ， 则 程序 的 效率 将 提高 。 然 而 ， 这 需要 对 
系统 作 大 量 调整 、 增 加 新 规则 ， 或 删 去 及 修改 昌 规 则 。 一 个 提高 效率 的 更 好 办 法 是 建立 规则 模式 树 以 
减少 决定 哪个 规则 将 被 激活 的 搜索 时 间 。 规 则 模式 树 并 不 需要 程序 员 构 造 ， 它 可 基于 规则 的 IF… 
THEN 结构 让 计算 机 自动 建立 。 使 用 IF…THEN 结构 非常 利于 表达 知识 并 进行 高 效 的 模式 匹配 ， 这 和 需 
要 开发 一 个 语法 分 析 器 来 分 析 输 入 结构 并 解释 、 编 译 、 执 行 这 种 结构 。 

当 实现 了 所 有 这 些 提高 效率 的 技术 ， 将 会 得 到 一 个 完整 的 专家 系统 ， 如 果 只 要 推理 机 、 语 法 分 析 
器 以 及 解释 器 以 便 开 发 其 他 专家 系统 ， 则 得 到 一 个 专家 系统 外 壳 。 当 然 ， 你 不 必 从 头 来 进行 这 些 开 发 ， 
你 可 以 使 用 一 个 现存 的 外 壳 ， 例 如 文档 齐备 ， 测 试 充分 的 CLIPS. 


函数 式 程序 设计 


正如 LISP 所 体现 出 来 的 那样 ， 函 数 式 程 序 设计 (functional programming) 语言 不 同 于 面向 语句 的 
语言 ， 面 向 语句 的 语言 具有 复杂 的 控制 结构 并 采用 自 项 向 下 设计 。 传 统 语言 通过 概念 上 的 限制 使 问题 
可 以 模块 化 。 而 函数 式 程序 设计 语言 把 这 些 限制 推翻 。 函 数 式 语言 的 2 个 特性 ， 高 阶 函 数 、 惰 性 求 值 ， 
可 以 使 模块 化 更 加 方便 。 其 基本 思想 是 组 合 简单 函数 来 生成 功能 更 强大 的 函数 ， 这 与 命令 式 语言 的 自 
ME F (top-down) 设计 不 同 ， 实 际 上 是 一 种 自 底 向 上 (bottom-up) 的 设计 。 

函数 式 语 言 以 函数 (functions) 为 中 心 ， 从 数学 上 来 讲 ， 函 数 是 从 一 个 域 (domain) 到 另 一 个 相关 
H (codomain) 的 一 种 关系 (association) 或 准则 。 下 面 是 一 个 函数 定义 的 例子 ; 

cube(x)==x* xx x, 这 里 ,x 是 一 个 实数 ,而 cube 是 一 个 具有 实数 值 的 函数 。 

这 个 函数 定义 的 3 个 部 分 是 : 

(1) 关系 xxxxx 

(2) 域 ， 实 数 

(3) 相关 域 ， 实 数 

符号 “ 圭 ” 意 谓 着 恒 等 于 或 定义 为 ， 下 面 是 cube 从 一 个 域 实数 到 另 一 个 相关 域 实数 映射 的 一 种 速 
写法 ， 实 数 用 符号 六 表 示 。 


cube:R >R 


Mik S 到 相关 域 工 的 一 个 函数 了 的 一 般 表 示 方 法 为 A: SST. KA 的 值 域 (range) 是 所 有 映像 
(images) f (s) 的 集合 ， 其 中 s 是 S 的 一 个 元 素 。 对 于 函数 cube, s 的 映像 是 s * s x *， 值 域 是 全 体 实 
体 。 这 里 值 域 与 相关 域 是 相同 的 。 但 这 并 不 适用 于 其 他 函数 ， 如 平方 函数 ，z x z 域 与 相关 域 是 实数 ， 
但 其 值 域 和 相关 域 是 负 实数 。 

使 用 集合 定义 ， 函 数 的 值 域 可 被 写成 ; 


R ={f(s) | s €s} 


花 括号 | | 表示 一 个 集合 (set)， 竖 线 “|” 可 理解 为 “这 里 ”。 这 样 ， 上 面 的 式 子 可 理解 为 值 域 
RR 等 于 f(s) 的 集合 ， 这 里 s 是 S 中 的 一 个 元 素 。 关 系 是 有 序 对 (s，:) 的 一 个 集合 ,其 中 ;€ S， 
tET, #At=f (s), 每 一 个 S 中 的 元 素 必须 有 且 仅 有 T 的 一 个 元 素 与 之 对 应 。 但 是 ， 多 个 全 可 能 
对 应 同一 个 S， 如 对 正 数 nx， 其 平方 根 值 为 + Yn。 

函数 可 以 递归 定义 ， 如 ; 


factorial(n) = n*factorial(n-1) 
where n is an integer and 
factorial is an integer function 


RE, n 是 一 个 整数 ，factorial 是 一 个 整 函数 

递归 函数 通常 用 于 函数 语言 如 LISP. 

数学 概念 和 表达 式 是 引用 透明 (referentially transparent) 的 ， 因 为 其 整体 的 含义 完全 取决 于 其 组 成 
部 分 ， 组 成 部 分 之 间 互 相 不 影响 。 例 如 ， 函 数 表达 式 zx + (2* z)， 其 结果 是 3* xz， 这 两 者 是 相同 的 ， 
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不 管 工 取 什么 值 ， 甚 至 z 是 一 个 函数 ， 其 值 也 相同 。 例 如 ， 设 (>) 是 一 个 任意 函数 ， 那 么 六 y) 
+ (2%*h (y)) 恒 等 于 3xh (y)。 

下 面 ， 考 虑 一 个 命令 式 语言 ， 如 C 语 言 中 的 赋值 语句 : 

sum = f(x) + x 

如 果 参 数 + 是 引用 型 且 其 结果 在 函数 调用 了 f(x) 时 改变 ,那么 x 取 何 值 ? 这 依赖 编译 程序 是 怎 
样 写 的 ， 如 果 xz 的 值 在 栈 中 保存 ， 则 可 能 是 旧 值 ， 否 则 可 能 是 新 值 。 导 致 混乱 的 男 -- 个 原因 是 有 的 编 
译 程序 采用 从 右 到 左 的 次 序 计算 表达 式 ， 而 有 的 则 采用 从 左 到 右 的 次 序 。 在 这 种 情况 下 ， 即 使 使 用 同 
样 的 语言 ，f (x) +a 5x +f (x) 的 值 也 可 能 不 同 。 使 用 全 局 变量 时 也 可 能 产生 副作用 。 所 以 ， 与 
数学 函数 不 同 ， 程 序 函 数 的 意义 并 不 十 分 明确 。 

函数 式 程 序 语 言 在 设计 时 ， 保 证 了 其 意义 是 明确 的 。 一 个 函数 式 语 言 由 5 部 分 组 成 : 

。 数据 对 象 (data obiects) ， 供 语言 函数 操作 

。 基本 函数 (primitive functions) ， 用 于 操作 数据 对 象 

。 函数 格式 (functional forms), HTA RRE Mai RA 

。 应 用 操作 (application operations)， 作 用 于 消 数 上 ， 并 返回 一 个 值 

。 命名 过 程 (naming procedures) ， 用 于 标志 一 个 新 函数 

函数 式 语言 一 般 是 解释 型 的 ， 以 便 简化 设计 并 实时 响应 用 户 。 

在 LISP ( 表 处 理 ) 语言 中 ， 数 据 对 象 是 符号 表达 式 (S- 表 达 式 ，symbojic expressions), BEA AR 
(lists) ， 也 可 为 原子 (atoms)。 下 面 是 一 些 表 的 例子 ， 类 似 于 CLIPS 模式 的 编程 。 

(牛奶 鸡 重 FL) 

(购物 (食品 (牛奶 ,鸡蛋 , 乳 酷 ) 衣 服 (裤子 ) )) 

() 

这 种 类 型 的 模式 可 以 写 在 条 件 或 规则 左 部 (left-hand-side，LHS) 中 ， 表 示 事 实 或 者 一 个 列表 ， 就 
如 同 购物 单 的 例子 。 如 果 条 件 为 真 ， 则 规则 右 部 (right-hand-side, RHS) 被 执行 并 产生 新 的 列表 。 其 
他 的 内 容 例 如 撤销 事实 等 ， 也 可 以 编写 在 规则 右 部 中 。 表 总 是 用 配对 的 括号 括 着 ， 其 元 素 用 空格 分 开 。 
表 的 元 素 可 能 是 原子 ， 如 和 牛奶、 鸡蛋 和 乳酪， 或 者 是 子 表 如 (和 牛奶、 鸡蛋 、 和 乳酪) 和 GET) RT 
分 而 原子 不 能 ， 空 表 (empty list) ，( ) ， 不 包括 任何 元 素 ， 称 为 nil。 

LISP 的 早期 版 本 称 为 “ 纯 ”LISP， 因 为 它 是 纯粹 函数 式 的 。 然 而 用 它 书写 程序 并 不 高 效 ， 为 了 提 
高 书写 效率 ,已 加 入 了 一 些 非 函数 化 的 东西 。 例 如 ，SET 是 赋值 操作 ，LET 和 PROG 既 可 用 于 建立 局 
部 变量 ， 又 可 执行 一 个 S 表 达 式 序列 。 虽 然 这 些 操作 类 似 函 数 ， 但 它们 并 不 是 初始 数学 意义 上 的 函数 。 

自从 创立 以 来 ，LISP 在 美国 一 直 居 于 人 工 智能 语言 的 主导 地 位 。 由 于 它 易 于 表达 ， 许 多 早期 专家 
系统 外 壳 是 用 LISP 建立 的 。 但 是 ， 传 统 的 计算 机 不 能 高 效 地 执行 LISP， 对 用 LISP 编写 的 外 过 ， 情 况 
更 糟 。 当 然 ， 随 着 处 理 器 和 时 钟 周 期 的 提高 ，LISP 的 效率 也 得 到 提高 。 

高 费用 使 得 开发 和 发 行 (delivery) 成 为 一 个 问题 。 由 于 费用 高 ， 难 以 发 行 ， 因 此 就 难以 开发 大 型 
程序 。 一 个 好 的 开发 平台 ， 如 果 没 有 适宜 的 速度 、 功 能 、 大 小 、 重 量 、 环 境 或 价格 ， 就 将 难以 发 行 。 
一 些 应 用 甚至 要 求 最 后 的 代码 放置 于 ROM 就 是 由 于 费用 和 稳定 的 原因 ， 把 代码 放 人 ROM 将 是 困扰 某 
些 需 要 专门 硬件 运行 的 人 工 智能 和 专家 系统 工具 的 一 个 问题 。 不 过 ， 比 起 重 写 代 码 ， 这 可 能 是 一 个 好 
的 选择 。 

另 一 个 问题 是 在 人 工 智能 语言 中 髋 人 传统 的 程序 设计 语言 ， 如 C、C++ 、C# 和 Java。 例 如 对 某 些 
需要 很 多 数值 计算 的 应 用 ， 使 用 传统 语言 比 用 专家 系统 工具 好 。 所 以 CLIPS 使 得 用 宿主 语言 开发 自己 
的 函数 更 加 容易 ， 可 以 从 CLIP 的 在 线 参考 手册 查询 到 更 详细 的 内 容 (http: //www.ghgcorp.com/ 
clips/CLIPS. html) 

除非 有 特别 的 处 理 ， 用 LISP 编写 的 专家 系统 一 般 难 以 嵌入 用 其 他 语言 编写 的 程序 。 选 择 Al 语言 
的 一 个 重要 原因 是 它 提供 了 一 些 工 具 。 由 于 可 移植 性 、 效 率 、 速 度 等 原因 ， 许 多 专家 系统 工具 ， 现 在 
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都 用 C 语言 编写 或 转换 为 C 语 言 。 这 同时 解决 了 原来 的 基于 LISP 的 应 用 都 需要 昂贵 的 特制 硬件 的 
问题 。 


1.12 非 过 程 化 程序 规范 


非 过 程 化 程序 规范 不 依赖 于 程序 员 给 出 求解 问题 的 精确 细节 。 与 过 程 化 规范 不 同 ， 过 程 化 规范 着 
重 于 如 何 实现 一 个 函数 和 一 个 语句 序列 ， 而 非 过 程 化 规范 则 着 重 于 实现 什么 并 让 系统 决定 怎样 来 实 
现 它 。 


说 明 性 程序 设计 


说 明 性 规范 (declarative paradigm) 把 目标 (goal) 与 实现 目标 的 方法 分 开 。 用 户 制定 目标 ， 而 底 
层 机 制 则 尝试 来 满足 这 个 目标 。 已 建立 了 一 些 规范 (paradigm) 与 相关 程序 语言 用 来 实现 说 明 性 模型 。 


面向 对 象 程序 设计 


面向 对 象 (object-oriented) 规范 是 一 种 既 有 命令 式 又 有 说 明 性 程序 设计 特点 的 规范 。 术 语 面向 对 
象 用 于 程序 设计 语言 C++ 、Java、C# 等 ， 其 基本 思想 是 设计 程序 时 ， 把 程序 中 的 数据 作为 一 个 对 象 ， 
然后 实现 这 些 对 象 上 的 操作 。 它 与 自 顶 向 下 的 方法 不 同 ， 自 项 向 下 是 逐步 求 精 的 。 统 一 模型 定义 语言 
UML 是 流行 的 面向 对 象 设 计 方 法 。 

作为 一 个 面向 对 象 设计 的 例子 ， 考 虑 用 交互 式 菜单 方式 来 编写 管理 账目 的 程序 。 重 要 的 数据 对 象 
是 当前 的 收 支 平衡 、 应 收 账 、 应 付 账 。 可 定义 各 种 操作 作用 于 这 些 对 象 上 ， 如 增加 应 收 、 修 改 应 付 、 
增加 月 利润 等 。 一 旦 定义 了 这 些 对 象 、 操 作 、 菜 单 界面 ， 就 可 以 开始 编程 。 面 向 对 象 的 设计 方法 特别 
适合 于 弱 控 制 结构 程序 ， 它 不 适合 于 那些 需要 严格 控制 结构 的 程序 ， 如 工资 表 应 用 ， 对 工资 表 应 用 程 
序 。 但 面向 对 象 程序 设计 在 今天 非常 流行 ， 因 为 它 容易 维护 而 且 对 象 可 以 被 重用 。 

术语 面向 对 象 程序 设计 (object-oriented programming) 最 早 是 指 像 Smalltalk 这 样 的 语言 ， 它 们 专门 
为 对 象 而 设计 。 目 前 这 个 术语 常常 用 于 面向 对 象 设 计 的 程序 ， 即 使 这 种 语言 并 不 真正 支持 对 象 。 

许多 面向 对 象 语 言 如 C++ 、Java 和 C# 本 身 具备 支持 对 象 的 特性 。Smalltalk 起 源 于 SIMULA 67, 
这 是 一 种 为 仿真 而 设计 的 语言 。SIMULA 67 引入 了 类 (class) 的 概念 ， 继 而 导致 了 信息 隐藏 人 模块 中 
的 概念 。 一 个 类 是 一 种 基本 类 型 ， 是 一 个 定义 数据 结构 的 模板 。 类 的 实例 (instance) 是 一 个 能 被 操控 
的 数据 对 象 。 实 例 这 个 术语 已 经 被 引入 到 专家 系统 中 ， 它 表示 与 模板 相 匹配 的 事实 。 类 似 地 ， 如 果 一 
个 规则 的 左 部 被 满足 ， 就 称 它 被 例 化 。 在 基于 规则 的 系统 中 ， 术 语 被 激活 和 例 化 是 同 义 的 。 

另 一 个 来 自 SIMULA 67 的 重要 概念 是 继承 (inheritance)。 在 SIMULA 67 中 ， 可 定义 一 个 子 类 
(subclass) 来 继承 类 的 属性 。 例 如 : 可 定义 一 个 包含 对 象 的 类 ， 这 些 对 象 可 在 栈 中 使 用 ， 再 定义 另 一 个 
复数 类 ， 有 了 这 两 个 类 ， 就 很 容易 定义 一 个 子 类 ， 其 对 象 为 可 在 栈 中 使 用 的 复数 。 这 些 对 象 继承 了 上 
面 这 两 个 类 的 属性 ， 这 两 个 类 叫 超 类 (superclasses)。 继 承 的 概念 使 得 能 组 织 对 象 到 一 个 层 中 ， 在 这 个 
层 中 ， 对 象 继承 类 ， 类 又 继承 它 上 层 的 类 ， 如 此 下 去 。 由 于 对 象 能 继承 类 的 属性 ， 而 这 又 并 不 需要 程 
序 员 去 专门 说 明 ， 因 此 继承 的 概念 非常 有 用 。 但 是 多 重 继承 的 实现 并 不 容易 ， 所 以 Java 和 C# 并 不 支 
持 这 个 特性 。CLIPS 用 C++ 编写， 因此 具备 多 重 继承 的 特性 。 完 全 骨 人 在 CLIPS 中 的 面向 对 象 语 言 
称 为 COOL (Common Object-Oriented Language), COOL 的 操作 对 用 户 透 明 ， 所 以 用 户 只 需要 理解 面向 
对 象 编程 的 特性 。 


逻辑 程序 设计 
人 工 智 能 应 用 的 一 个 最 早 程 序 之 一 是 Newell 和 Simon 设计 的 逻辑 定理 证 明 程序 。 这 个 程序 于 1956 


年 在 关于 AI 的 Dartmouth 会 议 上 被 公布 并 引起 又 动 ， 这 是 由 于 以 前 电子 计算 机 内 用 于 数字 计算 。 现 在 
计算 机 也 能 精确 推理 那些 以 前 被 认为 只 有 数学 家 才能 推导 的 定理 。 
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在 逻辑 定理 证 明 器 以 及 它 的 后 续 版 本 一 一 通用 问题 求解 器 (GPS) H, Newell 和 Simon 致力 于 实 
现 能 解决 任何 问题 的 计算 算法 。 逮 辑 定 理 证 明 器 只 能 证 明 数 学 定理 ， 但 GPS 却 被 设计 成 能 求解 各 种 逻 
辑 问 题 ， 包 括 游戏 ,智力 难题 如 下 棋 、 汉 诺 塔 、 传 教士 和 野蛮 人 、 猜 迹 等 。 一 个 著名 的 猜 涯 难题 是 : 


DONALD 
+ GERALD 
ROBERT 


其 中 已 知 D=5。 问 题 是 求 出 其 他 字母 的 值 ， 范 围 在 0~9 之 间 。 
GPS 是 第 一 个 把 求解 知识 与 领域 知识 明确 分 开 的 问题 求解 程序 ， 它 已 成 为 现今 专家 系统 的 一 个 基 
本 范例 。 在 现今 的 专家 系统 中 ， 推 理 机 决定 什么 知识 应 被 使 用 并 怎样 去 应 用 它 。 
人 们 继续 致力 于 研究 机 器 定理 证 明 。 到 20 世纪 70 年 代 初 期 ， 人 们 发 现 ， 计 算 只 是 逻辑 推理 的 一 
个 特例 。 当 处 理 形 如 “如 果 条 件 则 结论 ”的 句子 时 ， 采 用 反 向 链 推理 非常 易于 定理 证 明 。 正 如 前 面 所 
讨论 的 产生 式 规 则 一 样 ， 条 件 代 表 所 需 匹 配 的 模式 。 具 有 这 种 形式 的 句子 成 为 Hom FA, CE Alfred 
Horn 首先 提出 的 。1972 年 Kowalski, Colmerauer 和 Roussel 创立 了 PROLOG 语言 ， 它 使 用 Horn 子 句 
通过 反 疝 链 推理 实现 了 逻辑 程序 设计 。 
反 向 链 既 可 以 用 说 明 方式 来 表达 知识 ， 又 可 以 控制 推理 过 程 。 反 向 链 通过 定义 子 目 标 来 进行 推理 ， 
如 果 要 满足 初始 目标 ， 这 些 子 目标 《subgoal) 也 必须 满足 。 这 些 子 目 标 经 常 分 解 成 更 小 的 子 目 标 。 
下 面 是 一 个 说 明 性 知识 的 典型 例子 : 
所 有 人 都 会 死 
苏 格 拉 底 是 一 个 人 
这 可 用 Horn FARRA: 
某 人 会 死 
如 果 某 人 是 一 个 人 
苏 格 拉 底 是 人 
如 果 ( 任 何 情况 下 ) 
后 面 一 个 句子 在 任何 条 件 下 ,，“if” 条件 都 是 真 的 ， 也 就 是 说 ， 关 于 苏 格 拉 底 的 知识 不 需要 任何 模 
式 匹 配 。 而 在 前 - -个 句子 中 ， 只 有 某 人 是 一 个 人 这 个 模式 匹配 ,“if” 条件 才能 满足 。 
注意 ， 一 个 Hon 子 句 能 被 解释 成 一 个 告知 怎样 满足 目的 的 程序 。 那 就 是 ， 决 定 某 人 是 否 会 死 ， 必 
须 首先 决定 某 人 是 否 是 人 。 下 面 是 一 个 稍微 复杂 的 例子 : 
汽车 要 有 汽油 .燃料 和 充气 轮胎 才能 行驶 。 
用 Hom FARRA: 
x 是 汽车 并 能 行驶 
如 果 X 有 汽油 并 且 


xX 有 燃料 并 且 
x 有 充气 轮胎 


注意 决定 汽车 是 否 能 行驶 这 个 问题 将 会 缩小 为 3 个 更 简单 的 子 问题 或 子 目标 。 现 假定 有 下 面 的 一 
些 额外 的 说 明 性 知识 : 

油箱 计量 器 显示 不 空 , 如 果 汽 车 有 汽油 

量 尺 显 示 不 空 , 如 果 汽 车 有 燃料 

空气 压力 计量 器 显示 至 少 20, 如 果 汽 车 有 充气 轮胎 

油箱 计量 器 显示 不 空 

量 尺 读数 为 空 

空气 压力 计量 器 显示 至 少 15 
这 些 知 识 能 被 转换 成 下 面 的 Horn FA: 
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X 有 汽油 
如 果 油 箱 计量 器 显示 不 空 
X 有 燃料 
如 果 量 尺 显 示 不 空 
X 有 充气 轮胎 
如 果 空 气压 力 计量 器 显示 至 少 20 
油箱 计量 器 不 空 
如 果 ( 任 何 情况 下 ) 
量 尺 读数 为 空 
如 果 ( 任 何 情况 下 ) 
空气 压力 计量 器 显示 至 少 15 
如 果 ( 任 何 情况 下 ) 
从 这 些 子 句 ， 一 个 机 器 定理 证 明 器 能 证 明 汽车 不 会 行驶 ， 因 为 没有 油 和 足够 的 空气 压力 。 
反 向 链 推理 的 一 个 优点 是 能 并 行 执行 。 也 就 是 说 ， 如 果 有 多 处 理 器 的 话 ， 它 们 可 同时 执行 多 个 子 
目标 。 
PROLOG 不 只 是 一 种 语言 ， 它 还 包含 一 个 反 向 推理 机 。 至 少 ，PROLOG 是 一 个 外 壳 。 因 为 它 要 求 : 
。 一 个 解释 器 或 推理 机 
。 一 个 数据 库 (事实 和 规则 ) 
。 一 个 模式 匹配 方法 ， 称 为 合 一 (unification) 
。 一 个 回溯 (backtracking) 机 制 ， 如 果子 目标 搜索 不 成 功 的 话 
作为 一 个 反 向 链 推理 的 例子 ， 设 想 如 果 你 有 现金 或 信用 卡 ， 你 能 买 汽油 而 使 汽车 行驶 。 一 个 子 目 
标 去 检测 你 是 否 有 现金 ， 如 果 你 没有 现金 ， 回 渊 机 制 会 探测 另 一 个 子 目 标 ， 看 你 是 否 有 信用 卡 ， 如 果 
你 有 信用 卡 ， 买 油 的 条 件 就 满足 了 。 注 意 缺少 事实 证 明 目 标 与 具有 相反 的 事实 如 “ 量 尺 读数 为 空 ”是 
等 效 的。 相反 的 事实 或 缺乏 事实 都 能 导致 目标 不 被 满足 。 
如 果 问 题 不 需要 回溯 和 模式 匹配 机 制 ， 那 么 程序 员 可 采用 不 同 的 语言 编程 。 逻 辑 编 程 的 一 个 优点 
是 程序 执行 的 说 明 化 。 也 即 ， 通 过 Horn 子 句 说 明 问 题 的 需求 即 可 生成 一 个 执行 的 程序 。 该 程序 不 同 于 
传统 的 程序 ， 在 传统 的 程序 设计 中 ， 需 求 并 不 是 最 终 的 程序 代码 。 
与 产生 式 规 则 系统 不 同 ， 在 PROLOG 程序 中 , 子 目标 、 事 件 和 规则 的 次 序 并 不 起 作用 。 效 率 〈 即 
速度 ) 是 由 PROLOG 搜索 数据 库 的 方式 来 决定 。 但 是 ， 有 些 程序 ， 如 果子 目标 、 事 件 和 规则 以 某 种 次 
序 输入 ， 则 程序 会 执行 正确 执行 ， 而 如 果 以 另外 一 种 次 序 输入 ， 则 可 能 导致 死 循环 或 运行 时 错误 。 


专家 系统 


专家 系统 可 以 认为 是 一 种 说 明 性 程序 设计 ， 这 是 因为 程序 员 不 必 详 细 说 明 如 何 完成 目标 的 具体 算 
法 。 例 如 ， 在 一 个 基于 规则 的 专家 系统 中 ， 任 何 一 个 规则 ， 只 要 其 左 部 与 事实 匹配 ， 那 它 就 可 以 被 激 
活 并 被 加 入 到 议程 中 。 规 则 的 顺序 并 不 影响 它们 的 激活 。 这 样 ， 程 序 语句 顺序 也 就 不 代表 严格 的 控制 
流 。 还 有 其 他 类 型 的 专家 系统 ， 我 们 将 在 第 2 章 讨 论 基 于 框架 (frames) 的 专家 系统 ， 在 第 4 章 讨 论 基 
于 推论 网 (inference nets) 的 专家 系统 。 

专家 系统 与 传统 的 程序 间 有 许多 不 同 ， 表 1.12 列 出 了 一 些 不 同 点 : 


表 1.12 传统 程序 和 专家 系统 的 一 些 不 同 点 








特 征 传统 程序 专家 系统 
由 …… 控 制 语句 次 序 推理 机 
控制 与 数据 隐 含 在 一 起 明确 分 开 


控制 能 力 强 弱 
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(8) 
特 征 传统 程序 专家 系统 
由 …… 求 解 算法 规则 和 推理 机 
求解 搜索 少 或 没有 多 
问题 求解 算法 的 正确 性 规则 
输入 假设 正确 不 完整 、 错 误 
意外 输入 难以 处 理 照样 处 理 
输出 总 是 正确 依赖 于 问题 的 不 同 
解释 没有 通常 有 
应 用 数值 、 文 件 和 文本 符号 推理 
执行 一 般 是 顺序 随机 
程序 设计 结构 化 设计 很 少 或 没有 结构 
修改 难 较 易 
扩充 要 作 很 大 改动 可 逐步 增加 


专家 系统 经 常用 于 处 理 不 确定 性 的 问题 ， 因 为 推理 是 处 理 不 确定 性 的 最 好 工具 之 一 。 不 确定 性 既 
可 体现 在 输入 数据 ， 也 可 体现 在 知识 库 中 。 使 用 传统 程序 设计 的 人 可 能 会 对 此 感到 惊讶 。 然 而 ， 很 多 
人 类 知识 是 启发 性 的 ， 也 就 是 说 它 只 在 有 些 时 候 才 工作 正常 。 此 外 ， 输 入 的 数据 可 能 会 不 正确 、 不 完 
整 、 不 一 致 ， 或 者 是 其 他 错误 。 算 法 求解 方法 不 足以 处 理 这 些 情 况 ， 因 为 它 必 须 保证 在 有 限 步 内 能 解 
决 问题 。 

对 不 同 的 输入 数据 和 知识 库 ， 一 个 专家 系统 可 以 给 出 正确 答案 、 好 答案 、 差 答案 或 者 没有 答案 。 
乍 看 上 去 可 能 会 觉得 很 惊讶 ， 怎 么 会 没有 答案 。 不 过 ， 应 记 住 的 重要 事情 是 一 个 好 的 专家 系统 并 不 比 
一 个 专家 差 ， 甚 至 会 做 得 更 好 。 如 果 我 们 能 找到 比 专家 系统 更 有 效 的 计算 方法 ， 我 们 会 使 用 它 。 最 重 
要 的 是 , 使 用 最 好 的 处 理 该 项 工作 的 工具 。 


非 说 明 性 程序 设计 


非 说 明 性 程序 设计 规范 在 PROLOG 和 SQL 中 越 来 越 流行 。PROLOG 的 新 版 本 专 为 AH 开发 而 
SQL 是 关系 数据 库 基础 。 这 些 新 的 规范 应 用 已 越 来 越 广泛 。 它 们 既 可 单独 使 用 ， 也 可 与 其 他 规范 联合 
起 来 使 用 。 


基于 归纳 的 程序 设计 


作为 人 工 智能 的 一 个 应 用 ， 基 于 归纳 (induction-based) 的 程序 设计 ， 例 如 机 器 学 习 的 经 典 ID3 算 
法 和 新 的 C4.5 和 C5.1， 已 越 来 越 引起 人 们 的 兴趣 。 在 这 种 规范 中 ， 程 序 通过 例子 来 学 习 。 这 种 方法 
已 用 于 数据 库存 取 ， 它 不 要 求 用 户 输入 一 个 或 几 个 要 搜索 的 字段 值 ， 而 是 要 求 用户 选 择 一 个 或 凡 个 具 
有 该 特征 的 相近 事例 。 然 后 ， 程 序 在 数据 库 中 查找 与 该 特征 相 匹配 的 数据 。Oracle 和 其 他 使 用 SQL 语 
言 的 关系 数据 库 管理 系统 是 使 用 模式 匹配 查找 的 典型 例子 。 

某 些 专家 系统 工具 提供 了 归纳 学 习 的 功能 ， 它 们 可 通过 接受 事例 来 自动 生成 规则 (参看 附录 G). 


1.13 ”人工 神经 系统 


在 20 世纪 80 年 代 ， 程序 设 计 规范 有 了 一 个 新 的 发 展 方向 ， 即 人 工 神经 系统 (ANS，artificial neu- 
ral systems)， 它 基于 人 脑 如 何 处 理 信 息 。 这 种 规范 有 时 也 称 为 连接 (connectionism) 系统 ， 这 是 因为 它 
求解 问题 的 模型 是 通过 训练 在 网 络 中 相连 的 模拟 神经 元 。 许 多 研究 人 员 都 在 从 事 神 经 网 络 方面 的 研究 
工作 。 今 天 人 工 神 经 系统 大 量 活跃 于 各 种 应 用 包括 人 脸 识别 、 医 疗 诊断 、 游 戏 、 语 音 识别 和 汽车 发 
动机 。 
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连接 研究 者 推测 用 人 脑 的 工作 方式 来 模拟 计算 比 用 数字 计算 机 模拟 更 能 深入 智能 行为 的 本 质 。 隐 
藏 在 这 种 连接 背后 的 基本 思想 是 ， 如 果 我 们 从 人 脑 方式 的 计算 而 不 是 基于 规则 的 符号 操作 来 看 问题 ， 
我 们 有 可 能 取得 人 工 智能 的 显著 进展 。 神 经 网 络 是 一 种 基于 生物 神经 系统 ， 如 人 脑 处 理 信息 模式 而 建 
立 的 信息 处 理 技术 。 神 经 网 络 的 原理 基础 是 结构 化 的 信息 处 理 系统 。 神 经 网 络 通过 把 许多 相互 高 度 连 
接 的 处 理 元 素 或 神经 元 结合 起 来 ， 能 够 以 类 似 人 类 的 技术 通过 学 习 例 子 来 处 理 问题 。 对 特定 的 问题 ， 
例如 数据 分 类 或 模式 识别 ， 神 经 网 络 通过 某 种 学 习 过 程 ， 称 之 为 训练 (raining) 来 进行 处 理 。 如 同 生 
物 系统 一 样 ， 学 习 包 括 神经 元 间 的 连接 修正 。 

有 很 多 种 方法 可 对 人 工 神经 系统 进行 分 类 ， 一 个 有 用 的 方法 是 根据 是 否 提供 了 输入 和 输出 数据 训 
练 集 来 分 类 。 如 果 提 供 了 训练 集 ， 那 么 人 工 神 经 系统 称 为 一 个 引导 模型 。 如 果 是 在 不 知道 输出 的 情况 
下 对 输入 进行 分 类 学 习 ， 那 么 称 为 非 引导 型 。 人 脸 识别 是 一 个 很 好 的 引导 型 人 工 神经 系统 例子 。 相 反 ， 
如 果 你 不 知道 输出 数据 是 什么 ， 人 工 神经 系统 也 能 很 好 地 分 类 ， 如 识别 疾病 的 爆发 。 

不 同 的 神经 网 络 ， 其 神经 元 间 的 连接 方式 、 神 经 元 计算 方式 、 网 络 传播 方式 以 及 其 学 习 的 方式 和 
效率 可 以 不 同 。 神 经 网 络 已 经 被 应 用 于 真实 世界 的 许多 问题 。 其 最 主要 的 优点 是 可 以 解决 对 于 传统 技 
术 来 说 太 过 复杂 的 问题 一 一 没有 算法 可 以 解决 或 解决 的 算法 太 过 复杂 。 通 常 ， 神 经 网 络 很 好 地 适用 于 
人 们 善于 解决 但 无 法 解释 如 何 做 到 的 问题 。 这 些 问 题 包括 模式 识别 和 需要 识别 出 数据 趋势 的 预测 预报 。 
今天 ， 数 据 挖掘 (data mining) 领域 充分 利用 人 工 智 能 技术 ， 从 历史 数据 中 找 出 模式 以 协助 公司 决定 
未 来 策略 。 例 如 ， 数 据 控 据 可 以 用 来 告诉 一 个 公司 因为 季节 变化 在 何 时 存储 某 类 产品 。 

神经 网 也 用 于 需要 实时 反应 的 从 大 量 传感器 获得 输入 的 专家 系统 前 端 。 超 过 50 个 免费 的 人 工 神经 
系统 可 以 从 新 闻 组 comp. ai-neural-nets 的 FAQ 中 下 载 ， 其 他 的 资源 列 在 附录 G 中 。 


旅行 售 货 者 问题 


ANS 在 对 复杂 模式 识别 问题 提供 实时 响应 方面 获得 显著 成 功 。 例 如 ,在 20 世纪 80 年 代 采 用 神经 
网 络 方法 在 一 台 普 通 微机 上 只 需 0.1 秒 就 能 获得 一 个 好 的 解 ， 而 采用 其 他 最 好 方法 在 大 型 机 上 也 需 一 
个 小 时 。 旅 行 售 货 者 问题 是 重要 的 ， 因 为 它 是 电信 系统 中 优化 信号 路 线 的 一 个 典型 问题 。 优 化 路 线 能 
减少 运行 时 间 ， 这 样 就 提高 了 效率 和 速度 。 

基本 的 旅行 售 货 者 问题 是 计算 给 定 城市 间 的 最 短路 线 。 表 S1 旅行 售 货 者 问题 的 路 线 
1.13 显示 了 从 1 到 4 个 城市 的 可 能 路 线 。 注 意 ， 路 线 数 目 是 城 “Engu 路 & 
市 数目 减 1 的 阶乘 ， 即 (N-1)! 

当 有 10 个 城市 ， 则 有 9! = 362880 条 路 线 。 当 有 30 个 城 5 
市 则 有 29! =8.8E30 条 路 线 。 旅 行 售 货 者 问题 是 一 个 典型 的 3 
组 合 爆炸 (combinatorial explosion) 例子 ， 因 为 可 能 路 线 的 数 
目 增长 很 快 ， 使 得 对 实际 的 城市 数目 没有 现实 的 求解 方法 。 如 
果 在 一 个 大 型 机 上 需要 一 个 小 时 的 CPU 时 间 去 求解 30 个 城市 
的 路 线 问 题 ， 则 需要 30 个 小 时 求解 31 个 城市 ，330 个 小 时 求 
解 32 个 城市 的 路 线 问题 。 较 之 成 千 个 电信 交换 开关 以 及 真正 
所 使 用 的 城市 数目 ， 这 实际 上 是 非常 少 的 一 个 数目 。 

一 个 神经 网 络 解决 10 个 城市 案例 的 速度 与 解决 30 个 城市 
的 速度 一 样 ， 但 传统 的 计算 方法 则 要 花费 更 长 的 时 间 。 对 10 
个 城市 案例 ， 神 经 网 络 会 给 出 两 条 最 好 路 线 中 的 一 条 ， 而 对 
30 个 城市 ， 它 会 给 出 100 000 000 条 最 好 路 线 中 的 一 条 。 这 个 结果 是 令 人 满意 的 ， 因 为 它 比 1E22 条 路 
线 都 要 好 。 虽 然 神经 网 络 并 不 能 常常 给 出 最 优 解 ， 但 它 为 实时 响应 提供 了 一 个 好 的 方案 。 在 许多 情况 
下 ,在 一 毫秒 内 给 出 一 个 99.999999999999999999% 正 确 的 答案 要 比 在 30 小 时 内 给 出 一 个 100% 正确 
的 答案 要 好 。 其 他 使 用 遗传 算法 解决 问题 的 方法 以 及 演变 人 工 算法 (Evolutionary Art Algorithm) 
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(Dorigo 04) 在 附录 G 中 。 另 一 种 方法 是 真实 DNA (Sipper 02). 
ANS 的 单元 


ANS 本 质 上 是 一 个 使 用 以 高 速 并 行 方式 相连 的 简单 处 理 单元 的 模拟 计算 器 ， 这 些 处 理 单元 对 它们 
的 输入 执行 简单 的 布尔 或 算术 运算 操作 。ANS 的 关键 之 处 在 于 与 每 个 单元 相 联 的 权 值 (weights)。 这 
些 权 值 代表 存储 在 系统 中 的 信息 。 

一 个 典型 的 人 工 神经 元 如 图 1.10 所 示 。 神 经 元 可 有 多 个 输入 ， 也 可 只 有 一 个 输入 。 人 脑 大 概 包 括 
108 个 神经 元 。 每 个 神经 元 与 其 他 神经 元 可 能 有 数 千 种 联系 。 神 经 元 的 各 个 输入 信和 号 与 权 值 相 乘 ， 然 
后 累加 成 为 神经 元 的 总 输入 。 所 有 权 值 可 用 一 个 矩形 来 表示 。 

神经 元 的 输出 常常 是 输入 的 反 曲 函数 (sigmoid function)。 反 曲 函 数 能 够 描述 真正 的 神经 元 ， 当 输 
和 人 非常 小 和 非常 大 时 ， 它 都 能 达到 极限 。 反 曲 函 数 也 称 为 激活 函数 (activation function)。 常 用 的 - -个 
反 曲 函数 是 (1+e *)"!。 每 个 神经 元 还 有 一 个 相连 的 阐 值 (threshold value) 6， 每 个 总 输入 都 要 减 去 
POH, A 1.11 显示 了 一 个 能 计算 异 或 (XOR, exclusive- OR) 的 ANS， 它 采用 了 反 向 传播 技术 。 所 谓 
异 或 就 是 只 有 在 输入 不 全 为 真 或 不 全 为 假 时 ， 其 值 才 为 真 。 隐 含 层 结 点 的 数目 根据 应 用 和 设计 会 有 所 
不 同 。 


I= 神 经 元 输入 i= LD Wl, 
J 





O= 神经 元 输出 = 一 一 二 -而 输出 层 
Wi 1+e 
神经 元 1 
Bae 
输入 层 
图 1.10 神经 处 理 单元 图 1.11 反 向 传播 网 络 


神经 网 络 一 般 不 采用 传统 的 方式 编程 。 训 练 神 经 网 络 的 学 习 算 法 有 很 多 ， 如 对 向 传播 (counter 
propagation) 和 反 向 传播 算法 等 。 程 序 员 编 程 设计 神经 网 络 时 ， 只 需 提供 输入 和 相应 的 输出 数据 ， 网 络 
通过 调整 相连 神经 元 的 权 值 来 自动 学 习 。 神 经 元 的 权 值 和 阅 值 决定 通过 网 络 数据 的 传播 ， 使 之 能 正确 
符合 训练 数据 。 训 练 神经 网 络 可 能 需要 几 小 时 或 几 天 ， 这 取决 于 网 络 要 学 习 的 模式 数 、 硬 件 和 软件 。 
然而 一 旦 网 络 已 训练 好 ， 网 络 反应 将 会 很 快 。 

如 果 用 软件 模拟 不 够 快 ，ANS 还 可 以 直接 固化 在 芯片 上 以 便 实时 响应 。 一 旦 网 络 训练 好 ， 权 值 已 
经 确定 ， 就 可 以 构成 芯片 。 


ANS 的 特点 


ANS 结构 不 同 于 传统 的 计算 机 结构 。 在 传统 计算 机 中 ， 用 存储 单元 来 连接 离散 信息 。 例 如 ， 可 在 
连续 的 存储 单元 中 通过 ASCII 码 来 存放 一 个 社会 保险 号 。 通 过 访问 这 些 连续 单元 的 内 容 ， 可 直接 得 到 
一 个 社会 保险 号 。 这 种 方法 是 可 行 的 ， 因 为 社会 保险 号 与 存储 单元 里 的 ASCH 码 都 具有 一 个 挨 一 个 的 
关系 。 

ANS 是 现今 人 脑 理 论 的 模型 化 ， 它 用 权 值 来 表示 信息 。 但 是 ， 在 这 种 存放 信息 的 权 值 之 间 并 没有 
直接 的 联系 。 信 息 的 这 种 分 布 表示 类 似 于 全 息 摄影 ， 当 激光 扫 过 时 ， 通 过 光 的 衍射 作用 ， 它 可 以 重 现 
所 存储 的 影像 。 

当 有 大 量 经 验 数据 并 且 没有 保证 足够 精度 和 速度 的 算法 时 ， 神 经 网 络 是 一 个 好 的 选择 。 与 传统 的 
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计算 机 存储 相 比 ，ANS 有 下 面 一 些 优点 : 

容错 性 (fault tolerant)。 即 使 部 分 网 络 丢 失 ， 对 网 络 存储 数据 的 影响 也 不 大 。 这 是 因为 信息 以 
分 布 的 形式 存储 。 

存储 图 像 的 质量 降低 并 不 与 网 络 委 失 数目 成 正比 。 信 息 不 会 受到 灾难 性 丢失 ， 存 储 质量 具有 全 
息 摄 影 的 特点 。 l 

数据 以 联想 记忆 方式 存储 。 所 谓 联想 记忆 方式 就 是 部 分 数据 足够 提供 全 部 存储 的 信息 。 这 与 传 
统 存储 不 同 ， 其 数据 是 通过 特点 地 址 确定 的 。 部 分 或 噪音 输入 仍 可 导出 全 部 原始 数据 。 

网 络 能 根据 其 存储 信息 进行 推断 。 训 练 使 得 网 络 能 够 发 现 数据 的 特征 及 其 关系 。 据 此 ， 网 络 能 
够 推断 新 数据 的 可 能 关系 。 在 一 个 实验 中 ， 神 经 网 络 根据 24 个 假设 成 员 进行 家 庭 关系 的 训练 。 
之 后 ， 它 能 正确 回答 出 没有 训练 过 的 关系 。 

。 网 络 有 适应 性 〈plasticity)。 即 使 有 些 神经 元 丢失 ， 只 要 剩 有 足够 神经 元 ， 网 络 就 能 重新 训练 而 
达到 它 的 初始 水 平 。 这 也 是 人 脑 的 一 个 特点 ;即使 部 分 损坏 ， 通 过 一 定时 间 的 再 学 习 ， 也 能 恢 
复原 来 水 平 。 

这 些 特性 使 得 ANS 在 太空 机 器 人 、 油 田 装 置 、 水 下 设备 、 处 理 控制 和 其 他 一 些 需要 长 期 处 于 难以 
恢复 的 恶劣 环境 中 的 应 用 方面 ， 具 有 很 大 的 吸引 力 。 除 了 可 靠 性 好 外 ，ANS 因 其 适应 性 也 具有 低 维护 
费 的 潜力 。 虽 然 可 做 硬件 修复 ， 但 重 编辑 一 般 比 蔡 换 硬件 要 合算 。 

ANS 一 般 不 适用 于 精确 计算 或 要 求 最 优 解 的 应 用 。 同 样 ， 如 果 存在 一 个 实际 的 求解 算法 ，ANS 也 
不 是 一 个 好 的 选择 。 


ANS 技术 的 发 展 


与 连接 最 密切 的 思想 是 在 心理 学 理论 中 我 们 必须 “严肃 对 待 大 脑 "。 这 个 思想 源 于 古 希腊 的 思考 者 
在 神经 系统 中 联系 动物 的 精神 行为 。 后 来 ， 在 笛 卡 儿 的 《Treatise of Man》 一 书 中 记载 了 著名 的 推断 。 
ANS 最 早起 源 于 1943 年 McCulloch 和 Pitts 开始 的 关于 神经 元 的 数学 模型 。1949 年 Hebb 给 出 了 神经 元 
学 习 的 一 个 解释 。 在 Hebb 的 研究 中 ， 神 经 元 使 用 触发 〈firing) 来 刺激 另 一 个 神经 元 。 触 发 指 神经 元 
发 出 一 个 电 脉 冲 来 刺激 与 其 相连 的 神经 元 。 这 样 神经 元 之 间 的 传 感 连接 ， 即 神经 键 (synapses) 就 通过 
触发 来 引起 。 在 ANS 中 ， 神 经 元 间 的 连接 权 值 变化 即 是 模拟 自然 神经 元 之 间 的 传 感 变化 (Swingler 96). 

1961 Æ, Rosenblatt 出 版 了 一 本 非常 有 影响 的 书 ， 这 本 书 阑 述 了 他 所 从 事 的 一 项 研究 工作 ， 该 项 
工作 是 研究 一 个 称 之 为 感知 机 (perceptron) 的 新 型 人 工 神经 系统 。 感 知 机 具有 学 习 和 模式 识别 功能 。 
它 基 本 上 由 两 层 神经 元 和 一 个 简单 的 学 习 算法 组 成 。 权 值 必须 人 工 赋值 ， 这 一 点 与 现代 ANS 中 通过 训 
练 来 设置 权 值 不 同 。 在 20 世纪 60 年 代 , 许多 研究 者 涉足 ANS 领域 并 开展 对 感知 机 的 研究 。 

1969 Æ, Minsky 和 Papert 出 版 了 一 本 书 《Perceptrons》， 该 书 指出 了 把 感知 机 作为 一 种 通用 计算 
器 的 理论 局 限 ， 这 标志 着 早期 感知 机 研究 时 代 的 结束 。 他 们 指出 了 感知 机 的 缺点 : 它 只 能 计算 16 个 基 
本 逻辑 功能 的 14 个 ， 这 意味 着 感知 机 不 能 作为 一 个 通用 目的 计算 器 。 特 别 是 ， 他 们 证 明了 感知 机 不 能 
识别 XOR， 虽 然 他 们 没有 深入 研究 多 层 ANS, 但 他 们 认为 ， 多 层 ANS 也 不 可 能 解决 XOR 问题 。 政 府 
基金 停止 了 对 ANS 的 资助 ， 转 而 资助 AI 中 使 用 LISP 等 语言 的 符号 推理 方法 。20 世纪 70 年 代 ， 由 
Minsky 发 明 的 一 种 新 的 框架 表示 法 开始 流行 。 框 架 又 发 展 为 现代 的 脚本 。 由 于 其 简单 性 ， 感 知 机 和 其 
他 ANS 易于 用 现代 集成 电路 技术 构造 。 

在 20 世纪 70 年 代 ，ANS 的 研究 继续 在 小 范围 内 进行 。70 年 代 末 ，Geoffrey Hinton, James McClel- 
land, David Rumelhart、Paul Smolensky 和 其 他 并 行 分 布 式 处 理 研究 组 成 员 致 力 于 神经 网 络 的 理论 认 知 。 
1986 年 发 表 划 时 代 的 书籍 《Parallel Distributed Processing: Explorations in the Microstructure of Cogni- 
tion》， 标 志 着 认 知 学 的 重大 理论 突破 。Hopfield 用 Hopfield 网 使 ANS 建立 在 坚固 的 理论 基础 上 ， 并 证 
明了 ANS 如 何 解 决 不 同 的 问题 。Hopfield 网 的 基本 结构 如 图 1.12。 特 别 地 ，Hopfield 说 明了 ANS Æ% 
数 时 间 里 怎样 解决 旅行 售 货 者 TSP 问题 ， 这 在 传统 的 求解 算法 中 是 一 个 组 合 爆炸 问题 。 一 个 ANS 电 
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路 能 在 1 微 秒 内 解决 TSP 问题 。 其 他 的 组 合 问题 可 用 ANS 轻易 解决 ， 如 四 色 图 、 欧 几 里 德 匹配 和 转换 
代码 问题 。 
ANS 中 的 反 向 传播 〈back-propagation) 网 络 很 容易 解决 KOR 
问题 ， 这 就 是 著名 的 一 般 化 增 量 准则 (generalized delta rule). Bll 
使 附加 层 数 能 够 指定 ， 反 向 传播 网 络 一 般 作 为 一 个 三 层 网 络 实 
现 。 在 输入 层 和 输出 层 之 间 的 层 称 为 隐 含 层 (hidden layers)， 这 
是 因为 只 有 输入 层 和 输出 层 对 外 界 可 见 。 另 一 流行 的 ANS 是 
1986 年 Hecht-Nielsen 发 明 的 对 向 传播 模型 。 从 数学 上 得 出 的 一 个 
重要 理论 结果 Kolmogorov 定理 ， 可 以 证 明 ， 任 何 一 个 具有 n 
个 输入 、 隐 含 层 具有 n+ 1 个 神经 元 的 三 层 网 络 能 以 任意 精度 通 。 图 上 12 Hopfield 人 工 神经 网 
近 一 个 连续 晴 数 。 


ANS 技术 的 应 用 


使 用 反 向 传播 学 习 算 法 的 一 个 典型 神经 网 络 例子 是 学 习 课本 中 单词 的 正确 发 音 。ANS 通过 训练 用 
来 校正 DEC 语音 设备 DECTalk 的 输出 。 设 计 校正 DECTalk 发 音 的 规则 需要 20 年 的 语言 学 研究 。ANS 
仅仅 通过 听 正 确 的 课文 发 音 来 自学 发 音 技巧 ,在 ANS 中 ， 没 有 用 到 一 点 语言 学 知识 。 

通过 光电 计算 机 来 识别 雷达 目标 的 ANS 研究 正在 进行 中 。 由 光 元 件 组 成 的 光 计 算 机 实现 的 新 的 
ANS， 其 速度 要 比 用 电子 计算 机 实现 的 快 上 百 万 倍 。ANS 的 光 实 现 非 常 诱 人 ， 因 为 光 具 有 并 行 性 ， 即 
光线 在 传播 时 不 互相 干扰 。 大 量 的 光子 很 容易 用 光 元 件 如 平面 镜 、 透 镜 、 高 速 可 编程 空间 光 调 制 器 ， 
多 维 光 稳 定 设备 等 来 生成 和 操纵 ， 而 且 这 些 光 元 件 还 可 作为 光 神 经 元 和 衍射 光栅 等 使 用 。ANS 的 更 进 
一 步 发 展 肯定 会 出 现 。 

经 典 ANS 应 用 引起 广泛 讨论 (Giarratano 90a)。ANS 特别 适 于 那些 用 传统 方法 达 不 到 满意 效果 的 
控制 系统 。(Giarratano 91b)。 事 实 上 ，ANS 广泛 应 用 于 许多 工业 控制 系统 (Hrycej 97), MER G 列 出 的 
一 些 链 接 显示 相关 信息 。 


1.14 专家 系统 与 归纳 学 习 的 关系 


Fl ANS 建立 专家 系统 是 可 能 的 。ANS 曾 作为 一 个 知识 库 ， 该 知识 库 通 过 训练 有 关 疾 病 的 医学 事例 
来 构成 。 在 这 个 系统 中 ， 专 家 系统 根据 训练 所 获得 的 症状 来 分 类 疾病 。 推理 机 也 称 MACIE (Matrix 
Controlled Inference Engine， 阵 列 控 制 推理 机 ) 是 用 ANS 知识 库 设 计 的 ， 系 统 用 正 向 链 方式 来 进行 扒 
理 ， 用 反 向 链 方式 来 询问 用 户 所 需 的 数据 。 虽 然 ANS 自身 不 能 解释 权 值 是 如 何 设置 的 , 但 MACIE 能 
解释 ANS 并 生成 下 …THEN 型 规则 来 解释 它 的 知识 。 

上 面 所 述 的 这 类 ANS 专家 系统 使 用 了 归纳 学 习 (inductive learning) Bp, 系统 通过 知识 库 中 的 事 
例 来 进行 归纳 (induces) ， 归 纳 是 从 特殊 推出 一 般 的 过 程 。 除 了 ANS 外 ,还 用 许多 商用 专家 系统 外 壳 
从 事例 中 生成 规则 ， 参 见 附录 G 中 的 讨论 。 归 纳 学 习 的 目的 是 减少 或 消除 知识 获取 瓶颈 。 通 过 把 知识 
获取 的 任务 交 给 专家 系统 ， 如 果 系 统 能 够 归纳 出 人 们 所 不 知道 的 规则 ， 则 既 可 以 减少 开发 时 间 ， 又 可 
以 提高 可 靠 性 。 现 在 ， 专 家 系统 与 ANS 已 经 结合 起 来 〈Giarratano 90b). 


1.15 “人工 智能 的 发 展 状况 


20 世纪 90 年 代 以 及 21 世纪 ， 人 工 智能 取得 了 许多 进展 。 强 人 工 智能 观点 ， 即 认为 只 有 逻辑 和 推 
理 才能 产生 好 的 人 工 智 能 ， 在 封闭 的 实验 室 环境 外 取得 的 进展 不 大 。 能 适应 残酷 现实 和 竞争 市 场 环境 
的 成 功 人 工 智能 系统 多 是 基于 生物 学 的 系统 。 图 1.13 显示 了 从 20 世纪 50 年 代 以 来 人 工 智能 的 发 展 ， 
图 中 的 垂直 线 表 示 时 间 。 在 最 初 ， 人 工 智能 分 成 两 大 类 ， 基 于 模型 的 主要 为 符号 逻辑 ， 另 一 个 大 的 分 
支 为 生物 学 处 理 方法 。 在 这 两 个 分 支 之 间 存 在 巨大 的 竞争 ， 但 是 基于 构造 人 工 智能 解决 方案 的 经 验 ， 
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现在 我 们 可 以 说 没有 一 种 方法 可 以 对 一 个 困难 的 问题 给 出 正确 的 答案 。 我 们 最 高 的 期 望 只 能 是 一 个 优 
化 的 解决 方案 ， 并 且 满 足 于 一 个 好 一 点 的 解决 方案 。 


20 世 纪 50 年 代 以 来 人 工 智 能 的 发 展 
_ 
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图 1.13 人 工 智能 发 展 


在 图 1.13 的 右边 显示 了 基于 物理 学 ， 特 别 是 使 用 量子 计算 机 的 新 方法 。 在 今天 ， 我 们 仅 是 希望 通 
过 量子 计算 机 来 提高 查找 速度 。 从 量子 力学 在 20 世纪 基于 Schroedinger 等 式 和 它 的 等 价 形式 Heisen- 
berg 矩阵 力学 创立 以 来 ,许多 人 ， 包 括 爱 因 斯 坦 并 不 接受 。 爱 因 斯 坦 开 玩笑 说 :“ 上 帝 不 会 同 宇宙 指骨 
子 "。 然 而 ， 量 子 力学 不 可 避免 地 和 概率 紧密 联结 在 一 起 ， 因 此 和 经 典 的 牛顿 定理 不 同 ， 没 有 什么 是 确 
定 的 。 事 实 上 ， 有 一 种 理论 认为 意识 是 一 种 量子 力学 现象 (Satinover 01)。 

许多 作者 推测 感知 和 意识 本 身 可 能 是 大 脑 的 一 个 重要 功能 ， 而 大 脑 由 神经 元 组 成 ， 最 终 分 解 为 原 
子 和 亚 原 子 直到 量子 。 它 们 之 间 的 距离 很 小 ，10 % 米 ， 而 空间 本 身 是 纹理 状 的 ， 不 是 数学 和 经 典 牛 顿 
物理 学 所 假设 的 平稳 状态 。 物 理学 家 推测 这 样 小 距离 的 空间 不 是 通常 的 3 维 , 而 是 11 维 。 正 如 2500 
年 前 古 希 腊 哲 学 家 已 经 可 以 做 到 的 一 样 ， 我 们 相信 任何 事情 都 可 以 用 人 类 推理 和 思考 的 方式 解决 。 如 
果 忽 略 现实 世界 胡乱 思考 ， 可 能 得 到 以 下 结论 : 

前 提 : 我 没有 移动 , 因为 我 没有 感觉 到 自己 在 移动 

前 提 : 我 看 见 太阳 升 落 

所 以 , 太阳 绕 着 我 运动 。 

在 讨论 进化 算法 时 ， 术 语 突现 (emergence) 有 一 个 特别 的 含义 ， 用 来 表达 一 个 事先 未 预料 的 行为 
不 期 望 地 发 生 。 例 如 ， 在 小 溪 中 流动 的 水 ， 看 起 来 流动 很 平滑 一 直到 水 中 出 现 石头 。 汕 流 的 出 现 取 决 
于 水 速 、 石 头 的 大 小 和 其 他 因素 。 通 过 汕 流 、 退 潮 等 其 他 不 是 由 简单 流体 动力 学 而 需要 2 维 或 更 高 维 
公式 表达 的 动态 行为 ， 水 展示 了 非 直线 的 运动 。 这 些 公式 的 求解 通常 是 很 困难 的 ， 所 以 近似 数值 解 是 可 
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接受 的 最 佳 解 答 。 许 多 重要 的 突现 行为 已 被 发 现 和 应 用 于 城市 、 管 理 和 其 他 众多 领域 中 (Johnson 01). 

突现 行为 的 一 个 经 典 例子 是 蚁 群 ， 这 导致 了 一 种 分 布 式 智能 技术 ， 称 为 群体 智能 (swarm intelli- 
gence) (Kennedy 01)。 这 与 人 类 和 其 他 哺乳 动物 所 展现 的 集中 智能 (centralized intelligence) 不 同 ， 虽 
然 集中 智能 在 群体 类 型 的 昆虫 中 也 应 用 得 很 好 。 人 们 正在 研究 群体 智能 的 应 用 以 便 在 其 他 星体 中 建立 
健壮 的 机 器 人 群体 ， 在 这 些 地 方 ， 单 个 机 器 人 的 智能 是 不 够 的 ， 但 整个 群体 可 以 达到 ， 而 且 还 可 节省 
能 源 和 费用 开销 。 群 体 智 能 在 工业 、 网 络 和 其 他 分 布 式 系统 的 应 用 也 显示 了 远大 前 景 。 事 实 上 ， 因 特 
网 本 身 可 以 看 作 是 群体 智能 的 应 用 ， 因 为 它 用 分 布 的 低层 智能 进行 包 分 组 ， 而 用 高 层 智能 进行 路 由 选 
择 。 这 也 正 符 合 了 20 世纪 60 年 代 最 初 因特网 GRA Arpanet 网 ) 出 现 的 目标 。 

人 工 智能 的 一 个 新 的 主要 方向 是 进化 算法 (Fogel 03)， 通 常 与 其 他 人 工 智 能 技术 如 ANS 一 起 使 
用 ， 以 提高 结果 的 可 靠 性 。ANN 、 遗 传 算法 和 其 他 类 似 方法 的 问题 在 于 最 后 解 容易 陷 人 局 部 最 优 而 得 
不 到 全 局 最 优 解 。 基 于 这 个 原因 ， 有 些 方法 保留 那些 “不 适应 ”的 解 而 不 是 全 部 采用 最 适应 的 解 进行 
下 一 代 的 复制 ， 以 跳出 局 部 循环 。 

比 起 取消 或 减少 假设 ,研究 连接 系统 是 优化 ANN 结构 的 有 效 方法 (Kasabov 02)。 这 些 并 行 处 理 
技术 充分 利用 了 计算 机 的 功效 且 更 具备 可 行 性 ， 因 为 现代 计算 机 的 计算 能 力 越 来 越 强大 ， 而 且 互 联网 
和 其 他 私有 公司 也 提供 了 连 人 许多 计算 机 进行 计算 的 接口 (Foster 03). 

严格 来 说 ， 计 算 机 中 的 进化 算法 并 不 是 基于 达尔 文 进化 理论 ， 而 是 Lamarck 的 竞争 理论 。 达 和 尔 文 
进化 理论 中 ， 千 万 年 才 迈 出 进化 的 一 小 步 。Lamarck 是 19 世纪 达尔 文学 说 的 支持 者 ， 他 相信 动物 通过 
练习 可 以 拥有 一 定 限度 内 的 强大 力量 ， 而 这 个 动物 的 后 代 可 以 有 更 强大 的 分 支 。 我 们 通过 使 用 计算 机 
来 选择 与 我 们 的 适应 值 标准 最 为 接近 的 后 代 以 使 进化 处 理 符 合 Lamarck 的 理论 过 程 。 

进化 算法 已 经 被 作为 计算 机 程序 的 一 部 分 用 于 创造 人 工 生 命 。 但 遗传 算法 或 神经 网 络 解决 问题 的 
领域 并 不 仅 限于 此 。 它 们 还 可 用 于 广泛 的 领域 ， 如 生态 学 、 经 济 学 中 研究 野生 肉食 动物 食物 供应 链 关 
系 ， 或 更 复杂 的 任何 环境 下 的 如 全 球 经 济 中 的 生产 消费 关系 。 影 像 游戏 也 充分 利用 了 环境 算法 来 为 用 
户 定义 新 的 虚拟 生物 。 一 个 经 典 的 例子 是 功能 强大 的 游戏 “The Sims”"， 以 及 其 可 供 全 球 许多 人 共同 参 
与 的 在 线 版 本 。 

当 在 连接 系统 中 使 用 进化 技术 时 ， 计 划 外 的 意外 事故 可 能 会 发 生 。 不 过 ， 这 只 是 增加 了 那些 支持 
基于 逻辑 的 人 工 智 能 者 的 批评 。ANN 算法 不 能 解释 其 连接 规则 和 权 值 是 如 何 获取 的 。 尽 管 许多 人 试图 
让 ANS 可 以 解释 这 些 规则 ， 事 实证 明 这 些 规 则 和 权重 不 是 由 人 来 规定 的 ， 而 是 对 输入 的 反馈 ， 以 满足 
系统 输出 的 需要 。 从 这 个 意义 上 说 ，ANN 或 进化 算法 能 产生 正确 的 解决 方案 ， 否 则 它 不 会 存在 。 

随 着 人 类 基因 组 的 解码 ， 生 物 信息 学 (bioinformatics) 开始 越 来 越 重要 。 因 为 它 使 用 计算 机 技术 来 
处 理 巨大 数量 的 信息 。 许 多 问题 开始 呈现 在 人 工 智 能 工作 者 面前 。 同 时 也 产生 了 新 的 学 科 领 域 : 基因 
组 学 (genomics) 和 和 蛋 自 质 组 学 (proteomics) 。 人 类 基因 组 由 大 约 30 000 个 基因 组 成 。 每 个 基因 是 一 个 
生产 携带 机 体 功能 蛋白 质 的 工厂 ， 蛋 白质 在 细胞 中 起 作用 或 在 细胞 间 传 递 。 目 前 的 挑战 是 如 何 界定 每 
一 个 基因 和 和 蛋白质， 不 仅仅 是 正常 的 也 包括 病变 的 基因 。 由 于 数据 和 可 能 解数 目 巨 大 ， 这 些 任务 需要 
极 大 的 计算 能 力 。 人 工 智 能 正 是 一 个 合适 的 工具 。 

人 工 智 能 在 军事 上 也 显示 了 其 功效 。1990 年 第 一 次 海湾 战争 结束 时 ， 在 军队 中 使 用 人 工 智 能 使 国 
防 部 高 级 研究 项 目 组 (Defense Advanced Research Projects Agency, DARPA) 从 20 世纪 50 年 代 开 始 对 
人 工 智 能 研究 的 资金 投入 (htp: /Avww.au.af.mil/au/aul/school /acse/ai02 . htm) 得 到 了 成 倍 的 回报 。 
今天 ， 人 工 智能 通过 计算 机 游戏 模拟 军队 训练 节省 了 大 量 花费 ， 因 为 相对 于 真实 的 战争 来 说 ， 它 不 需 
要 燃料 和 军火 。 

在 20 世纪 50 年 代 难 以 想像 人 工 智 能 可 以 在 商业 上 取得 如 此 成 功 。 那 时 候 以 及 接 下 来 的 四 分 之 一 
世纪 ， 人 工 智能 研究 者 的 重点 在 于 寻找 重要 的 、 严 肃 的 应 用 如 定理 证 明和 自动 发 现 。 尽 管 同时 也 使 用 
人 工 智 能 程序 来 下 西洋 棋 、 象 棋 和 玩 其 他 游戏 ， 但 人 工 智 能 程序 是 用 于 严肃 认真 的 目的 如 理解 人 类 推 
理 ， 而 不 是 娱乐 应 用 。 
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今天 ， 人 工 智能 在 视频 游戏 的 商业 成 功 和 电影 中 的 特殊 作用 对 于 最 初 的 研究 者 来 说 是 难以 想像 的 。 
视频 游戏 公司 与 电影 和 音乐 共同 竞争 消费 者 市 场 。 人 们 喜欢 玩 ， 特 别 是 和 不 同 国家 、 城 市 、 地 区 的 人 
一 起 玩 交 互 游戏 。 先 进 的 视频 游戏 高 度 依赖 人 工 智能 来 使 生物 行为 自然 化 ， 而 不 是 简单 的 预定 义 模式 。 

事实 上 ， 越 来 越 多 的 大 学 提供 视频 游戏 课程 以 及 学 分 ， 因 为 存在 巨大 的 商业 利益 和 工作 机 会 。 人 
工 智能 也 在 商业 中 发 挥 作 用 ， 最 典型 的 如 基于 知识 的 筛选 助手 可 以 日 除 90% 的 问题 。 具 有 专业 知识 的 
专家 系统 也 应 用 在 其 他 大 量 商业 行为 中 。 唯 一 的 问题 是 ， 这 些 系 统 基 于 公司 的 利益 信息 ， 所 以 公司 一 
般 不 会 公布 其 系统 细节 以 避免 其 竞争 对 手 获 益 。 

不 过 ,在 因特网 上 仍然 有 许多 附录 G 中 所 列 出 的 专家 系统 例子 ， 大 部 分 在 万 维 网 上 ， 有 一 些 在 网 
站 CiteSeer 的 文章 里 ， 还 有 一 些 在 新 闻 组 comp.ai.shells 中 ， 如 CLIPS 专家 系统 就 在 其 中 有 很 多 讨论 。 
新 闻 组 的 优点 在 于 你 可 以 发 表 问题 期 待 别人 回答 。 

除了 人 工 智能 和 专家 系统 ， 本 体 工程 (ontological engineer) 也 提供 了 一 个 新 的 工作 机 会 。 它 可 以 
看 作 是 哲学 工程 的 一 个 分 支 。 在 人 工 智 能 和 专家 系统 中 ， 本 体 (ontology) 有 不 同 于 传统 哲学 意义 上 的 
Le 

本 体 有 着 明确 的 形式 规范 ， 其 间 存 在 着 相关 关系 (Gruber 93)。 本 体 广泛 存在 于 网 页 中 ， 尽 管 普通 
的 网 页 使 用 者 并 没有 意识 到 这 一 点 。 从 巨大 的 组 织 分 类 本 体 ， 例 如 垂直 的 从 上 到 下 分 类 的 组 织 相关 信 
息 的 网 站 Yahoo, A Amazon.com, eBay 和 其 他 按照 价格 或 拍卖 时 间 及 招标 时 间 进 行 目 录 组 织 的 网 
站 。 基 本 上 ， 本 体 是 一 个 标准 的 、 符 合 某 个 规范 的 描述 术语 集 ， 用 来 描述 一 个 领域 ,无 论 是 进行 预订 、 
拍卖 或 者 其 他 内 容 。 如 果 没 有 一 个 通用 的 词汇 表 , 没有 人 知道 在 讨论 领域 中 的 是 什么 内 容 。 许 多 组 织 
为 他 们 自己 的 领域 开发 本 体 以 便 更 好 地 以 明确 的 方式 表明 领域 中 讨论 的 内 容 。 

一 个 标准 化 本 体 的 最 大 优点 之 一 在 于 它 是 机 器 可 识别 的 ， 因 此 计算 机 可 以 帮助 人 类 查找 所 需要 的 
条 目 。 一 个 类 似 的 工作 是 为 不 同 的 领域 定义 扩展 标记 语言 XML。 今 天， 如果 要 想 成 为 一 个 本 体 工程 
师 ， 为 大 量 的 知识 分 类 ， 就 必须 具有 人 工 智 能 背景 。 本 体 工程 也 应 用 于 建立 和 维护 一 个 专家 系统 的 数 
据 库 。 这 不 是 一 个 微不足道 的 工作 ， 特 别 是 当知 识 库 越 来 越 大 ， 并 且 人 允许 用 户 输入 新 的 知识 为 专家 系 
统 所 用 的 时 候 。 


1.16 小 结 


在 这 一 章 ， 我 们 回顾 了 专家 系统 的 发 展 和 一 些 问 题 。 专 家 系统 所 解决 的 问题 一 般 用 传统 程序 难以 
解决 ， 因 为 这 些 问题 缺乏 一 个 有 效 的 算法 。 由 于 专家 系统 是 基于 知识 的 ， 它 能 有 效 解决 现实 中 用 别 的 
方法 难以 解决 的 非 结 构 化 难题 。 同 时 ， 还 讨论 了 一 些 知识 表示 规范 以 及 其 优 缺 点 ， 关 于 这 一 点 ,在 
(Giarratano 04) 中 有 更 详细 的 讨论 。 

在 选择 专家 系统 所 适宜 的 应 用 问题 领域 这 部 分 内 容 中 ， 我 们 讨论 了 专家 系统 的 优 缺 点 ， 同 时 也 给 
出 了 选择 适宜 应 用 的 标准 。 

以 基于 规则 的 专家 系统 为 例 ， 我 们 讨论 了 专家 系统 外 壳 的 基本 组 成 。 通 过 一 个 简单 的 规则 例子 ， 
我 们 描述 并 说 明了 基本 的 推理 机 识别 动作 循环 。 最后， 描述 了 专家 系统 与 其 他 程序 范例 的 关系 。 所 有 
这 些 最 重要 的 一 点 是 : 专家 系统 是 一 种 不 同 的 程序 设计 工具 ， 它 适合 于 某 些 应 用 ， 而 不 适合 于 另外 一 
些 应 用 。 以 后 章节 将 会 更 详尽 地 描述 专家 系统 的 特征 与 适用 性 。 专 家 系统 的 优 缺 点 也 将 在 介绍 如 何 为 
专家 系统 选择 合适 的 领域 时 讨论 。 

正如 计算 机 用 户 通 过 使 用 网 格 计算 来 完成 大 量 计算 功能 ， 生 物 实验 室 利用 DNA 链 ， 未 来 人 工 智能 
的 发 展 将 毫 无 疑问 地 使 用 量子 计算 机 (Brown 00)。 这 两 种 方式 可 以 在 几 天 内 解决 非常 复杂 的 旅行 售 货 
者 问题 ,这 比 任 何 一 个 单一 的 超级 计算 机 快 得 多 。 

附录 G 列 出 了 许多 人 工 智 能 的 现行 信息 链接 。 人 工 智能 信息 和 软件 的 最 好 资料 来 源 是 互联 网 。 其 
他 相关 的 新 闻 组 有 模糊 逻辑 、 神 经 网 、 专 家 系统 外 壳 等 。 除 了 可 获取 信息 和 软件 外 ， 这 些 新 闻 组 还 允 
许 用 户 提 出 问题 并 得 到 来 自 于 其 他 用 户 的 答案 。 你 可 以 按照 章节 上 网 浏览 附录 G 中 列 出 的 资源 。 
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习题 


1.1 


km 
_ 
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找 一 个 专家 或 学 者 并 拜访 他 。 然 后 ， 根 据 “ 专 家 系统 的 优点 ”这 一 节 的 内 容 讨论 ， 把 该 专家 的 知 

识 模型 化 有 哪些 好 处 ? 

(a) 写 出 10 条 主要 的 规则 来 表示 习题 1 中 专家 的 知识 。 

(b) 编写 一 个 能 够 给 出 专家 建议 的 程序 ， 测 试 上 面 的 10 条 规则 是 否 能 给 出 正确 的 建议 。 为 了 简 
化 编程 ， 你 可 以 菜单 形式 让 用 户 输入 。 

(a) 在 Newell 和 Simon #3 (Human Problem Solving) +, 他 们 提 到 一 个 九 点 问题 。 给 定 如 下 排 
列 的 9 个 点 ， 画 出 4 条 直线 通过 这 些 点 并 满足 (a) 笔 不 能 离开 纸 (b) 不 在 任 一 点 交叉 。 


(b) 解释 你 是 如 何 找到 求解 方案 的 (如 果 可 能 的 话 )， 并 讨论 专家 系统 和 其 他 程序 设计 方法 哪个 
更 适 于 求解 该 类 问题 。 

编写 一 个 程序 求解 密码 问题 。 给 出 下 面 问题 的 结果 ,这 里 D=5 

DONALD 


+ GERALD 
ROBERT 


写 一 组 产生 式 规则 集 ， 来 区 别 5 种 不 同 的 燃料 ， 如 汽油 、 化 学 物质 等 ， 设 5 种 燃料 的 类 型 已 给 
定 。 
(a) 写 一 组 产生 式 规 则 集 ， 根 据 不 同 的 症状 来 诊断 3 种 类 型 的 病毒 。 
(b) 修改 上 面 程序 ， 使 得 一 旦 病毒 类 型 被 确定 ， 可 以 给 出 治疗 建议 。 
给 出 10 个 规划 假期 的 启发 式 IF…THEN 型 规则 。 
给 出 10 个 购买 二 手 车 的 IF…THEN 型 启发 式 规则 。 
给 出 10 个 安排 课表 的 IF…THEN 型 启发 式 规则 。 
给 出 10 个 购买 汽车 的 IF…THEN 型 启发 式 规则 。 
给 出 10 个 购买 证 券 或 股票 的 IF-…THEN 型 启发 式 规则 。 
给 出 10 个 为 拖欠 作业 辩解 的 IF…THEN 型 启发 式 规则 。 
写 一 个 关于 现代 专家 系统 的 报告 ， 资 料 来 源 可 参考 PCA1，IEEE Expert 杂志 ， 以 及 附录 Go 
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第 2 章 知识 的 表示 


2.1 概述 


本 章 和 下 一 章 讨论 逻辑 (logic)。 许 多 人 把 逻辑 等 同 于 合理 。 也 就 是 说 ， 如 果 一 个 人 符合 逻辑 ， 那 
么 自然 他 也 是 合理 的 。 所 以 我 们 需要 更 加 明确 的 定义 以 便 处 理 基于 逻辑 的 人 工 智能 和 专家 系统 。 任 何 
使 用 计算 机 的 人 都 知道 ， 计 算 机 的 优点 在 于 它 严格 执行 指令 ,但 其 缺点 也 在 此 。 如 果 专 家 系统 决定 着 
你 的 信用 评估 ， 那 么 无 论 是 即将 被 税务 机 关 审计 ， 还 是 有 其 他 一 样 重要 的 事情 ， 最 好 让 所 有 东西 都 非 
常 符合 逻辑 ， 没 有 一 点 模糊 。 从 技术 上 讲 ， 逻 辑 是 研究 有 效 的 推理 。 即 如 果 事 实 集 是 真 的 ， 那 么 结论 
也 是 真 的 。 一 个 无 效 的 推理 意味 着 从 一 组 真实 的 事实 得 到 一 个 假 的 结论 。 

我 们 需要 明确 形式 逻辑 (formal logic) 与 非 形式 逻辑 (informal logic) 之 间 的 区 别 。 非 形式 逻辑 是 
人 们 ， 特 别 是 律师 为 了 赢得 辩论 ， 比 如 一 个 案例 而 采用 的 一 类 逻辑 。 一 个 六 论 应 该 与 慷慨 激昂 无 关 ， 
但 在 法 庭 上 合法 的 辩论 中 ， 有 好 的 律师 通过 采用 煽动 性 的 词语 说 服 陪 审 团 而 获胜 。 一 个 复杂 的 逻辑 辩 
论 是 一 系列 推理 ， 其 中 一 个 结论 推导 出 另 一 个 结论 ， 以 此 类 推 。 在 法 庭 中 ， 也 许 会 直到 推出 下 述 结论 
之 一 , 或 有 罪 、 或 无 罪 、 或 因 精 神 错 乱 而 无 罪 ,或 审判 无 效 而 上 诉 。 

在 形式 逻辑 也 称 为 符号 逻辑 (symbolic logic) 中 ， 推 理 和 其 他 通过 有 效 方法 证 明 最 终结 论 真 伪 的 因 
素 是 最 重要 的 。 计 算 机 程序 中 的 漏洞 就 是 程序 进行 了 无 效 符 号 推理 的 最 佳 例子 。 逻 辑 同样 需要 赋予 符 
号 以 语义 (semantics)。 在 形式 逻辑 中 ， 我 们 不 会 采用 受 主观 影响 的 词 如 “你 喜欢 百事 可 乐 还 是 可 口 可 
乐 ?2”。 在 一 般 的 程序 设计 中 ， 形 式 逻 辑 通 常 采用 有 一 定 含义 的 词 作为 变量 名 ， 以 体现 语义 。 

除了 介绍 逻辑 ， 本 章 也 将 介绍 常用 的 知识 表示 方法 。 知 识 表 示 (Knowledge representation, KR) 
由 于 其 在 使 用 知识 的 软件 系统 中 起 着 决定 性 作用 而 被 看 作 是 人 工 智 能 的 核心 。 这 种 重要 性 同样 体现 在 
计算 机 科学 的 数据 库 设 计 中 。 数 据 库 通常 用 来 存储 当前 数据 ， 例 如 一 个 仓库 产品 的 详细 清单 、 已 付 账 
单 、 账 号 日 期 等 。 数 据 库 虽 然 不 是 知识 ， 但 很 多 公司 已 利用 数据 控 掘 来 提取 知识 。 

数据 挖掘 意味 着 使 用 存储 在 数据 仓库 (data warehouse) 中 的 档案 数据 (archival data) 来 预测 未 来 
趋势 。 例 如 ， 一 个 公司 可 通过 观察 过 去 五 年 12 月 份 的 销售 报告 来 预测 存货 清单 的 内 容 和 数量 。 又 如 ， 
他 们 可 能 通过 应 用 数据 挖掘 而 发 现 圣 诞 贺卡 在 12 月 份 销售 量 很 好 ， 而 情人 贺卡 则 不 是 。 一 个 更 真实 的 
案例 是 发 现 红 色 和 绿色 衣服 在 冬天 比 春天 畅销 ， 因 为 红色 和 绿色 与 圣诞 节 相 呼应 ， 而 棕色 、 橙 色 和 黄 
色 衣 服 在 秋季 比较 畅销 。 经 理 们 可 能 会 发 现 ， 数 据 挖掘 可 以 协助 提供 需要 购买 的 衣服 数量 ， 以 及 在 换 
季 时 推出 市 场 的 时 机 。 当 然 ， 数 据 挖 据 真正 的 用 途 在 于 从 公司 存储 的 海量 历史 数据 中 识别 出 对 于 人 类 
来 说 并 不 直观 的 模式 。 除 了 经 典 的 统计 学 方法 ， 人 工 智 能 技术 如 ANS、 遗 传 算法 、 进 化 算法 和 专家 系 
统 等 ， 都 可 单独 或 者 组 合 地 应 用 于 数据 挖 气 (Werbos 94)。 

KR 在 专家 系统 中 非常 重要 主要 有 两 个 原因 。 首 先 ， 专 家 系统 是 专 为 某 一 类 基于 逻辑 规则 (rules of 
logic) 即 推理 (inference) 的 知识 表示 设计 的 。 通 常 ， 我 们 把 推理 理解 为 从 事实 推出 结论 。 但 遗憾 的 是 
人 们 并 不 擅长 推理 ， 因 为 我 们 容易 把 语义 和 推理 过 程 本 身 混 淆 起 来 ， 从 而 导致 错误 的 结论 。 政 治 选举 
是 这 方面 很 好 的 例子 ， 政 治 逻 辑 的 本 质 就 是 推理 不 使 用 事实 ， 或 者 使 用 不 可 靠 的 事实 ， 或 者 从 同样 的 
事实 得 到 截然 不 同 的 结论 。 

推理 是 指 不 依赖 语义 的 某 种 推理 方法 的 形式 说 法 。 尽 管 现 实 世 界 中 语义 不 可 缺少 ,但 专家 系统 专 
为 基于 逻辑 的 推理 而 设计 ， 而 不 需要 把 主观 语义 引 人 和 人 其中。 推理 的 目的 是 从 事实 和 辩论 方式 上 得 到 可 
靠 的 结论 。 从 逻辑 上 来 讲 ， 这 里 辩论 的 含义 是 指 从 事实 和 推理 规则 中 得 到 有 效 结论 的 形式 方法 。 

有 效 的 推理 称 为 逻辑 推理 。 在 现实 世界 中 ， 常 识 和 概率 推理 (commonsense and probabilistic reasoning) 
是 无 法 评估 的 ， 它 们 包含 了 不 确定 性 ， 因 为 世界 上 没有 一 样 事 物 是 100% 绝 对 的 。 如 果 有 人 说 “天 空 是 
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蓝 的 "， 那 么 过 一 会 儿 可 能 会 变 灰 或 绿 。 不 确定 性 推论 是 我 们 在 第 4 章 和 第 5 章 要 讨论 的 重要 内 容 。 

KR 重要 的 第 二 个 原因 是 ， 它 影响 着 专家 系统 的 开发 、 效 率 、 速 度 和 维护 。 这 如 同 程序 设计 中 对 
数据 结构 的 选择 。 一 个 好 的 程序 设计 必须 选择 简洁 的 变量 、 数 组 、 链 表 、 队 列 、 树 、 图 、 网 络 甚至 外 
部 数据 库 如 Microsoft Access，SQL Server RÆ Oracles Œ CLIPS 中 ，KR 可 以 是 规则 、 自 定义 模板 、 对 
象 和 事实 。 

在 接 下 来 的 一 章 中 ,我 们 将 讨论 如 何 应 用 推理 从 知识 中 得 到 有 效 结 论 ， 以 及 常常 需要 小 心 的 看 起 
来 符合 逻辑 的 廖 论 。 这 一 点 对 第 6 章 讨 论 的 知识 获取 非常 重要 ， 当 你 为 专家 系统 访问 一 名 人 类 专家 时 ， 
你 必须 能 够 从 可 以 导致 无 效 结论 的 语义 中 分 辨 真正 的 知识 。 

附录 G 中 列 出 了 很 多 利用 人 工 智 能 来 进行 推理 、 定 理 证 明和 逻辑 学 习 的 程序 。 


2.2 知识 的 含义 


知识 一 词 ， 就 像 “ 爱 ”一 样 ， 每 个 人 都 知道 它 的 意思 ， 但 却 难 以 对 它 进行 定义 。 如 同 “ 爱 ”一 样 ， 
知识 有 许多 意思 。 有 些 词 ， 如 数据 、 事 实 和 信息 常 与 知识 互 换 使 用 。 

人 们 可 能 会 通过 推理 和 经 验 来 求解 一 个 问题 。 一 般 把 使 用 经 验 来 求解 问题 叫做 启发 式 (heuris- 
tics) 。 启 发 式 经 验 如 果 是 长 的 特殊 事例 就 叫 基 于 案例 的 推理 (case-based reasoning)。 这 是 法 律 、 医 学 、 
修理 等 领域 最 主要 的 推理 方法 之 一 。 律 师 、 医 生 、 机 械 师 常 试 着 用 以 前 类 似 的 案例 ， 称 为 先例 (prece- 
dents) 来 处 理 问 题 (Leake 96)。 一 些 人 已 有 和 你 同样 的 问题 ， 你 可 能 觉得 基于 案例 的 解决 方法 是 昂贵 
的 ,但 看 看 建 一 个 新 医疗 的 、 法 律 的 、 汽 车 修理 先例 需 花费 多 少 ! 

一 个 专家 系统 也 许 合 有 成 二 上 万 个 可 以 参考 的 小 个 案 ， 每 一 个 规则 都 可 认为 是 一 个 可 以 找到 解 的 
小 先例 ,或 者 是 可 用 于 有 希望 找到 解 的 推理 链 中 的 一 个 小 先例 。 

关于 知识 的 研究 称 为 认识 论 (epistemology)。 它 涉及 知识 的 本 质 、 结 构 和 起 源 。 图 2.1 描述 了 认识 
论 的 一 些 分 类 。 除 了 亚 里 士 多 德 、 柏 拉 图 、 笛 卡 儿 、 哈 莫 、 康 德 和 其 他 一 些 人 所 代表 的 哲学 类 外 ， 还 
有 两 个 特别 的 类 别 : 先 验 知识 (priori) 和 后 验 知识 〈posteriori)。 术 语 先 验 知识 来 自 拉 丁 文 ， 它 的 意思 
是 “超前 的 "。 这 种 知识 不 依赖 于 源 于 感觉 器 官 所 获得 的 知识 ， 例 如 , “万 事 都 有 起 因 ” 和 “平面 内 所 
有 三 角形 的 内 角 之 和 都 是 180"” 就 是 先 验 知识 。 先 验 知识 被 认为 是 普遍 正确 的 ， 没 有 反例 ， 也 不 能 被 
否定 。 逻 辑 语句 、 数 学 定律 都 是 先 验 知识 的 例子 。 


认识 论 


哲学 理论 先 验 知 识 后 验 知识 


图 2.1 认识 论 的 一 些 分 类 


与 先 验 知识 相反 的 是 由 感觉 器 官 所 获得 的 知识 ， 即 后 验 知识 。 后 验 知识 的 正确 与 错误 可 以 用 感觉 
经 验 来 证 明 ， 如 “ 光 是 绿 的 ”。 但 由 于 感觉 经 验 并 不 是 一 直 可 信 ， 后 验 知识 可 以 在 新 知识 的 基础 上 被 否 
定 ， 而 不 必 举 反例 。 例 如 ， 如 果 你 看 到 一 个 人 有 着 棕色 的 眼睛 ， 你 或 许 会 认为 那 人 的 眼睛 是 棕色 的 。 
但 当 你 后 来 看 到 那个 人 拿 下 了 棕色 的 眼镜 片 而 露出 蓝 色 的 眼睛 时 ， 你 的 知识 就 必须 修正 了 。 

知识 可 以 进一步 被 划分 为 过 程 性 知识 (procedural knowledge) 、 说 明 性 知识 (declarative knowledge) 
和 默认 性 知识 (tacit knowledge)。 其 中 ， 过 程 性 知识 和 说 明 性 知识 与 第 1 章 讨论 的 过 程 和 说 明 性 规范 
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相对 应 并 在 (Brewka 97) 中 有 更 深层 讨论 。 

过 程 性 知识 常常 是 指 知道 如 何 做 某 事 ， 例 如 知道 如 何 去 烧 开 一 锅 水 。 但 如 果 你 认为 自己 知道 所 有 
海拔 下 如 何 煮沸 水 则 会 导致 常识 推理 的 错误 ， 一 个 真实 的 矛盾 是 ， 在 常识 下 没有 推理 只 有 真实 世界 的 
经 验 (在 本 章 末 的 者 沸水 习题 )。 说 明 性 知识 是 指 知道 某 事 是 对 的 还 是 错 的 ， 它 常用 说 明 语句 的 形式 来 
表达 知识 ， 例 如 “不 要 把 你 的 手指 放 进 一 锅 沸 水 中 "。 使 用 逻辑 来 表达 知识 的 不 同方 式 已 开发 出 来 ， 见 
(Sowa 00). 

默认 性 知识 由 于 不 能 用 语言 来 表达 ， 常 被 称 作 无 意识 的 知识 (unconscious knowledge)， 例 如 你 知 
道 如 何 移动 你 的 手 。 一 般 ， 你 或 许 会 说 通过 绷 紧 或 放松 你 的 肌肉 和 筋骨 来 移动 你 的 手 。 但 在 更 低 的 层 
次 上 ， 你 是 如 何 知道 怎样 绷 紧 或 放松 肌肉 和 筋骨 的 ? 走路 和 骑 自 行车 也 是 这 样 的 一 些 例子 。 在 计算 机 
系统 中 ，ANS 与 默认 性 知识 有 关 。 因 为 神经 网 通常 不 能 直接 解释 它 的 知识 ， 但 如 果 有 一 个 适当 的 程 
序 ， 或 许 就 可 以 解释 了 COURS 1.14 小 节 )。 

知识 在 专家 系统 中 最 为 重要 。 事 实 上， 与 Wirth 的 经 典 表述 

算法 + 数据 结构 = 程序 
相 类 似 ， 在 专家 系统 中 ， 有 : 

知识 + 推理 = 专家 系统 

正如 本 书 中 所 指 ， 知 识 是 图 2.2 中 层次 结构 中 的 一 部 分 。 最 底层 是 品 音 ， 由 几乎 没有 意义 的 事项 
和 含糊 难 解 的 数据 组 成 。 上 一 层 是 数据 ， 是 一 些 有 潜在 意义 的 事项 。 信 息 或 是 经 过 加 工 后 具有 意义 的 
数据 在 第 三 层 。 再 上 一 层 就 是 代表 专门 化 信息 的 知识 。 这 些 重要 信息 是 行为 依据 并 且 受 到 保护 。 在 第 
1 章 中 ， 基 于 规则 的 专家 系统 里 的 知识 被 定义 为 由 事实 激发 而 产生 新 的 事实 或 结论 的 规则 。 推 理 过 程 
是 专家 系统 的 另 一 个 重要 部 分 。 推 理 (inferencing) 一 词 通常 用 于 像 专家 系统 这 样 的 机 械 系统 中 。 而 推 
导 (Reasoning) 一 般 用 于 人 类 的 思维 。 


智慧 : 有效 地 使 用 知识 
元 知识 : 知识 的 规则 
知识 : 使 用 信息 的 规则 
信息 : 对 知识 潜在 有 用 
Bde. 于 在 有 用 的 信息 
Re: 无 明显 信息 





图 2.2 知识 的 层次 结构 


ANS 不 进行 推理 ， 它 寻找 对 于 人 类 来 说 并 不 明显 的 数据 中 的 隐 含 模式 。 从 根本 上 来 说 ，ANS 是 一 
个 模式 分 类 器 。 例 如 ， 人 类 读 的 能 力 是 基于 大 脑 中 的 神经 网 已 经 被 训练 得 具备 了 对 字母 组 合 模式 的 识 
别 。 大 脑 的 另 一 部 分 把 这 些 模式 翻译 成 脑海 中 所 听 过 的 词语 ， 因 为 小 时 候 就 是 这 样 教 的， 最 后 按照 读 
音 读 出 来 。 如 果 把 这 本 书 上 下 颠倒 ， 最 初 可 能 很 多 人 没有 办 法 读 。 但 是 可 以 让 你 的 读 神 经 网 重新 适应 
以 辨认 出 字体 。 在 经 典 的 心理 学 实验 中 ， 人 们 带 上 颠倒 图 像 的 眼镜 。 几 天 后 ， 他 们 的 大 脑 接受 并 适应 
了 这 种 情况 。 事 实 上 ， 我 们 的 眼睛 会 把 图 像 颠 倒 ， 大 脑 再 将 其 恢复 正常 。 

另 一 个 显示 神经 网 的 变通 能 力 的 例子 是 把 书本 翻转 30”(Saratchandran 96)。 虽 然 慢 一 点 ， 但 你 仍 
然 可 以 阅读 。 如 果 你 把 书本 翻转 180"， 也 只 是 增加 你 阅读 的 难度 。 通 过 训练 ， 有 一 些 人 可 在 翻转 书本 
的 情况 下 一 样 地 阅读 ， 这 显示 了 人 们 神经 网 的 令 人 惊异 的 适应 能 力 。 同 样 的 ， 经 过 不 同 角度 文字 的 训 
练 ，ANS 可 以 阅读 不 正常 显示 的 文字 。ANS 经 过 的 训练 角度 越 多 ， 能 够 识别 的 能 力 就 越 强 。 类 似 地 ， 
如 果 对 一 个 ANS 训练 不 同 的 草 写字 样 ，ANS 就 可 以 辨别 更 多 的 手写 体 ， 就 如 同一 个 人 可 以 阅读 不 同人 
的 手写 体 一 样 。 

BR (fact) 一 词 指 可 靠 的 信息 。 专 家 系统 使 用 事实 推理 。 事 实 若 随后 证 实 为 假 ， 可 以 用 CLIPS 
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的 真 值 维持 工具 (Truth Maintenance facility) 撤销 ， 相 关 的 结论 、 规 则 以 及 由 此 虚假 事实 产生 的 事实 
也 自动 撤销 。 专 家 系统 也 可 以 (1) 从 噪声 中 提取 数据 ，(2) 把 数据 转化 为 信息 ，(3) 把 信息 转化 为 知 
识 。 在 一 个 依赖 事实 的 专家 系统 中 使 用 原始 数据 是 非常 危险 的 ， 因 为 结论 的 可 信 性 将 很 不 可 靠 。 这 正 
如 一 甸 谚 语 所 说 :“ 垃 圾 进 ， 垃 圾 出 ”， 除 非 某 人 想 用 垃圾 来 支持 一 个 特别 的 议程 。 

以 上 概念 可 以 用 一 个 例子 来 说 明 ， 考 察 如 下 的 24 个 数字 : 

137178766832525156430015 

如 果 没 有 知识 ， 这 些 数 字 可 能 会 被 看 作 噪 音 。 但 如 果 知 道 这 组 数 是 有 意义 的 ， 它 就 是 数据 。 决 定 
何者 为 数据 ， 何 者 为 噪音 ， 就 像 那 句 关 于 花园 的 谚语 :“ 杂 草 是 你 不 想 要 ， 却 生长 着 的 所 有 东西 。 

在 把 数据 转化 为 信息 时 ， 需 要 一 定 的 知识 存在 。 例 如 ， 下 面 这 个 算法 可 以 将 数据 加 工 成 信息 : 

每 两 个 数字 分 为 一 组 

忽略 那些 小 于 32 的 两 位 数 

用 ASCII 字符 代替 两 位 数 
把 这 个 算法 运用 到 前 面 的 24 个 数字 中 ， 则 可 以 产生 信息 : 
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现在 知识 可 以 被 运用 到 这 个 信息 中 。 例 如 ， 这 里 有 一 条 规则 : 

IF 黄金 价格 低 于 500, 

且 价 格 正在 上 涨 (+) 

THEN 买 黄金 

尽管 在 图 2.2 中 没有 明确 的 显示 ， 专 家 知识 (expertise) 是 专家 所 拥有 的 一 种 专业 化 的 知识 ， 如 图 
2.2 的 元 知识 、 知 识 、 智 慧 。 专 家 知识 通常 不 能 从 图 书 、 报 纸 那样 的 公共 信息 源 中 找到 。 例 如 ， 关 于 
外 科 手 术 过 程 的 细节 可 以 在 医学 书籍 中 找到 ， 但 是 即使 价格 减 半 ， 你 是 否 愿 意 一 个 声称 已 经 通过 在 线 
课程 的 人 为 你 实施 脑 部 手术 呢 ? 

专家 知识 是 专家 所 暗含 的 知识 ， 它 必须 被 抽取 才能 明确 地 表示 在 一 个 专家 系统 中 。 知 识 的 暗合 性 
在 于 一 个 真正 的 专家 深刻 理解 了 知识 以 至 于 成 为 第 二 本 能 而 不 需要 过 多 的 思考 。 例 如 ， 从 医学 院 毕 业 
的 实习 生 经 过 每 周 超 过 80 小 时 的 一 年 实习 期 之 后 才 可 以 比较 果断 地 进行 各 种 治疗 手术 。 这 种 实习 是 非 
常 殉 格 的 ， 它 使 得 知识 深 深刻 在 脑海 中 成 为 第 二 本 能 。 最 上 面 的 知识 是 元 知识 (metaknowledge)。 元 
(meta) 的 意思 是 “在 …… 之 上 ”。 

元 知识 是 关于 知识 和 专家 知识 的 知识 。 尽 管 一 个 专家 系统 可 设计 为 具有 几 个 不 同 领域 的 知识 ， 但 
通常 并 不 受 欢迎 ， 因 为 它 使 得 系统 定义 不 够 明确 。 经 验 表 明 ， 大 多 数 成 功 的 专家 系统 是 严格 限于 某 个 
较 小 的 领域 的 。 例 如 ， 如 果 一 个 专家 系统 被 设计 用 来 诊断 细菌 疾病 ,那么 用 它 来 同时 进行 汽车 故障 诊 
断 就 不 妥当 了 。 参 考 现 实 世 界 中 的 例子 ， 一 个 医生 专攻 某 一 方向 而 不 是 所 有 的 医学 领域 。 即 使 是 家 庭 
医师 〈( 称 之 为 全 科 开 业 医 师 ) ， 也 会 在 需要 的 时 候 建议 病人 去 看 专科 医生 。 

在 专家 系统 中 ， 一 个 本 体 就 是 描述 问题 领域 的 元 知识 。 理 想 情 况 下 本 体 应 该 以 形式 的 方式 描述 ， 
以 方便 找 出 不 一 致 性 和 不 充分 性 。 有 很 多 免费 的 和 商用 的 工具 可 以 构建 本 体 库 。 建 立 一 个 本 体 库 应 该 
在 专家 系统 实施 之 前 ， 否 则 由 于 有 更 多 的 领域 信息 、 规 则 可 能 会 重 写 ， 这 样 就 会 增加 费用 、 开 发 时 间 
和 漏洞 。 

例如 ， 一 个 专家 系统 可 以 具备 关于 修理 GM 轿车 、GM SUV 和 GM 柴油 卡车 的 知识 库 。 根 据 要 修 
理 汽 车 的 类 型 ， 将 使 用 相应 的 知识 库 。 把 所 有 知识 库存 放 在 内 存 中 可 能 会 使 内 存 和 速度 方面 效率 较 低 ， 
因为 Rete 网 持续 地 修改 内 存 中 的 规则 网 络 。 而 且 ， 当 卡车 和 汽车 的 规则 前 件 具 有 相同 的 模式 ， 而 后 件 
不 同时 ， 可 能 导致 冲突 。 例 如 ， 如 果 燃 料 读数 为 空 ， 汽 车 专家 系统 会 表明 “为 油箱 添加 汽油 ”， 而 卡车 
专家 系统 可 能 会 表明 “为 油箱 添加 柴油 ”。 为 汽车 添加 柴油 或 者 为 卡车 添加 汽油 都 是 不 恰当 的 。 当 系统 
中 的 规则 数目 增加 时 ， 专 家 系统 必然 变 慢 ， 因 为 Ree 网 变 大 了 。 元 知识 可 以 用 来 决定 哪个 领域 知识 应 
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该 被 调和 人 内 存 ， 也 可 以 用 来 指导 设计 和 维护 专家 系统 以 及 本 体 。 

EG FEE, BM (wisdom) 是 所 有 知识 的 顶峰 。 智 慧 是 确定 生活 的 最 佳 目标 并 如 何 去 获 取 它 
的 元 知识 。 一 条 智慧 的 规则 可 以 是 : 

亚 我 有 足够 的 钱 来 保证 我 的 配偶 快乐 

THEN 我 会 退休 并 享受 生活 

基于 人 工 智能 的 智慧 工程 正在 持续 地 发 展 。 然 而 ， 由 于 这 个 世界 上 智慧 的 极端 缺乏 ， 我 们 应 该 将 
自己 限制 在 基于 知识 的 系统 中 ， 而 把 基于 智慧 的 系统 留 给 政客 和 其 他 专家 。 


2.3 产生 式 


已 经 有 许多 不 同 的 知识 表示 技术 。 包 括 规则 、 语 义 网 、 框 架 、 脚 本 、 逻 辑 、 概 念 组 等 。 特 别 是 还 
有 许多 知识 表示 语言 如 KL-1 和 它 的 模型 基础 发 展 ，CLASSIC (Brachman 91)。 还 有 许多 其 他 语言 被 推 
荐 包含 可 视 化 语言 的 。 

正如 在 第 一 章 中 所 描述 的 ， 产 生 式 规 则 常 被 作为 知识 库 而 用 在 专家 系统 中 ， 因 为 其 优点 大 大 超过 
TRA. 

定义 产生 式 的 一 种 形式 方法 是 Backus-Naur 范式 (BNF)。 这 种 方法 是 一 种 定义 语法 的 元 语言 
(metalanguage)。 语 法 (syntax) 定义 了 形式 ， 而 语义 (semantics) 则 指出 了 含义 。 元 语言 是 一 种 描述 
语言 的 语言 。 元 意 为 “在 …… 之 上 ”， 因 此 元 语言 是 高 于 一 般 语言 的 。 

语言 的 种 类 很 多 ， 有 自然 语言 、 逻 辑 语言 、 数 学 语言 和 计算 机 语言 。 如 “一 个 句子 由 一 个 名 词 和 
一 个 动词 及 标点 符号 组 成 "， 这 个 简单 的 英语 语言 规则 的 BNF 如 下 : 

< 句子 >::= < 主语 > < 动词 > < 结束 标志 > 


REPRES O A: = 是 元 语言 符号 ， 而 不 是 语言 符号 。 符 号 “:: =” 意 为 “被 定义 为 "， 它 同 第 
1 章 中 产生 式 规则 的 稍 头 “一 )” 意 义 是 等 价 的 。 为 了 防止 与 Pascal 语言 的 操作 符 “: =” 相 混 ， 我们 
将 使 用 箭头 。 


尖 括 号 中 的 项 称 为 非 终结 (nonterminal) 符号 或 简称 为 非 终结 符 〈(nonterminal) 。 一 个 非 终结 符 是 
表示 其 他 项 的 变量 。 其 他 的 项 既 可 以 是 非 终结 符 ， 也 可 以 是 终结 符 (terminal)。 一 个 终结 符 不 能 被 其 
他 任何 项 所 代 蔡 ， 因 此 它 是 常量 。 

(AF) 是 一 个 特殊 的 非 终结 符 ， 因 为 它 是 一 个 定义 其 他 符号 的 开始 符号 (start symbol). BF 
语言 的 定义 中 ,开始 符号 常 被 命名 为 《程序 )。 产 生 式 规则 . 

< 句子 > 一 < 主语 >< 动 词 >< 结 束 标志 > 
表示 一 个 句子 由 一 个 主语 跟 一 个 动词 ， 再 跟 一 个 结束 标志 组 成 。 下 面 这 些 规 则 通过 指出 可 能 的 终结 符 
来 定义 非 终 结 符 。 在 元 语言 中 | 意 为 “或 ”。 

< 15 >—1| you! We 

< shia] > left! came 

< 结束 标志 > 一 .1?|! 

语言 中 所 有 可 能 的 句子 ， 都 可 以 这 样 来 生成 ， 依 次 用 右边 的 非 终结 符 或 终结 符 来 代替 左边 的 每 个 
非 终结 符 ， 直 至 所 有 的 非 终结 符 被 消除 为 止 。 下 面 就 是 这 样 一 些 产 生 式 : 


I left. 

I left? 

I left! 
You left. 
You left? 
You left! 
We left. 
We left? 
We left! 
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一 组 终结 符 称 为 语言 的 串 〈string)。 如 果 这 个 串 是 从 开始 符号 通过 使 用 产生 式 规 则 不 断 蔡 换 非 终 
结 符 而 获得 的 ， 那 么 它 就 是 一 个 合法 的 多 子 (sentence). BM “We”, “WeWe” 和 “leftcamecame” 都 
是 合法 的 串 ， 但 不 是 合法 的 句子 。 

A (grammar) 是 无 歧义 地 定义 一 种 语言 的 一 组 完整 的 产生 式 规 则 。 尽 管 前 面 的 规则 确实 定义 了 
一 个 语法 ,但 它 是 很 有 限 的 ， 因 为 它 几乎 没有 什么 可 能 的 产生 式 。 例 如 ， 一 个 更 加 详细 的 语法 还 应 该 
包括 直接 宾语 ， 正 如 下 面 的 产生 式 : 

< 句子 > 一 < 主语 >< 动 词 >< 宾 语 >< 结 束 标志 > 

之 宾语 > 一 home |work| school 

尽管 这 是 一 个 正确 的 语法 ， 但 它 对 于 实际 应 用 还 是 太 简单 了 。 一 个 更 为 实际 的 语法 可 以 是 下 面 这 
样 的 ， 为 了 简单 起 见 省 略 了 它 的 结束 标志 : 

< 句子 > 一 < 主语 短语 > < 动词 >< 宾 语 短语 > 

< 主语 短语 > 一 < 限定 词 >< 名 词 > 

< 宾语 短语 > 一 < 限定 词 >< 形 容 词 >< 名词 > 

< RE te) >—al an|the|this|these| those 

< Zij >—>man| eater 

<i] >— is|was 

<É Aik] > dessert | heavy 

< 限定 词 > 用 于 指示 一 个 特定 的 项 目 。 用 这 种 语法 ， 就 产生 了 像 下 边 这 样 的 句子 : 


the man was a dessert eater 
an eater was the heavy man 


一 棵 语法 分 析 树 (parse tree) 或 派生 树 (derivation tree) 是 一 种 把 句子 分 解 成 所 有 非 终结 符 和 终结 
符 ， 以 便 得 出 句子 的 图 形 表 示 法 。 图 2.3 是 句子 “the man was a heavy eater” 的 语法 分 析 树 。 但 是 ， 串 
“man was a heavy eater” 因 为 缺少 主语 短语 中 的 限定 词 而 不 是 一 个 合法 的 句子 。 当 编译 器 判断 一 个 程序 
中 的 语句 是 否 符合 某 种 语言 的 语法 时 ， 便 产生 了 一 棵 语法 分 析 树 。 





句子 
主语 短语 动词 宾语 短语 
限定 词 名 词 “a n a 
the man was a heavy eater 


图 2.3 句子 的 语法 分 析 树 


图 2.3 中 的 树 表明 “the man was a heavy eater” 这 个 句子 可 以 通过 运用 合适 的 产生 式 而 从 开始 符号 
获得 。 这 个 过 程 的 步骤 如 下 所 示 ; 双 箭 头 “=> ”表示 所 使 用 的 产生 式 。 

< 之 句子 > => < 主语 短语 > <i > < 宾语 短语 > 

之 主语 短语 > => < 限定 词 > < 名 词 > 

< PR iF] > =>the 

< ial > =>man 


< zhi > =>was 
之 宾语 短语 > = >< Re > <BR> <g> 
< RE > =>a 


< 形容 词 => heavy 
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名词 > =>eater 

另 一 种 使 用 产生 式 生成 合法 句子 的 方法 就 是 前 面 讨论 过 的 方法 ， 即 用 合适 的 终结 符 代 替 所 有 非 终 
结 符 。 当 然 ， 并 非 所 有 生成 的 产生 式 ， 如 “the man was the dessert”, MARX. 

有 限 状 态 机 (FSM) 非常 适合 识别 句子 结构 。 例 如 ， 编 译 器 使 用 有 限 状 态 机 把 计算 机 语言 源 代 码 
解析 (parse) 成 最 小 的 意义 单元 ， 称 为 标记 (token). FSM 和 解析 器 是 某 些 应 用 的 基础 ， 如 编译 器 把 
源 代 码 转换 成 汇编 语言 以 及 精确 的 语音 识别 等 。 术 语 编译 器 (compiler) 的 含义 如 今 已 经 扩展 到 Java 语 
言 中 ， 指 使 用 javac 编译 器 把 源 代码 转换 成 平台 无 关 的 字 节 码 ， 就 如 同 20 世纪 70 年 代 引入 Pascal 一 样 ， 
其 字 节 码 可 以 在 任何 微 处 理 器 上 执行 。Pascal 转换 成 字 节 码 被 称 为 解释 器 而 不 是 编译 器 ， 因 为 字 节 码 
跟 汇编 语言 一 样 并 不 是 特定 的 机 器 语言 指令 。 不 过 ， 解 释 器 比 编译 器 要 慢 ， 所 以 称 之 为 编译 器 要 比 称 
之 为 解释 器 的 广告 效果 好 。 

Xerox 公司 的 一 个 有 限 状 态 机 的 在 线 演示 在 : (http: //www .xree. xerox. com/competencies/content-anal- 
ysis/fsCompiler/fsinput. html). ÉF FSM 的 例子 如 软饮料 机 的 链接 在 : (http: //www.xrce.xerox.com/ 
competencies/content-analysis/fsCompiler/fsexamples.html)。FSM 的 一 个 非常 全 面 的 参考 在 : (http: //o- 
dur. let. rug. nl/alfa/fsa _ stuff/)。 

虽然 FSM 适 于 处 理 受 限 的 符号 集 ， 如 数字 0 一 9、 字 母 表 中 的 字母 ， 但 当 处 理 如 语音 识别 这 样 可 
能 出 现 二 义 性 的 问题 时 就 会 出 现 困难 ， 例 如 ， 下 面 两 个 句子 : 


{1) No one has let us read 
(2) No one has lettuce red 


在 句子 (1) 中 ， 某 人 抱怨 他 们 没有 读 ， 在 句子 (2) F, RAAB RE, —PARR AE let- 
tuce, let us, read, red 二 义 性 的 好 的 方法 是 使 用 隐 马 尔 可 夫 机 (hidden Markov Machine (HMM))， 它 
为 有 限 状 态 机 的 行为 分 配 一 个 概率 。 通 过 考虑 整个 句子 结构 以 及 其 他 的 句子 ，HMM 可 断定 正确 的 上 
FR (不 管 是 读 一 本 书 还 是 在 食品 杂货 店 找 一 种 蔬菜 )。 虽 然 专 家 系统 不 适合 作为 实现 HMM 的 软件 选 
择 ， 但 可 作为 语音 识别 的 一 个 前 端 工具 ， 因 为 像 CLIPS 这 样 的 专家 系统 可 用 来 触发 适合 的 规则 。 

事实 上 ，CLIPS 可 以 很 方便 地 与 C、C++ 代码 交互 ， 因 此 用 C、C++ 写 的 HMM 可 以 在 CLIPS 中 
调用 ， 就 像 调 用 其 他 任何 CLIPS 关键 词 一 样 。CLIPS 的 一 个 长 处 在 于 它 是 一 个 可 扩展 的 语言 ， 用 户 可 
以 很 容易 地 在 编译 时 增加 关键 词 以 便 获取 最 佳 性 能 。 而 且 ， 利 用 COOL 的 面向 对 象 特性 ， 通 过 对 象 的 
多 继承 性 ， 对 象 可 以 用 来 扩展 CLIPS。 其 他 软件 ， 如 ANS、 遗 传 算法 以 及 用 C 或 C++ 写 的 软件 既 可 以 
加 在 规则 的 左 部 以 触发 规则 ， 也 可 以 加 在 规则 的 右 部 用 作 输 出 。 例 如 ， 对 语音 合成 器 、 机 器 人 受 动 器 、 
执行 器 都 可 以 通过 定义 一 个 适当 的 关键 词 函数 在 CLIPS 中 被 调用 。CLIPS 的 源 代码 是 可 获取 的 意味 着 
新 的 关键 词 可 以 编译 到 CLIPS 中 ， 与 其 他 不 提供 源 代码 的 专家 系统 工具 相 比 ， 它 不 会 降低 速度 。 

2.4 语义 网 

语义 网 络 (semantic network) 或 语义 网 是 用 于 表示 命题 信息 的 一 种 经 典 的 人 工 智 能 表示 技术 
(http: //www.pcai.com/web/T6110H2/R6.ol.h8/pcai.htm)。 语 义 网 也 常常 叫做 命题 网 (propositional 
net)。 正 如 前 面 所 讨论 过 的 ， 一 个 命题 是 一 个 或 者 为 真 或 者 为 假 的 陈述 ， 如 “所 有 的 狗 都 是 哺乳 动物 ” 
和 “一 个 三 角形 有 三 条 边 ”。 命 题 是 说 明 性 知识 的 表达 形式 ， 因 为 它 陈述 了 事实 。 根 据 数学 的 观点 ， 一 
个 语义 网 就 是 一 张 带 有 标记 的 有 向 图 。 一 -个 命题 通常 或 真 或 假 ， 且 由 于 其 真 值 的 不 可 再 分 而 被 称 作 原 
F (atomic)。 原 子 这 个 词 用 于 表示 一 个 不 可 再 分 的 对 象 。 与 之 相反 ， 我 们 在 第 5 章 所 讨论 的 模糊 命题 
通常 不 只 为 真 或 假 。 

语义 网 最 初 是 作为 人 工 智 能 中 一 种 表达 人 类 记忆 和 理解 语言 的 方法 由 Quillian 在 1968 年 提出 的 。 
Quillian 用 语义 网 来 分 析 句 子 中 的 词 意 。 注 意 ,句子 的 意思 与 我 们 前 一 节 所 提 到 的 通过 FSM 和 HMM 
把 句子 解析 成 标记 和 词语 结构 不 一 样 。 从 那 时 起 ,语义 网 就 被 运用 到 许多 涉及 知识 表示 的 问题 中 。 这 
种 对 意思 的 理解 是 必需 的 ， 它 必须 超越 那些 简单 的 专家 系统 或 AI 软件 以 避免 二 义 性 。 在 下 一 章 的 推理 
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中 ,我 们 将 看 到 专家 系统 如 何 从 事实 中 得 出 结论 ， 这 些 结论 又 可 被 其 他 的 规则 使 用 ， 形 成 一 个 推理 链 
直到 得 到 一 个 有 效 的 结论 。 不 使 用 语义 ， 专 家 系统 也 会 失败 ， 就 如 同人 们 被 二 义 性 迷惑 而 失败 一 样 。 

语义 网 的 结构 可 用 图 形 表示 为 结 点 (nodes) 以 及 连接 结 点 的 弧 〈arcs)。 结 点 用 来 表示 对 象 ， 而 弧 
则 称 为 连接 (links) 或 边 (edges). 

语义 网 的 连接 用 来 表示 关系 。 结 点 则 被 用 来 表示 物理 实体 、 概 念 或 势 态 (situation)。 图 2.4 (a) 
是 一 个 一 般 的 网 ， 它 实际 上 是 一 个 用 连接 表示 城市 间 航 空 路 线 的 有 向 图 。 结 点 是 一 些 圆 图， 连 线 则 连 
接 结 点 ， 箭 头 指示 飞机 飞行 的 方向 ， 因 此 便 构 成 了 有 向 图 。 在 图 2.4 (b) 中 ， 连 接 表示 一 个 家 庭 各 成 
员 的 关系 。 在 一 个 语义 网 中 ,关系 是 十 分 重要 的 ， 因 为 它们 提供 了 组 织 知识 的 基本 结构 。 没 有 关系 ， 
知识 只 是 无 关 事实 的 一 个 集合 。 有 了 关系 ， 知 识 就 是 一 个 可 推出 其 他 知识 的 具有 内 聚 力 的 结构 。 例 如 ， 
在 图 2.4 (b) 中 ， 我 们 可 以 推出 Ann 和 Bill Æ John 的 祖父 母 ， 尽 管 图 中 并 没有 明确 地 标明 “是 …… 的 
祖父 母 ”这 一 连接 。 
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图 2.4 两 种 形式 的 网 


语义 网 有 时 也 被 称 作 联系 网 (associative nets) ， 这 是 因为 它 的 结 点 都 和 其 他 结 点 相 联系 或 相关 。 事 
EE, Quilian 最 初 的 工作 就 是 把 人 的 记忆 模型 转化 为 一 个 联系 网 ， 其 中 结 点 表示 概念 ， 而 连接 表示 概 
念 问 的 联系 。 根 据 这 个 模型 ， 当 读 人 一 句 话 中 的 词语 而 激活 一 个 概念 结 点 时 ， 它 与 其 他 概念 之 间 的 联 
系 也 就 以 传播 的 方式 被 激活 了 。 如 果 其 他 的 概念 结 点 接收 到 充分 的 刺激 ， 就 会 变 成 有 意识 的 思想 。 例 
如 ， 尽 管 你 认识 上 千 个 词 ， 可 当 你 读 一 个 句子 时 你 只 是 关注 正在 读 到 的 特定 的 词 。 

某 些 关系 已 被 证 实在 许多 种 知识 表示 方法 中 非常 有 用 。 与 其 为 不 同 的 问题 定义 新 的 关系 ， 不 如 使 
用 这 些 标准 的 关系 。 这 些 标准 关系 的 使 用 使 不 同 的 人 更 容易 去 理解 一 个 不 熟悉 的 网 。 

常用 的 两 类 连接 是 IS-A 和 A-KIND-OF， 有 时 写作 IS-A 和 AKO。 图 2.5 就 是 使 用 这 些 连接 的 一 个 
语义 网 例子 。 图 中 ，IS-A 意 为 “是 …… 的 一 个 实例 ”， 它 指 一 个 类 的 一 个 特定 成 员 。 一 个 类 (class) 是 
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一 个 与 数学 有 关 的 概念 ， 它 表示 一 组 对 象 。 尽 管 一 个 集合 可 以 包括 任何 类 型 的 元 素 ， 一 个 类 中 的 对 象 
却 彼此 之 间 存 在 联系 。 例 如 ， 可 以 定义 这 样 一 个 集合 : 


{ 3, eggs, blue, tires, art } 


但 它 的 成 员 间 没 有 共同 的 联系 。 与 之 相反 ， 飞 机 、 火 车 和 机 动车 就 可 以 组 成 相关 的 一 类 ， 因 为 它 
们 都 属于 运输 工具 。 

AKO 连接 在 这 里 被 用 来 连接 一 个 类 与 男 一 个 类 。AKO 不 用 来 表示 特定 个 体 间 的 联系 ， 那 是 IS-A 
的 功能 。AKO 用 来 连接 一 个 个 体 类 和 它 的 父 类 ， 这 里 的 个 体 就 是 一 个 子 类 。 

从 另 一 种 观点 来 看 ，AKO 用 于 连接 类 型 结 点 ， 而 IS A 则 将 一 个 实例 或 一 个 个 体 (individual) 连 
接 到 一 个 一 般 类 。 在 图 2.5 中 ,我 们 可 以 注意 到 越 是 一 般 的 类 越 在 上 面 ， 而 越 是 特殊 的 类 就 越 在 下 面 。 
一 个 由 AKO 箭头 指向 的 更 一 般 的 类 称 为 超 类 (superclass)。 如 果 一 个 超 类 也 有 指向 另 一 个 结 点 的 
AKO， 那 么 它 同时 也 是 AKO 所 指 超 类 的 一 个 类 。 另 一 种 说 法 就 是 ， 一 个 AKO 从 一 个 子 类 (subclass) 
指向 一 个 类 。 有 时 用 ARE 来 代替 AKO, ARE 按照 一 般 动词 “are” 的 读 法 去 读 。 





图 2.5 RA ISA 和 A-Kind-Of (AKO) 联系 的 语义 网 


一 个 类 的 对 象 一 般 都 有 一 个 以 上 的 属性 (attribute) ， 而 每 个 属性 又 有 一 个 值 (value)。 属 性 和 值 组 
合成 特性 (property)。 例 如 ， 一 个 小 飞船 的 属性 有 : 尺寸 、 重 量 、 形 状 、 颜 色 等 。 形 状 属性 的 值 是 椭 
圆 。 语 义 网 中 也 可 以 有 其 他 类 型 的 连接 。IS-A 连接 用 于 定义 一 个 值 。 例 如 ， 总 统 的 座 架 总 是 空军 一 
号 。 如 果 总 统 在 一 架 直 升 飞 机 上 ， 那 么 空军 一 号 便 是 一 架 直 升 飞机 。 而 CAUSE 连接 则 表达 了 因果 知 
识 。 例 如 ， 热 空气 引起 一 个 气球 上 升 。 

一 个 结 点 的 属性 被 一 个 后 代 所 复制 ， 称 作 继 承 (inheritance)。 除 非 有 特例 ， 否 则 我 们 可 以 假定 一 
个 类 的 所 有 成 员 都 会 继承 它们 超 类 的 所 有 特性 。 例 如 ， 气 球 是 圆 形 的 。 然 而 ， 由 于 小 飞船 类 有 一 个 指 
向 椭圆 形 形 状 的 连接 ， 于 是 它 便 优 先 使 用 。 继 承 在 知识 的 表达 中 是 一 种 非常 有 用 的 工具 ， 因 为 它 不 必 
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重复 表达 相同 的 属性 。 由 于 许多 复杂 的 关系 都 可 以 用 一 些 结 点 和 连接 来 表示 ， 连 接 和 继承 就 为 知识 表 
示 提 供 了 一 个 很 有 效 的 手段 。 
2.5 对 象 一 属性 一 值 三 元 组 
使 用 语义 网 的 一 个 问题 就 是 没有 命名 连接 的 标准 。 例 如 ， 一 些 书 既 将 IS-A 作为 类 属 关系 ， 又 作为 个 体 
关系 。 例 如 ，IS-A 既 用 作 表 示 一 般 的 ， 又 表示 个 体 。 所 以 ISA 既 按 一 般 的 词 用 作 “ 是 一 个 ”"， 又 用 作 AKO. 
另 一 个 常用 的 连接 是 HAS-A， 它 连接 一 个 类 和 一 个 子 类 。HAS-A 的 指向 与 AKO 相反 ， 它 常用 来 
连接 一 个 对 象 和 这 个 对 象 的 一 部 分 。 例 如 ; 


car HAS-A engine 
car HAS-A tires 
car IS-A ford 


具体 地 ，IS-A 连接 一 个 值 和 一 个 属性 ， 而 HASA 则 连接 一 个 对 象 和 一 个 属性 。 
们 可 以 仅 用 它们 来 构建 一 个 简化 的 语义 网 。 可 以 用 对 象 一 属 


性 一 值 三 元 组 (OAV object-attribute-value triple) 来 表示 一 对 象 属性 值 





个 语义 网 中 的 所 有 知识 ， 在 MYCIN 专家 系统 中 就 是 使 用 它 PE 
来 诊断 传染 病 。 OAV 三 元 组 便于 以 表格 的 形式 列 出 知识 ， 并 apple type . meintosh 
通过 规则 推导 将 表格 转化 为 计算 机 代码 。OAV 三 元 组 的 -个 PP quantity 100 
例子 如 表 2.1 所 示 。 grapes color red 
OAV 三 元 组 在 表达 事实 以 及 用 来 匹配 事实 与 规则 前 件 的 BPS Seales 
grapes quantity 500 


模式 时 特别 有 用 。 这 种 系统 的 语义 网 由 通过 HASA 和 ISA 

连接 的 对 象 结 点 、 属 性 结 点 、 值 结 点 组 成 。 如 果 只 需 表达 简 

单 对 象 而 不 必 表 达 继 承 ， 那 么 一 个 更 为 简单 的 表达 ， 即 属性 一 值 对 (attribute-value pair)， 简 称 为 AV 
就 已 足够 用 了 。 


2.6 PROLOG 和 语义 网 


语义 网 很 容易 翻译 成 PROLOG。 例 如 ， 


is_a(goodyear_blimp, blimp}. 
is_a(spirit_of_st_louis, special). 
has_shape (blimp, ellipsoidal). 
has_shape (balloon, round). 


这 些 都 是 表达 了 图 2.5 语义 网 中 一 些 关系 式 的 PROLOG 语句 。 句 号 表示 语句 的 结束 。 
PROLOG 本 质 


上 面 的 每 一 条 语句 都 是 PROLOG 的 谓词 表达 式 (predicate expression) 或 简单 地 说 一 个 谓词 ， 因 为 
它们 都 是 基于 谓词 逻辑 的 。 然 而 ，PROLOG 并 不 是 一 种 真正 的 谓词 逻辑 语言 ， 它 是 一 种 带 有 可 执行 语 
句 的 计算 机 语言 。 在 PROLOG 里 ， 一 个 谓词 表达 式 包 括 谓词 名 称 ， 如 is _a， 后 面 要 人 么 不 接任 何 东 西 ， 
要 么 接 用 圆 描 号 括 起 来 并 用 逗号 分 开 的 变量 。 以 下 是 一 些 PROLOG 的 例子 ， 其 谓词 表达 式 和 注释 之 间 
用 分 号 隔 开 : 


color (red)}. ; red is a color is a 
fact 

mother (pat, ann). ; pat is the mother of 
ann 

parents (jim,ann,tom) ; jim and ann are 
parents of tom 

surrogatemother (pat,tom}. ; pat is surrogatemother 


of tom 
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如 果 你 将 谓词 名 跟 在 第 一 个 变量 之 后 ， 那 么 有 两 个 变量 的 谓词 将 会 更 容易 理解 。 有 多 个 变量 的 谓 
词 ， 比 如 双亲 谓词 ， 所 表达 的 意思 必须 清晰 地 说 明 。 因 为 连 线 只 有 两 端 ， 所 以 语义 网 主要 用 于 表示 二 
元 关系 。 而 双亲 谓词 有 三 个 变量 ， 因 此 语义 网 不 可 能 只 用 一 条 有 向 边 来 表达 双亲 谓词 。 如 果 把 Tom 和 
Susan 放 在 一 个 双亲 结 点 而 把 John 放 在 另 一 个 结 点 ， 这 也 会 导致 新 的 困难 。 因 为 不 可 能 用 此 双亲 结 点 
来 表示 其 他 二 元 关系 ， 例 如 “mother _of”， 因 为 它 涉及 Tom. 

谓词 也 可 以 表示 IS_ A 和 HAS_ A 连接 。 


is_a(red,color). 

has_a (john, father). 
has_a(john,mother). 
has_a(john, parents). 


注意 到 has _ a 谓词 没有 表达 出 和 先前 一 样 的 意思 ， 这 是 因为 John 的 父亲 、 母 亲 和 双 亲 没 有 明确 地 
说 出 名 字 。 为 了 给 他 们 命名 ， 必 须 添加 另外 的 谓词 。 


is_a(tom, father). 
is_a(susan,mother). 
is_a(tom, parent). 
is_a(susan,parent). 


即使 增加 了 这 些 额 外 的 谓词 也 没有 像 原 来 的 谓词 一 样 表达 相同 意思 。 例 如 ， 我 们 知道 John 有 一 个 
父亲 和 Tom 是 一 位 父亲 ， 但 这 并 没 表示 出 Tom 是 John 的 父亲 。 

前 面 所 有 的 语句 实际 上 都 描述 了 PROLOG 中 的 事实 。PROLOG 程序 按照 下 面目 标 (goals) 的 一 般 
形式 由 事实 和 规则 组 成 : 

pi- pl,p2,...pN. 

这 里 ，p 是 规则 的 头 ， 而 p 是 子 目标 (subgoals)。 一 般 地 ， 这 种 表达 称 为 Hon FA, RAT AB 
仅 当 所 有 子 目标 都 满足 时 ， 头 目标 p 才能 满足 。 当 遇 到 某 个 失败 的 谓词 时 ， 则 p 不 满足 。 由 于 不 容易 
用 经 典 的 逻辑 来 证 明和 否定 ， 而 PROLOG 是 以 经 典 逻 辑 为 基础 的 ， 因 此 使 用 失败 的 谓词 是 方便 的 。 否 定 
可 看 作 是 寻找 证 明 的 失败 ， 如 果 有 很 多 潜在 的 匹配 那 将 可 能 是 一 个 很 长 的 搜索 过 程 。 这 种 截断 (cut) 
和 失败 谓词 通过 减少 对 证 明 的 搜索 使 得 否定 过 程 更 有 效 。 

用 来 分 隔 子 目标 的 逗号 表示 了 逻辑 “与 ”。 符 号 “: -” 可 解释 为 “IF"。 只 有 当头 存在 以 及 右边 没 
有 子 目 标 ， 如 

p. 
时 ， 才 认为 关 是 真 的 ， 这 就 是 以 下 谓词 被 认为 是 事实 并 且 为 真 的 原因 : 


color (red). 
has_a(john,father). 


事实 还 可 看 作 是 一 个 没有 条 件 的 结论 ， 它 不 依赖 于 任何 东西 ， 因 而 不 必 有 正 或 “: -”"。 与 之 相 
BE, PROLOG 的 规则 需要 IF 是 因为 它们 是 有 条 件 的 结论 ， 其 值 依赖 于 一 个 或 更 多 的 条 件 ， 下 面 举 一 
个 双亲 规则 的 例子 : 


parent (X,Y):- father (X,Y). 
parent (X,Y):- mother (X,Y). 


这 意味 着 如 果 义 是 Y 的 父亲 或 者 X 是 Y 的 母亲 ,那么 X 是 Y 的 双亲 。 类 似 地 ， 祖 父母 可 以 定 
义 为 : 





grandparent (X,Y):- parent (X,2),parent(Z,Y). 
祖先 可 以 被 定义 为 : 

(1) ancestor (X,Y) :- parent(X,Y). 

(2) ancestor(X,Y):- ancestor(X,Z),ancestor(Z,Y). 


这 里 ，(1) 和 (2) 只 是 用 于 区 别 。 
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虽然 有 些 系统 可 产生 编译 代码 ， 但 执行 PROLOG 语句 的 系统 通常 是 一 个 解释 器 。PROLOG 系统 的 
一 般 形式 如 图 2.6 所 示 。 用 户 通过 输入 谓词 查询 并 接收 回答 来 与 SEEE 
人 的 规则 和 事实 谓词 并 形成 知识 库 。 解 释 器 要 判断 用 户 输入 的 查 、 
询 谓词 是 否 在 数据 库 中 。 如 果 在 数据 库 中 ， 回 答 “ 是 ”， 和 否则 回 
先 搜 索 (depth-first search) 方式 满足 子 目 标 ， 如 图 2.7 所 示 。 相 
应 的 ， 也 给 出 了 广度 优先 搜索 (breadth-first search) 方式 ， 尽 管 
在 深度 优先 搜索 中 ， 搜 索 尽 可 能 地 向 下 寻找 然后 返回 。 在 
PROLOG 中 ， 搜 索 也 会 按 从 左 到 右 的 次 序 进行 。 广 度 优先 搜索 “图 2.6 PROLOG 系统 的 一 般 组 成 


在 PROLOG 中 搜索 

PROLOG 进行 交互 。 谓 词 数据 库 (predicate database) 包含 已 输 

答 “ 不 是 ”"。 如 果 问 题 是 一 个 规则 ， 那 么 解释 器 会 尝试 用 深度 优 | 解释 机 
这 不 是 PROLOG 的 标准 搜索 方式 ， 但 也 会 有 相同 的 结果 。 
方式 在 降 到 下 一 个 更 低层 次 之 前 会 在 同一 层 中 执行 搜索 。 











(a) 深度 优先 搜索 (b) 广度 优先 搜索 
图 2.7 任意 树 的 深度 优先 和 广度 优先 搜索 


作为 在 PROLOG 中 搜索 目标 的 一 个 例子 ， 考 虑 (1) 和 (2) 中 定义 的 祖先 规则 。 假 设 现在 输入 以 
下 这 些 事实 : 


(3) parent (ann,mary). 
(4) parent (ann, susan). 
(5) parent (mary, bob). 
(6) parent (susan, john). 


现在 假设 向 PROLOG 提问 以 确定 An 是 否 是 Susan 的 祖先 。 


:- ancestor (ann, susan). 


开头 的 空缺 意味 这 是 一 个 查询 (query)， 它 是 要 由 PROLOG 证 明 的 条 件 。 事 实 、 规 则 和 查询 是 PRO- 
LOG 三 种 不 同类 型 的 Hon 子 句 。 如 果 条 件 是 一 个 子 句 实例 的 结论 ， 那 么 条 件 是 可 证 明 的 。 当 然 ， 子 
句 本 身 必 须 是 可 证 明 的 ， 它 是 通过 证 明子 名 的 条 件 来 实现 的 。 

接 到 这 些 输入 后 ，PRLOLG 开始 搜索 那些 头 与 输入 模式 ancestor (ann, susan) 相 匹配 的 语句 。 这 
叫做 模式 匹配 (patterm matching) ， 就 像 在 前 面 的 产生 式 规则 中 , 前 件 与 事实 的 匹配 。 搜 索 从 第 一 条 语 
句 (1)， 即 顶端 (top) 开始 直到 最 后 语句 (6)， 即 底 端 (bottom) 为 止 。 可 能 存在 与 第 一 条 祖先 规则 
(1) 的 匹配 。 变 量 义 匹配 ann、 变 量 Y 匹配 susan。 由 于 头 匹 配 ，PROLOG 尝试 匹配 (1) 的 体 部 分 ， 
从 而 导出 子 目 标 parent (ann，susan)。PROLOG 接着 尝试 找到 与 子 目 标 匹配 的 子 句 ， 最 后 找到 了 事实 
(4) parent (ann，susan)。 由 于 原来 的 查询 为 真 并 且 已 没有 要 寻找 匹配 的 目标 ， 所 以 PROLOG 就 会 回 
答 “ 是 ”。 

作为 另外 一 个 例子 ， 假 设 查询 如 下 : 
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:- ancestor (ann, john). 


它 与 祖先 规则 (1) 相 匹 配 ， 把 X 设 为 aan， 把 Y 设 为 john。PROLOG 现在 尝试 匹配 (1) 的 体 ， 
即 parent (ann, john) 与 每 一 个 双亲 语句 。 因 为 没有 一 个 匹配 ， 所 以 语句 (1) 不 可 能 为 真 。 因 为 (1) 
的 体 不 为 真 ， 所 以 头 也 不 为 真 。 

因为 语句 1) 不 为 真 ， 所 以 PROLOG 尝试 第 二 条 祖先 语句 (2). JE XH ann, # YX john. 
PROLOG 尝试 通过 证 明 (2) 的 两 个 子 目标 为 真 来 证 明 (2) 的 头 为 真 。 也 就 是 说 ，ancestor (ann, Z) 
和 ancestor (Z, john) 必须 被 证 明 是 正确 的 。PROLOG 以 从 左 至 右 的 顺序 首先 尝试 匹配 子 目 标 ancestor 
(ann，Z)。 从 顶端 开始 ， 与 语句 (1) 匹配 ， 所 以 PROLOG 尝试 证 明 (1) 的 体 parent (ann，Z)。 再 从 
顶端 开始 ， 这 个 体 首 先 与 语句 (3) 匹配， 于 是 PROLOG 把 Z 设 为 mary。 现 在 PROLOG 尝试 把 (2) 
的 第 二 个 子 目标 当成 ancestor (mary, john) 来 找 匹 配 。 它 与 (1) 匹配 ， 所 以 PROLOG 尝试 匹配 它 的 
体 parent (mary，john)。 然 而 , 在 (3) 至 (6) 中 没有 一 条 语句 为 parent (mary，john)， 所 以 这 次 搜 
RRKT. ` 

PROLOG 然后 重新 考虑 Z 为 mary 这 个 猜测 。 既 然 这 个 选择 不 奏效 ， 它 会 尝试 寻找 另 一 个 奏效 的 
值 。 另 一 个 可 能 是 将 (4) 中 的 Z 设 为 susan。 这 种 当 一 条 路 径 失败 而 倒 回 去 找 另 一 条 不 同 搜索 路 径 的 
技术 叫做 回 湖 ， 它 经 常 被 用 来 求解 问题 。 

将 Z 设 为 susan 后 ，PROLOG 尝试 证 明 ancestor (susan, john) 为 真 。 在 (1) P, f% parent (su- 
san, john) 必须 证 明 为 真 。 事实 3) 的 确 与 之 匹配 ， 所 以 查询 : 


:- ancestor (ann, john) 


被 证 明 是 真 的 ， 因 为 它 的 条 件 已 全 部 证 明 为 真 。 

注意 到 PROLOG 的 控制 结构 属于 马尔 可 夫 算 法 类 型 ， 模 式 匹配 的 搜索 次 序 由 Hom 子 句 的 输入 次 
序 决 定 。 这 与 基于 规则 的 专家 系统 相反 ， 专 家 系统 一 般 按照 Post 模式 ， 在 这 种 模式 中 规则 输入 的 顺序 
并 不 影响 搜索 。 

在 这 简短 的 介绍 中 还 没有 涉及 PROLOG 其 他 许多 的 特征 和 能 力 。 从 专家 系统 的 观点 来 看 ， 回 滴 和 模 
式 匹配 是 非常 有 用 的 。PROLOG 的 这 种 说 明 性 特征 也 特别 有 用 ， 因 为 其 程序 规范 就 是 一 个 可 执行 程序 。 


2.7 语义 网 的 困难 之 处 


尽管 语义 网 在 表示 知识 方面 非常 有 用 ， 但 它 有 很 多 局 限 性 。 例 如 先前 所 提 到 的 它 缺 乏 连接 命名 标 
准 ， 这 就 使 人 们 难以 理解 语义 网 设计 的 意图 以 及 它 是 否 是 以 一 种 一 致 的 方式 来 设计 的 。 另 外 一 个 问题 
是 结 点 的 命名 。 如 果 一 个 结 点 被 称 为 “chair"， 它 是 代表 ; 

一 种 专用 椅子 

椅子 总 类 

椅子 概念 

会 议 主席 
还 是 其 他 意思 ?由 于 语义 网 是 表示 确切 的 知识 (definitive knowledge) ， 也 就 是 说 ， 知 识 是 能 够 定义 的 ， 
所 以 必须 严格 定义 连接 和 结 点 名 字 。 当 然 ， 在 程序 语言 中 也 存在 同样 的 问题 。 幸 运 的 是 现在 这 个 问题 
已 经 可 以 用 可 扩展 标记 语言 (extensible markup language, XML) 和 本 体 论 解决 。XML 已 经 被 证 实在 提 
供 一 种 标准 的 方法 把 形式 语义 编码 进 任何 语言 方面 是 非常 有 用 的 。 也 有 基于 规则 的 XML 版 本 ， 它 如 
标记 语言 一 样 提供 对 数学 、 音 乐 、 食 品 工业 以 及 其 他 应 用 计算 机 进行 信息 处 理 的 领域 的 支持 。XML 和 
本 体 论 都 把 万 维 网 从 简单 的 数据 集 变 成 一 个 更 有 用 的 机 器 可 读 的 信息 集合 。 由 于 能 够 辨别 语义 ， 如 今 
网 页 被 称 为 语义 网 ， 而 不 是 简单 的 网 页 。 

另 一 个 问题 是 搜索 结 点 时 的 组 合 爆炸 ， 尤 其 在 查询 的 回答 是 否定 的 时 候 。 因 为 对 一 个 产生 否定 结 
果 的 查询 ， 可 能 要 在 语义 网 中 搜索 很 多 或 所 有 的 连接 。 正 如 第 1 章 出 现 的 旅行 售 货 者 问题 ， 如 果 结 点 
都 是 有 联系 的 ， 那 么 连结 数目 将 是 结 点 数目 减 一 的 阶乘 。 尽 管 不 是 所 有 的 表示 都 需要 这 种 程度 的 连接 ， 
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但 存在 这 种 组 合 爆炸 的 可 能 。 

语义 网 最 初 是 作为 人 类 联想 记忆 的 模型 提出 来 的 ,在 这 种 模型 中 一 个 结 点 与 其 他 结 点 相连 而 信息 
检索 产生 于 结 点 的 扩散 性 触发 。 但 是 ， 人 脑 中 一 定 存在 另 一 种 机 制 ， 因 为 人 不 用 花 很 长 时 间 来 回答 
“Pluto 有 一 支 足 球 队 吗 ?” 这 类 的 查询 。 人 脑 中 大 约 有 101 个 神经 元 和 105 个 连接 。 如 果 所 有 知识 都 用 
语义 网 表示 ， 对 答案 为 否定 的 查询 ， 如 以 上 的 有 关 足 球 队 的 查询 ， 它 将 用 很 长 很 长 的 时 间 来 回答 ， 因 
为 所 有 的 搜索 涉及 NE. 

由 于 语义 网 不 能 像 逻 辑 方法 那样 定义 知识 ， 所 以 语义 网 在 逻辑 上 是 不 充分 的 。 逻 辑 表示 方法 可 以 
指定 一 种 椅子 、 一 些 椅子 、 所 有 椅子 、 没 有 椅子 等 等 ， 这 将 在 本 章 的 稍 后 进行 讨论 。 另 一 个 问题 是 语 
义 网 的 启发 性 不 足 ， 因 为 没有 办 法 可 以 把 启发 性 的 信息 做 人 网 中 使 之 有 效 地 搜索 语义 网 。 启 发 性 方法 
(heuristic) 是 一 种 经 验 ， 它 可 以 帮助 找 出 解决 方法 但 并 不 保证 算法 一 定 可 解 。 启 发 性 方法 在 人 工 智能 
中 非常 有 用 ， 因 为 典型 的 人 工 智能 问题 十 分 困难 以 致 没有 一 种 可 解 的 算法 或 者 求解 算法 十 分 低 效 。 在 
网 中 唯一 有 用 的 控制 策略 是 继承 ， 但 并 非 所 有 问题 都 有 这 种 结构 。 

有 一 些 方法 尝试 去 改进 语义 网 的 内 在 问题 。 它 们 增强 了 逻辑 性 ， 尝 试 通过 把 过 程 附 在 结 点 上 来 增 
强 启 发 性 。 当 结 点 被 激活 时 ， 就 会 执行 相应 的 过 程 。 但 是 ， 这 种 在 语义 网 表达 上 所 做 的 花费 只 得 到 了 
系统 性 能 的 少量 提高 。 经 过 所 有 这 些 尝试 后 ， 得 到 的 结论 是 ， 就 像 其 他 任何 工具 一 样 ， 语 义 网 应 该 被 
用 于 它 能 做 得 最 好 的 场合 ， 比 如 表示 二 元 关系 ， 而 不 应 将 之 看 成 是 万 能 的 工具 。 


2.8 模式 


语义 网 是 一 种 浅 知 识 结构 (shallow knowledge structure)。 这 种 浅显 性 的 产生 是 因为 语义 网 的 所 有 
知识 都 包含 在 连接 和 结 点 之 中 。 术语 知识 结构 类 似 于 数据 结构 ， 它 表示 有 序 知识 的 集合 而 不 只 是 数据 。 
深 (deep) 知识 结构 应 可 表示 因果 知识 ， 以 解释 一 些 事情 发 生 的 原因 。 例 如 ， 可 以 用 浅显 知识 来 建立 
这 样 一 个 医学 专家 系统 : 


IF 某 人 发 烧 
THEN 吃 阿 司 匹 林 


但 该 系统 并 不 了 解 身体 的 生理 基础 以 及 阿司匹林 退烧 的 原因 。 此 规则 还 可 定义 为 : 

IF 某 人 有 一 只 粉红 色 的 猴子 

THEN 吃 冰箱 
换 句 话说， 专家 系统 的 知识 是 浅显 的 ， 因 为 它 以 语法 而 不 是 以 语义 为 基础 ， 于 是 在 以 下 规则 中 ， 可 用 
任意 两 个 词 来 代替 XX 和 YY: 

IF 某 人 有 X 

THEN 吃 Y 

注意 X 和 YY 在 此 规则 中 不 是 变量 , 但 可 表示 任意 两 个 词 。 由 于 医生 上 过 很 多 课程 且 在 治疗 病人 方 
面 有 很 多 经 验 ， 所 以 医生 有 因果 方面 的 知识 。 如 果 一 个 治疗 方案 不 理想 ， 医 生 能 从 此 推理 找到 一 个 更 
好 的 治疗 方案 。 换 句 话 说， 一 个 专家 知道 什么 时 候 打 破 常 规 。 

很 多 现实 世界 的 知识 不 能 用 语义 网 的 简单 结构 来 表示 。 复 杂 的 知识 需要 复杂 的 结构 来 更 好 地 表示 。 
在 人 工 智能 中 ,模式 (schema) 一 词 用 来 描述 比 语义 网 更 加 复杂 的 知识 结构 。 模 式 源 于 心理 学 ， 它 指 
生物 根据 刺激 不 断 调整 知识 或 反应 。 也 就 是 说 ， 生 物 通过 学 习 了 解 事情 的 起 因 和 结果 之 间 的 关系 ， 若 
结果 令 人 愉快 ， 它 们 会 重复 此 事 ; 而 若 结果 带 来 痛苦 ， 它 们 会 避免 发 生 此 事 。 

例如 ,吃喝 行为 是 令 人 有 愉快 感觉 的 机 制 ， 模 式 就 建立 起 吃喝 感觉 与 相应 肌肉 运动 之 间 的 对 应 关 
系 。 一 个 人 不 需要 思考 ， 就 知道 该 如 何 令 肌肉 运动 ， 但 却 难以 解释 是 如 何 准确 地 控制 肌肉 的 。 一 个 更 
难以 解释 的 模式 是 如 何 骑 单 车 ， 试 试 解释 平衡 的 感觉 ! 

另 一 种 模式 是 概念 模式 (concept schema)。 例 如 ， 每 个 人 都 有 动物 的 概念 。 当 很 多 人 被 问 及 何 为 
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动物 时 ， 都 可 能 会 把 动物 描述 成 一 些 有 四 肢 和 毛 的 东西 。 当 然 ， 动 物 的 概念 会 因 人 成 长 的 环境 在 农场 、 
城市 、 河 边 等 不 同 而 有 所 不 同 。 不 过 ， 我 们 在 脑子 中 总 有 概念 的 刻板 模式 〈stereotype)。 尽管“ 刻板 模 
式 ” 一 词 在 口语 中 可 能 有 否定 意思 ,但 在 人 工 智能 中 它 代表 上 典型 例子 。 因 此 动物 的 典型 例子 对 于 很 多 
人 来 说 可 能 是 类 似 于 狗 这 样 的 动物 。 

概念 模式 是 一 种 抽象 机 制 ， 它 根据 物体 的 一 般 特 性 对 物体 进行 分 类 。 例 如 ， 当 你 看 见 一 个 小 的 ， 
带 绿 色 茎 的 红色 圆 形 物体 ， 且 上 面 标 有 “人 工 水 果 ” 时 ， 那 么 你 可 能 认为 那 是 一 个 人 工 芋 果 。 该 物体 
具有 苹果 的 特性 因而 使 你 联想 到 苹果 的 概念 模式 ， 当 然 ， 你 不 会 认为 是 真 苹果 。 

苹果 的 概念 模式 包含 了 一 般 苹 果 的 特性 ， 如 大 小 、 颜 色 、 味 道 、 用 处 等 等 。 但 模式 中 不 会 包括 诸 
如 以 下 的 细节 ， 如 苹果 在 哪里 采 的 ， 用 哪 辆 货车 运 到 超市 的 ， 或 哪个 人 把 它 放 到 架子 上 的 等 等 。 这些 
细节 对 于 形成 苹果 的 抽象 概念 是 不 重要 的 。 请 注意 对 于 一 个 盲人 而 言 苹果 的 概念 模式 会 十 分 不 同 ， 这 
时 ， 蕴 果 的 手 摸 感觉 最 为 重要 。 

把 重点 放 在 事物 的 一 般 性 质 上 ， 就 可 更 容易 地 推理 而 不 会 被 不 相关 的 细节 所 干扰 。 通 常 ， 模 式 有 
关于 结 点 的 内 在 结构 信息 而 语义 网 没有 。 语 义 网 的 标记 即 是 关于 结 点 的 所 有 知识 。 语义 网 在 计算 机 科 
学 中 就 像 数 据 结 构 ， 其 搜索 的 关键 词 也 是 存储 在 结 点 中 的 数据 。 而 模式 则 像 结 点 含有 记录 的 数据 结构 ， 
每 一 个 记录 可 以 包含 数据 、 记 录 或 指向 其 他 结 点 的 指针 。 


2.9 框架 


在 很 多 人 工 智能 应 用 中 使 用 的 一 种 模式 是 框架 (frame)。 另 一 种 是 脚本 (script)， 它 基本 上 是 一 个 
框架 的 时 序 系列 。 作 为 理解 视觉 、 自 然 语言 和 其 他 方面 的 方法 ， 框 架 提供 了 一 个 方便 的 结构 来 表示 如 
刻板 模式 这 样 的 在 特定 环境 中 的 典型 对 象 。 特 别 地 ， 框 架 适 于 模拟 常识 ， 而 常识 是 计算 机 非常 难 掌握 
的 。 语义 网 本 质 上 是 一 种 二 维 知识 表示 方法 ; 框架 通过 允许 结 点 有 结构 而 增加 了 第 三 维 ， 这 些 结构 可 
以 是 简单 类 型 的 值 或 其 他 框架 。 

框架 的 基本 特性 是 它 可 以 表示 与 具有 默认 知识 的 狭 窑 主 题 有 关 的 知识 。 框 架 系 统 可 以 很 好 地 描述 
诸如 汽车 这 样 的 机 械 装 置 。 汽 车 的 各 部 件 如 发 动机 、 车 身 、 简 车 等 相互 关联 便 形成 了 汽车 的 完整 概念 。 
有 关 各 部 件 的 更 详细 细节 可 以 通过 检查 框架 结构 而 获得 .尽管 汽车 的 商标 有 很 多 ,但 大 多 数 车 有 相同 
的 特征 如 车 轮 、 发 动机 、 车 身 、 传 动 系统 等 等 。 框 架 与 语 




















义 网 不 同 ， 它 可 以 表示 更 广泛 的 知识 。 与 语义 网 一 样 ， 它 a 

没有 定义 框架 系统 的 标准 。 人 们 已 经 为 框架 设计 了 一 些 特 | Chevrolet Caprice 

殊 的 语言 ， 如 FRL、SRL、KRL、KEE、HP-RL， 及 通过 ear 1979 

把 框架 的 增强 特性 赋 给 LISP 而 得 到 的 LOOPS 和 FLA- | ison automatic 

VORS. engine asoline 
框架 类 似 于 C 等 高 级 语言 的 记录 结构 以 及 LISP 中 带 | Oe 

有 特性 表 的 原子 。 与 记录 类 型 和 记录 值 相 对 应 的 是 模 | blue 

(slot) 和 杠 值 (slot filler)。 一 个 框架 本 质 上 是 一 组 定义 典 

型 对 象 的 模 和 档 值 。 一 个 关于 车 的 框架 的 例子 如 图 2.8 所 图 2.8 汽车 框架 

示 。 用 OAV 术 语 来 说 ,汽车 是 对 象 ， 槽 名 是 属性 ， 槽 值 

是 属性 值 。 


很 多 框架 并 非 如 图 2.8 那样 简单 。 框 架 的 实用 性 在 于 层次 结构 和 继承 性 。 通 过 在 槽 值 中 使 用 框架 
和 继承 ， 可 以 建立 起 非常 强大 的 知识 表示 系统 。 特 别 是 基于 框架 的 专家 系统 非常 适 于 表示 因果 关系 的 
知识 ， 因 为 它们 的 信息 由 原因 和 结果 组 成 。 与 之 相反 ， 基 于 规则 的 专家 系统 一 般 依赖 于 非 因果 关系 的 、 
无 结构 化 知识 。 

有 些 基于 框架 的 工具 如 KEE 允许 将 各 种 项 目 存储 在 槽 中 ， 框 架 的 槽 可 以 包括 规则 、 图 形 、 注 释 、 
调试 信息 、 给 用 户 的 问题 、 有 关 情 景 的 假设 或 者 其 他 框架 等 。 
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框架 一 般 设计 成 既 可 以 表示 一 般 的 又 可 以 表示 特殊 的 知识 。 图 2.9 说 明了 财产 概念 的 一 般 框 架 。 








#8 Of 
name property 
specialization _ of a_ kind _ of object 
types (car, boat, house) 


if-added: Procedure ADD _ PROPERTY 
owner default: government 


if-needed: Procedure FIND _ OWNER 








location (home, work, mobile) 
status (missing, poor, good) 
under _ warranty (yes, no) 





图 2.9 财产 的 一 般 框 架 

槽 值 可 以 是 一 个 值 ， 如 name 槽 的 槽 值 为 property， 也 可 以 是 一 组 值 ， 如 types MH. BAT 
含 附 在 模 上 的 过 程 ， 称 为 附加 过 程 (procedural attachments)。 这 时 一 般 有 3 种 类 型 ， 当 需要 槽 值 ， 但 初 
始 值 不 存在 且 默 认 (default) 值 也 未 设 定时 ， 执 行 if-needed 过 程 。 默 认 值 对 框架 十 分 重要 ， 因 为 它们 
模拟 了 大 脑 的 某 些 方面 。 默 认 值 相当 于 我 们 以 经 验 为 基础 建立 起 来 的 某 种 期 望 。 当 我 们 遇 到 新 情况 时 ， 
就 会 修改 最 相近 的 框架 以 适应 情况 的 变化 。 人 们 不 需要 在 遇 到 每 个 新 情况 时 都 从 头 开 始 ， 而 是 可 以 修 
改 默认 值 或 其 他 槽 值 。 默 认 值 常用 来 表示 常识 。 常 识 是 众所周知 的 知识 。 当 没有 特殊 知识 可 用 时 ， 我 
们 就 运用 常识 。 

当 将 槽 值 加 入 槽 中 时 ， 将 运行 if-added 过 程 。 在 types 模 中 ， 当 需 增加 一 个 新 的 财产 类 型 时 ， 将 执 
行 过 程 ADD_ PROPERTY. 例如， 这 个 过 程 会 在 增加 珠宝 、 电 视 机 、 立 体 声音 响 等 时 执行 ， 因 为 types 
槽 不 含有 这 些 槽 值 。 

当 要 从 槽 中 删除 槽 值 时 ， 将 执行 二 removal 过 程 。 如 果 槽 值 已 无 用 ， 这 个 过 程 就 会 执行 。 

槽 值 也 可 以 包含 关系 ， 比 如 上 面 的 specialization _of #. ÆR 2.9, 2.10. MAB 2.11 中 通过 使 用 
a-kind-of 和 is-a 关系 来 说 明 这 些 框架 具有 何 种 层次 联系 。 图 2.9 和 图 2.10 是 一 般 框架 ， 而 图 2.11 是 特 
殊 框 架 ， 因 为 它 是 汽车 框架 的 实例 。 这 里 ， 我 们 按照 一 般 惯例 ， 认 为 a-kind-of 关系 是 一 般 关系 ， 而 is-a 
关系 是 特殊 关系 。 
































w @ ff w 槽 (ff | 
name car name John’ s car 
specialization _ of a-kind-of property specialization _ of is_ a car 
types (sedan, sports, convertible) manufacturer GM 
manufacturer (GM, Ford, Toyota) owner John Doe 
location mobile transmission automatic 
wheels 4 engine gasoline 
transmission (manual, automatic) status good 
engine (gasoline, hybrid gas/electric) under _ warranty yes 

图 2.10 汽车 框架 一 一 财产 的 一 个 一 般 子 框架 图 2.11 汽车 框架 的 一 个 实例 


在 框架 系统 中 ， 越 是 一 般 的 框架 就 越 是 位 于 层次 结构 的 上 层 。 假 定 能 通过 修改 默认 值 和 创建 更 多 
的 特殊 框架 来 定制 特定 情形 下 的 框架 。 框 架 尝试 用 一 般 知 识 表 示 对 象 的 主要 属性 ， 用 特殊 知识 表示 特 
殊 情 形 来 模拟 现实 世界 中 的 对 象 。 例 如 ， 我 们 通常 认为 乌 是 一 种 能 飞 的 生物 ， 然 而 某 些 鸟 ， 如 企 黎 和 
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驼 鸟 不 能 飞 。 这 些 鸟 是 特殊 类 型 的 鸟 ， 于 是 在 框架 中 它们 的 特征 就 会 出 现在 比 金 丝 党 和 知 更 鸟 更 低 的 
层次 中 。 换 名 话说 ， 鸟 框架 的 顶层 指明 了 所 有 鸟 的 最 一 般 特 征 ， 而 低层 则 反映 了 现实 世界 中 对 象 的 模 
糊 边 界 。 有 着 所 有 典型 特征 的 对 象 称 为 原型 (prototype) ， 可 从 字面 上 理解 为 第 一 类 型 。 

框架 也 可 以 按 它们 的 应 用 情况 分 类 ， 一 个 情景 框架 (situational frame) 包含 了 在 特定 情景 中 所 期 望 
出 现 的 知识 ， 如 生日 派对 。 一 个 行为 框架 (action frame) 包含 在 特定 情景 中 所 应 执行 的 行为 槽 。 即 村 
值 是 执行 某 些 动作 的 过 程 ， 如 从 传输 带 上 移 走 有 缺陷 的 部 件 。 一 个 行为 框架 表示 了 过 程 化 的 知识 。 情 
景 和 行为 框架 可 组 合成 因果 知识 框架 (causal knowledge frame) ， 以 表示 因果 关系 。 

人 们 已 为 各 种 各 样 的 任务 建立 了 非常 复杂 的 框架 系统 。 一 个 最 能 显示 框架 有 效 性 且 令 人 印象 深刻 
的 系统 是 : 创造 性 地 发 现 数学 概念 的 Doug Lenat 的 自动 数学 家 (Automated Mathematician，AM) 系 
统 。Lenat 的 AM 系统 可 以 对 有 趣 的 新 概念 进行 猜测 并 且 探 索 它们 。 它 能 给 出 某 些 定理 的 全 新 数学 证 
明 。 附 录 G 中 列 出 了 更 多 的 定理 证 明和 发 现 系统 。 


2.10 框架 的 困难 之 处 


框架 最 初 被 作为 是 表示 刻板 模式 知识 的 一 种 范例 。 刻 板 模 式 知 识 的 主要 特点 是 它 有 定义 得 很 好 的 
特征 ， 这 使 得 它 的 很 多 槽 有 默认 的 横 值 。 数 学 概念 是 非常 
适合 于 框架 的 刻板 模式 知识 。 由 于 框架 有 组 织 化 的 知识 表 
示 ， 较 之 逻辑 或 有 许多 规则 的 产生 式 系 统 更易 理 解 ， 所 以 
框架 系统 具有 直观 吸引 力 (Jackson 99)。 

然而 ， 在 框架 系统 中 显示 出 来 的 主要 问题 是 允许 不 受 
限制 地 修改 或 删除 槽 。 这 个 问题 的 典型 例子 是 描述 大 象 的 
框架 ， 如 图 2.12 所 示 。 图 2.12 大 象 框架 

初 看 大 象 框架 似乎 就 是 对 一 般 大 象 的 描述 。 然 而 ， 假 
设 存在 一 只 名 叫 Clyde 的 三 条 腿 大 象 。Clyde 可 能 因为 打猎 意外 事件 少 了 一 条 腿 或 者 可 能 只 是 为 了 在 本 
书 中 出 现 它 的 名 字 而 假定 失去 了 一 条 腿 。 重 要 的 是 大 象 框架 宣称 一 只 大 象 有 四 条 腿 而 不 是 三 条 。 所 以 
我 们 不 能 认为 上 述 的 大 象 框架 就 是 大 象 的 定义 。 

当然 ， 这 个 框架 能 修改 为 允许 三 条 腿 、 二 条 腿 、 一 条 腿 甚 至 没有 腿 。 但 这 并 不 是 一 个 很 好 的 定义 。 
其 他 槽 也 会 出 现 一 些 问题 。 假 设 Clyde 得 了 黄 这 病 ， 它 的 皮肤 变 成 黄色 ， 那 么 它 就 不 再 是 大 象 了 吗 ? 

把 框架 作为 定义 的 另 一 种 做 法 是 用 它 来 描述 一 只 典型 的 大 象 。 然 而 继承 会 导致 出 现 其 他 的 问题 。 
注意 到 大 象 框架 说 大 象 是 一 种 哺乳 动物 。 由 于 我 们 把 框架 看 成 是 典型 的 ， 所 以 我 们 的 框架 系统 认为 典 
型 的 大 象 是 典型 的 哺乳 动物 。 尽 管 大 象 是 哺乳 动物 ， 但 它 可 能 不 是 典型 的 哺乳 动物 。 从 本 质 上 看 ， 人 、 
牛 、 羊 或 老鼠 可 能 更 具有 典型 哺乳 动物 的 特征 。 

很 多 框架 系统 没有 提供 一 种 定义 不 可 变 构 的 方法 。 因 为 任何 树 都 可 改变 ， 所 以 框架 的 继 杀 特性 可 
以 在 层次 结构 的 任何 地 方 改 变 或 者 删除 。 由 于 不 能 保证 特性 具有 普遍 性 ， 而 且 每 一 种 框架 有 它 自 己 的 
规则 ， 这 就 意味 着 每 一 个 框架 都 是 初始 框架 。 在 这 种 不 受 限制 的 系统 中 无 法 确定 任何 事情 ， 所 以 不 可 
能 作出 具有 普遍 性 的 描述 ， 例 如 那些 作为 大 象 的 定义 。 同 样 ， 从 大 和 象 这 样 的 简单 定义 ,不 可 能 可 车 地 
建立 起 如 三 条 腿 大 象 这 样 的 混合 对 象 。 带 继承 的 语义 网 中 具有 同样 的 问题 ， 如 果 任 何 结 点 的 特性 都 能 
改变 ， 那么 没有 事物 是 确定 的 。 

然而 ， 有 另 一 种 有 效 的 方法 来 看 待 框架 。 如 果 框 架 的 概念 扩展 到 包括 对 象 属性 ， 那 么 一 个 对 象 可 
以 被 看 做 是 一 个 框架 。CLIPS 拥有 能 人 其 中 的 完全 的 面向 对 象 语言 COOL， 它 可 以 看 做 是 基于 框架 语 
言 的 一 个 扩展 。 所 有 对 象 的 优点 目前 在 CLIPS 中 都 具有 。 面 向 对 象 的 专家 系统 可 以 在 CLIPS 中 构建 ， 
既 具 有 把 小 知识 块 用 规则 处 理 的 优点 ， 也 有 把 大 知识 块 组 织 成 对 象 处 理 以 便于 维护 和 开发 的 优点 。 规 
则 可 以 操作 事实 或 对 象 ， 这 样 CLIPS 同时 具有 基于 规则 以 及 基于 对 象 的 专家 系统 工具 的 优点 。 在 
CLIPS 中 使 用 对 象 使 之 更 容易 组 织 、 执 行 和 维护 大 型 知识 库 ， 而 不 是 试图 把 所 有 的 知识 放 在 独立 的 成 





name elephant 
specialization _ of a-kind-of mammal 
color grey 

legs 4 


trunk a cylinder 
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千 上 万 个 规则 和 事实 中 。 
2.11 逻辑 与 集合 

除了 规则 、 框 架 和 语义 网 ， 知 识 也 可 以 用 逻辑 (logic) 符号 来 表示 ， 逻 辑 主要 研究 规则 的 精确 推 
理 ， 推 理 主要 是 是 从 假设 中 推出 结论 。 运 用 计算 机 进行 推理 便 出 现 了 有 逻辑 程序 设计 (logic program- 
ming) 和 基于 逻辑 的 语言 开发 ， 如 PROLOG. 逻辑 在 专家 系统 中 非常 重要 ， 推 理 机 通过 对 事实 进行 推 
理 而 得 到 结论 。 事 实 上 ， 逻 辑 程序 设计 和 专家 系统 也 称 为 自动 推理 系统 (automated reasoning systems) 

最 早 的 形式 逻辑 是 由 公元 前 4 世纪 的 希腊 哲学 家 亚 里 士 多 德 提出 的 。 亚 里 士 多 德 罗 辑 以 三 段 论 
(syllogism) 为 基础 ， 他 提出 了 三 段 论 的 14 种 类 型 。 另 外 5 种 类 型 在 中 世纪 产生 。 三 段 论 有 两 个 前 提 
(premises) 和 一 个 结论 (conclusion)。 下 面 就 是 三 段 论 的 典型 例子 : 

前 提 : 所 有 人 都 会 死 

前 提 : 苏 格拉 底 是 人 

结论 : 苏 格 拉 底 会 死 

在 三 段 论 中 ,前 提 给 出 了 结论 所 必须 的 证 据 . 三 段 论 是 一 种 表示 知识 的 方法 . 另 一 种 方法 是 文 氏 
Æ (Venn diagram)， 如 图 2.13 Bra. 

图 中 外 圈 表 示 所 有 会 死 的 生物 。 表 示人 的 内 图 完全 在 外 圈 之 中 表明 所 
有 的 人 都 会 死 。 既 然 苏 格 拉 底 是 一 个 人 ， 那 么 表示 他 的 圈 完 全 在 第 二 个 轿 
中 。 严 格 地 讲 ， 表 示 苏 格拉 底 的 圈 应 该 是 一 个 点 ， 因 为 一 个 圈 意 味 一 种 类 
刑 , 但 为 了 增强 可 读 性 ， 我 们 仍 用 圈 表 示 。 苏 格拉 底 会 死 的 结论 是 基于 他 
位 于 会 死生 物 的 圈 内 而 得 出 的 。 人 

按 数 学 的 观点 , 文 氏 图 的 一 个 圈 表 示 一 个 包含 对 象 的 集合 。 在 集合 中 
的 对 象 称 为 元 素 (clements)。 以 下 是 一 些 集 合 的 例子 : 


会 死 的 生物 





asi 图 2.13 文 氏 图 
B= { 

C={0,2,4 =} 

D={+, 74, —2,0,2,4, =} 

E= {飞机 , 汽 球 ,小 飞船 ,喷气 式 飞 机 } 

F= {飞机 , 汽 球 } 

其 中 圆 点 …， 称 为 省 略 符号 ， 它 表示 尚未 列 出 的 项 。 

希腊 字母 E 表 示 一 个 元 素 属于 某 个 集合 。 例 如 ，1EA， 表示 数字 1 是 已 定义 集合 A 的 一 个 元 素 。 
如 果 一 个 元 素 不 属于 集合 ， 则 用 符号 哟 ， 如 2 儿 A。 

对 已 定义 的 任意 两 个 集合 ， 如 又 和 Y, 若 X 的 每 个 元 素 是 Y 中 的 元 素 , 那么 X 是 YY 的 子 集 (sub- 
set)， 用 XCY 或 YX 表示。 从 子 集 的 定义 可 知 ， 每 一 个 集合 都 是 它 本 身 的 子 集 。 一 个 不 是 集合 本 身 
的 子 集 称 为 真子 集 (proper subset), 例 如， 前 面 定义 的 集合 X 是 Y 的 真子 集 。 在 讨论 集合 时 ， 把 集合 
当 作 一 个 论 域 (universal set) 的 子 集 是 很 有 用 的 。 论 域 随 着 讨论 主题 的 改变 而 变化 - 图 2.14 说 明了 
“所 有 汽车 ”这 个 论 域 中 两 个 子 集 所 形成 的 交集 (intersection)。 在 讨论 数 时 ， 论 域 是 所 有 数 。 论 域 画 成 
一 个 包含 其 子 集 的 矩形 。 使 用 论 域 不 仅 是 为 了 方便 ， 因 为 不 分 条 件 地 定义 集合 会 导致 逻辑 的 自 相 矛 盾 。 

假如 我 们 定义 A 为 所 有 蓝 色 汽车 的 集合 ，B 为 所 有 手动 汽车 的 集合 ，C 为 所 有 手动 的 蓝 色 汽车 。 
则 可 写 

C=ANMB 

其 中 符号 但 代表 集合 的 交 。 这 一 表达 式 的 另 一 种 写法 可 用 元 素 x 表示 如 下 : 


C= {xe U| (x € A) a (x © B)} 
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所 有 汽车 论 域 


所 有 蓝 色 汽车 所 有 手动 所 有 手动 汽车 


HERE 





图 2.14 ZÆ 


其 中 


U 表示 论 域 ， 
| 读 为 满足 (有 时 用 冒号 : REI), 
八 是 逻辑 与 (logical AND). 


关于 C 的 表达 式 读 为 : C 是 由 所 有 满足 既 属 于 A 又 属于 B 的 元 素 x 组 成 的 集合 。 逻 辑 与 来 自 布尔 
代数 。 这 一 表达 式 由 两 个 操作 数组 成 并 由 逻辑 与 运算 符 连 接 起 来 ， 该 表达 式 当 且 仅 当 两 个 操作 数 为 真 
时 才 为 真 。 如 果 A 和 了 B 没 有 公共 元 素 ,那么 AnB= 休 ,其 中 和 希腊 字母 OO 表示 没有 元 素 的 集合 ， 即 空 集 
(empty set 或 null set) 。 空 集 有 时 用 希腊 字母 人 表示 。 有 时 ， 用 数字 1 表示 论 域 而 用 0 表示 空 集 。 尽 管 
空 集 没 有 元 素 ， 它 仍 是 一 个 集合 。 这 好 比 一 个 具有 顾客 集合 的 餐馆 ， 当 没有 人 来 时 ， 顾 客 集合 为 空 ， 


但 餐馆 仍 存在 。 
另 一 个 集合 运算 是 并 (union)。 它 由 或 者 属于 A 或 者 属于 B 的 所 有 元 素 组 成 ， 这 可 表示 成 : 
AUB= {xE U| (xeA)v (x © B)} 

其 中 ， 
U 是 集合 运算 符 并 ， 


V 是 逻辑 或 (logical OR) 运算 符 。 
集合 A 的 补 集 (complement) 是 由 所 有 不 属于 A 的 元 素 组 成 的 集合 。 


A’ = {xe U | ~(x € A)} 


其 中 ， 
表示 一 个 集合 的 补 集 ， 
一 是 逻辑 非 (logical NOT) AF. 
这 些 基本 运算 的 文 氏 图 如 图 2.15 ra: 





(©) 补 集 
图 2.15 基本 集合 运算 的 文 氏 图 
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2.12 命题 逻辑 


三 段 论 是 最 古老 且 最 简单 之 一 的 形式 逻辑 (formal logic), “形式 ”一 词 意味 着 逻辑 所 关心 的 是 语 
名 形式， 而 不 管 其 意义 。 也 就 是 说 ， 形 式 逻 辑 关 心 的 是 句法 而 不 是 语义 。 这 一 点 在 建立 专家 系统 中 特 
别 重 要 ， 因 为 你 必须 将 推理 与 知识 分 开 。 以 推理 形式 显示 的 可 能 是 知识 。 例 如 ,“ 总 统 永 远 是 对 的 ， 因 
为 他 从 来 没 错 ” 以 推理 的 形式 出 现 ， 因 为 里 面 出 现 了 词语 “因为 ”连接 着 句子 的 两 部 分 。 事 实 上 ， 这 
种 类 型 的 断言 称 为 重 言 式 (tautology)。 在 现实 世界 中 ， 一 个 事实 可 能 为 真 也 可 能 为 假 ， 而 重 言 式 在 纯 
逻辑 意义 上 永远 为 真 ， 因 为 它 本 身 就 证 明了 自己 的 正确 性 ， 表 述 为 ,“X 是 X”。 

尽管 形式 逻辑 一 词 听 起 来 有 点 吓人 ， 但 它 并 不 比 代数 难 。 事 实 上 ， 代 数 就 是 数字 的 形式 逻辑 。 例 
如 ， 设 想 要 你 解决 如 下 问题 : 一 所 学 校 有 25 台电 脑 ， 共 有 60 块 内 存 板 ， 有 些 电脑 有 2 块 内 存 板 ， 有 
些 有 4 块 ， 每 一 种 类 型 有 多 少 台电 脑 呢 ? 这 个 解决 方案 可 以 写成 下 面 的 代数 式 


25 =X+Y 
60 = 2X + 4Y 


很 容易 解 出 X=20，Y= 5。 

现在 考虑 这 个 问题 。 在 院 里 有 25 只 动物 ， 共 有 60 只 脚 。 有 些 动物 有 2 只 脚 ， 其 他 的 有 4 只 ， 每 
种 类 型 的 动物 有 多 少 只 ? 你 可 以 看 到 : 可 以 写 出 同样 的 代数 等 式 而 不 管 我 们 是 在 讨论 电脑 、 动 物 还 是 
其 他 事物 。 代 数 等 式 使 我 们 集中 注意 于 符号 的 数学 运算 而 不 考虑 这 些 符号 代表 什么 ， 同 样 道理 ， 形 式 
逻辑 使 我 们 集中 于 推理 而 不 困惑 于 所 推理 的 对 象 。 

作为 形式 逻辑 的 一 个 例子 ， 用 无 意义 的 词 squeeg 和 moof 来 考察 三 段 论 。 

前 提 : 所 有 squeeg 是 moof 

前 提 :John 是 一 个 squeeg 

结论 :John 是 一 个 moof 
尽管 词语 sqeeg 和 moof 是 不 存在 的 ， 无 意义 的 ， 但 这 种 辩论 的 形式 仍 是 正确 的 。 也 就 是 说 ， 因 为 这 一 
三 段 论 上 共有 合法 的 形式 ， 因 此 辩论 是 有 效 的 〈valid) 而 不 管 使 用 什么 词 。 事 实 上 ， 任 一 具有 如 下 形式 
的 三 段 论 : 

前 提 : 所 有 X 是 Y 

前 提 :2z 是 X 

结论 :Zz 是 Y 
都 是 有 效 的 而 不 管用 什么 取代 X、Y、Z。 这 个 例子 说 明 在 形式 逻辑 中 意义 并 不 重要 ， 只 有 形式 才 是 重 
要 的 。 把 形式 与 意义 或 语义 分 开 的 观念 使 逻辑 成 为 一 个 强 有 力 的 工具 。 通 过 分 开 形 式 与 语义 ,就 能 更 
客观 地 考虑 辩论 的 合法 性 ， 而 避免 了 由 语义 引起 的 歧义 。 这 有 点 像 代数 ， 表 达 式 如 X+X=2X 的 正确 
性 始终 是 不 变 的， 不 管 X 是 整数 、 苹 果 、 飞 机 还 是 其 他 事物 。 

亚 里 士 多 德 三 段 论 直到 1847 年 才 成 为 逻辑 学 的 基础 ， 当 时 英国 数学 家 乔治 "布尔 出 版 了 第 一 本 描 
述 符号 逻辑 (symbolic logic) 的 书 。 尽 管 莱 布 尼 兹 在 17 世纪 对 自己 的 符号 逻辑 进行 了 修正 ， 但 它 仍 得 
不 到 普遍 的 应 用 。 布 尔 提出 了 一 个 新 观点 ， 他 对 亚 里 士 多 德 的 主体 存在 观点 ， 即 存在 的 重要 性 (exis- 
tential import) ， 进 行 了 修正 。 根 据 亚 里 士 多 德 的 经 典 观 点 ， 命 题 “所 有 美人 鱼 都 善于 游泳 ” 既 不 能 作 
为 前 提 也 不 能 作为 结论 使 用 ， 因 为 美人 鱼 不 存在 。 布 尔 的 现代 观 放宽 了 这 一 限制 。 现 代 观 的 重要 性 在 
于 对 空 类 也 可 进行 推理 。 例 如 ， 除 非 有 一 个 磁盘 不 合格 ， 否 则 命题 “所 有 不 合格 的 硬盘 都 是 便宜 的 ” 
是 不 能 用 在 亚 里 士 多 德 的 三 段 论 中 的 。 

布尔 的 另 一 个 贡献 是 定义 了 一 套 公 理 (axiom)， 这 些 公 理 是 由 表达 对 象 和 类 的 符号 以 及 操纵 这 些 
符号 的 代数 运算 组 成 的 。 公 理 是 诸如 数学 、 逻 辑 学 这 样 的 逻辑 体系 建立 的 基础 。 只 能 使 用 公理 来 创建 
定理 。 定 理 是 一 种 可 以 从 公理 推导 出 而 被 证 明 的 陈述 。 在 1910 到 1913 年 ，Whitehead 与 Russel 出 版 了 
他 们 不 朽 的 ， 长 达 2000 页 的 3 卷 著作 : 《数学 原理 》。 书 中 指出 了 数学 的 基础 是 形式 逻辑 ， 这 是 一 个 重 
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要 的 里 程 碑 。 因 为 它 为 数学 英 定 了 一 个 严格 的 基础 ， 而 不 是 仅 凭 借 完 全 消除 算术 的 含义 来 吸引 人 们 的 
注意 ， 也 不 是 只 集中 精力 于 它们 的 形式 和 操作 。 正 因为 如 此 ， 数 学 一 直 被 描述 为 纸 上 无 意义 的 符号 的 
集合 。 

然而 ，1931 年 Gödel 证 明了 建立 在 公理 基础 上 的 形式 系统 不 能 总 被 证 明 是 一 致 的 ， 因 此 无 法 避免 
FB « 

命题 逻辑 ， 有 时 称 为 命题 演算 (propositional calculu) ， 是 一 种 用 于 命题 操作 的 符号 逻辑 。 特 别 地 ， 
命题 逻辑 针对 逻辑 变量 (logical variable) 进行 运算 ， 逻 辑 变量 代表 了 命题 。 尽 管 大 多 数 人 按照 牛顿 和 
莱 布 尼 兹 发明 的 微 积分 学 来 理解 calculus, 1E calculus 一 词 却 有 更 一 般 的 含义 。 它 来 自 拉 丁 文中 的 词 
“calculus"， 一 种 用 于 计算 的 小 石头 。calculus 的 一 般 含义 是 ， 一 种 对 符号 进行 操作 的 特别 系统 。 此 外 命 
题 逻 辑 有 时 也 称 为 语句 演算 (statement calculus) 或 句子 演算 (sentential calculus) 。 句 子 一 般 分 为 4 种 ， 
如 表 2.2 所 示 。 

命题 逻辑 主要 考察 那些 或 者 为 真 或 者 假 的 陈述 性 句子 。 “一 个 正方 形 有 四 条 边 ”这 样 一 个 句子 的 真 
值 为 真 ， 而 “乔治 华盛顿 是 第 二 任 总 统 ” 这 样 的 句子 则 真 值 为 假 。 一 个 真 值 确定 的 句子 称 为 一 个 语句 
(statement) 或 一 个 命题 (proposition)。 一 个 语句 也 叫做 一 个 封闭 甸子 (closed sentence)， 因 为 它 的 真 
值 对 任何 问题 都 不 会 不 确定 。 

如 果 我 在 这 本 书 的 序言 中 写 道 “这 里 的 每 句 话 都 是 谎言 "， 则 这 人 句 话 既 不 能 说 是 真 的 也 不 能 说 是 假 
的 。 如 果 它 是 真 的 ， 那 么 我 在 序言 中 讲 的 便 是 真 的 ， 这 出 现 了 矛盾 。 如 果 它 是 假 的 ， 那 么 每 一 句 话 都 
是 真 的 ， 因 此 我 说 了 谎 一 一 这 又 不 可 能 是 真 的 。 诸 如 此 类 的 陈述 以 说 谎 悖 论 最 为 著名 ， 那 些 不 能 确切 
地 回答 的 陈述 称 为 不 确切 句子 (open sentence)， 像 “蔬菜 很 美味 ”这 样 的 句子 也 是 一 个 不 确切 句子 ， 
因为 它 对 于 一 些 人 是 真 的 ， 而 对 另外 一 些 人 却 是 假 的 。 句 子 “ 他 是 高 的 ”也 是 一 个 不 确切 句子 ， 因 为 
句 中 包括 一 个 变量 “他 ”。 只 有 当 我 们 知道 了 变量 所 指 的 特定 人 或 物 时 ， 我 们 才能 得 到 该 不 确切 句子 的 
值 ， 而 这 个 句子 的 另外 一 个 困难 之 处 在 于 “高 ”一 词 的 含义 。 对 于 一 些 人 是 高 的 ， 但 对 于 另外 一 些 人 
则 不 能 称 之 为 高 。 尽 管 在 命题 或 谓词 演算 中 这 种 “高 ”的 歧义 不 能 处 理 ， 但 在 模糊 逻辑 中 却 很 容易 处 
理 ， 这 一 点 我 们 将 在 第 5 章 中 讲述 。 

通过 在 语句 间 使 用 逻辑 连接 符 ， 就 可 以 形成 复合 语句 (compound statement)， 常见 的 逻辑 连接 符 
列 于 表 2.3 中 : 








表 2.2 句子 的 类 型 表 2.3 常用 逻辑 连接 符 
类 y 例 子 连接 符 a x 
命令 式 按 我 告诉 你 的 做 ! A AND: 与 
疑问 式 这 是 什么 ? V OR; 或 
i | ~ NOT, 4 
感叹 式 KET! > 如 果 …… 则 ; 条件 
陈述 式 一 个 正方 形 有 四 条 边 。 - 当 目 仅 当 ; KER 


严格 地 讲 ， 非 不 是 连接 符 ， 因 为 它 是 一 个 一 元 运算 符号 ， 只 对 其 后 的 单个 操作 数 起 作用 ， 因 此 它 
实际 上 并 没有 连接 什么 。 非 的 优先 级 比 其 他 操作 符 都 高 ， 因 此 不 需要 对 它 加 括号 ， 也 就 是 说 ， 像 一 pA 
q 这 样 一 个 语句 的 意思 与 (一 p) Aq 是 相同 的 。 

条 件 符 与 产生 式 规则 的 箭头 类 似 ， 他 们 都 表示 为 IF-THEN 的 形式 。 例 如 

if it is raining then carry an umbrella 
可 以 表示 为 


prod 


其 中 ， 


p = it is raining 
q = carry an umbrella 
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AREA “D” RE “>”, 另外， 条 件 符 也 称 作 实 质 蕴 含 (material implication). 

充 要 条 件 bed 等 价 于 

p> gq) a (aq > Pp) 

只 有 当 p 和 q 有 相同 的 真 值 时 peg 才 成 立 ， 也 就 是 说 pe*q 只 有 当 p 和 q 同时 为 真 或 同时 为 假 时 才 为 
真 ， 充 要 条 件 有 下 列 的 含义 : 

p 成 立 当 日 仅 当 a 成 立 

q 成 立 当 且 仅 当 p 成 立 

F p RA, N a R, EE aR, M p RZ 

正如 前 面 所 提 到 的 ， 重 言 式 (tautology) 是 一 永远 为 真 的 复合 语句 ， 无 论 组 成 它 的 每 个 语句 是 真 
EE. PAA (contradiction) 是 一 个 永远 为 假 的 复合 语句 。 偶 然 式 (contingent) 是 一 个 既 不 是 重 言 
式 也 不 是 矛盾 式 的 语句 。 重 言 式 和 矛盾 式 分 别 被 称 为 解析 真 和 解析 假 ， 因 为 它们 的 真 值 可 以 仅仅 通过 
它们 的 形式 就 可 决定 。 例 如 pV ~p 的 真 值 表 说 明 它 是 重 言 式 ， 而 pA ~p 是 矛盾 式 。 

若 一 个 条 件 句 是 重 言 式 ， 则 称 它 为 列 含 式 (implication) ， 并 且 用 一 代替 -~*。 若 充 要 条 件 也 是 重 言 
式 的 话 ， 则 称 为 逻辑 等 价 (logical equivalence) 或 实质 等 价 (material equivalence), FHA SOR=K 
表示 。 两 个 逻辑 等 价 的 语句 永远 有 相同 的 真 值 ， 例 如 ，p= 一 一 p。 

遗憾 的 是 ， 这 并 不 是 蕴含 式 的 唯一 定义 。 因 为 对 于 两 个 可 以 取 真 或 假 的 变量 ， 有 16 个 可 能 的 真 值 
表 。 实 际 上 ， 在 20 世纪 80 年 代 早 期 的 专家 系统 中 讨论 了 应 用 于 专家 系统 的 蕴含 操作 符 的 11 个 不 同 
定义 。 

在 过 程 化 语言 或 基于 规则 的 专家 系统 中 ， 条 件 句 与 IF-THEN 并 不 完全 相同 。 在 过 程 化 语言 和 专家 
系统 中 ，IF-THEN 表示 如 果 下 条件 为 真 ， 则 执行 THEN 后 面 的 动作 。 在 逻辑 中 ， 条 件 句 由 它 本 身 的 
真 值 表 所 定义 ， 它 的 意思 可 通过 多 种 方法 翻译 成 自然 语言 ， 例 如 ， 若 : 

poaq 
这 里 ，p，q 是 任意 语句 ， 它 可 被 翻译 成 : 

pHa q 

WR p, Wa 

p, 仅 当 q 

p 是 a 的 充分 条 件 

q WR p 

q 为 的 必要 条 件 

作为 另 一 个 例子 ， 令 表示 “你 的 年 龄 为 18 岁 或 以 上 ”"，q 表示 “你 有 权 投票 "， 条 件 句 p->q 可 表 
示 如 下 意思 : 

你 的 年 龄 为 18 PRU LRA PARR 

如 果 你 的 年 龄 为 18 岁 或 以 上 ,那么 你 有 权 投 票 

你 的 年 龄 为 18 岁 或 以 上 , 仅 当 你 有 权 投 票 

你 的 年 龄 为 18 岁 或 以 上 是 你 有 权 投票 的 充分 条 件 

你 有 权 投 票 , 如 果 你 的 年 龄 为 18 岁 或 以 上 

你 有 权 投 票 是 你 的 年 龄 为 18 岁 或 以 上 的 必要 条 件 

在 某 些 情况 下 ， 措 词 上 的 变化 对 于 使 句子 在 语法 上 正确 是 必需 的 。 最 后 一 个 例子 说 明 , AGRA 
发 生 ， 那 么 p 也 不 会 发 生 。 在 语言 中 表示 ， 你 有 权利 投票 但 要 求 你 在 18 岁 或 以 上 。 

表 2.4 列 出 了 二 元 逻辑 连接 符 的 真 值 ， 因 为 它们 需要 两 个 操作 数 ， 所 以 是 二 元 连接 符 。 非 连接 词 
“一 ”是 一 个 作用 于 其 后 单个 操作 数 的 一 元 运算 符 ， 如 表 2.5 所 示 。 

如 果 每 个 真 值 函数 都 能 仅 用 属于 某 一 集合 中 的 逻辑 连接 符 表示 ,那么 ， 这 个 逻辑 连接 符 集合 是 充 
分 (adequate) 的 。 充 分 集合 的 例子 有 : I~, A, Vi, I~, Ah {~, V1 和 {~, >i 
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表 2.4 二 元 逻辑 连接 符 的 真 值 表 








表 2.5 非 的 真 值 表 
p q pAq  pVq Paqa peg 
T T T T T T P ~P 
T F F T F F F 
F T F T T F F 
F F F F T T 


只 含 单个 元 素 的 集合 称 作 单 集 (singleton)， 有 两 个 充分 的 单 集 , 它们 是 NOT-OR (NOR) 和 
NOT-AND (NAND)。 集 合 NOR 表示 为 141, 集合 NAND 表示 为 |||. SAH" 称 作 紧 线 或 与 非 
(alternative denial), 4 p 和 q 均 为 真 时 pla 为 假 ， 当 p 与 q 至 少 一 个 为 假 时 ，plq A AH. SAE (joint 
denial) 运算 符 "y "表示 当 p 或 q 为 真 时 ， pta 为 假 ， 也 就 是 说 ， 当 p 与 q 均 为 假 时 p yq 才 为 真 。 
2.13 一 阶 谓词 逻辑 

虽然 命题 逻辑 是 有 用 的 ， 但 它 具 有 局 限 性 。 最 主要 的 问题 是 ,命题 人 逻辑 仅 能 处 理 完整 的 语句 。 也 
就 是 说 ， 它 不 能 检查 语句 的 内 部 结构 。 命 题 逻辑 甚至 不 能 证 明 以 下 三 段 论 的 合法 性 : 

所 有 人 会 死 

所 有 女人 都 是 人 

因此 ,所 有 女人 都 会 死 

为 了 分 析 更 一 般 的 情形 ， 提 出 了 谓词 远 辑 (predicate logic)， 其 最 简单 的 形式 是 一 阶 (first order) 
谓词 逻辑 ， 它 是 逻辑 程序 设计 语言 ， 如 PROLOG 语言 的 基础 。 在 本 节 中 ， 我 们 用 “谓词 逻辑 ”一 词 来 
表示 一 阶 谓词 逻辑 。 命 题 逻辑 是 谓词 逻辑 的 一 个 子 集 。 

谓词 逻辑 关心 句子 的 内 部 结构 。 特 别 地 ,谓词 逻辑 使 用 一 种 特殊 的 词 ， 即 量词 (quantifier)。 如 
“所 有 ”,“ 有 些 ”，“ 没 有 ”。 这 些 量词 是 非常 重要 的 ， 因 为 它们 明确 地 量化 了 其 他 词 ， 使 句子 的 语义 更 
为 确切 。 所 有 量词 均 与 “多 少 ” 有 关 ， 因 而 ， 比 命题 逻辑 表示 了 更 广阔 的 语义 范围 。 


2.14 全 称 量词 


一 个 使 用 全 称 量词 (universal quantifier) 的 语句 对 于 同一 论 域内 所 有 成 员 都 有 相同 的 真 值 。 全 称 量 
词 用 符号 Y 表示， 后 接 一 个 或 多 个 作为 域 变 量 (domain variable) HBR, FSV 解释 为 “对 于 每 一 
个 ”或 者 “对 于 所 有 ”。 例 如 ， 在 数 域 中 : 


(Vx) (x + x = 2x) 


表示 对 于 任 一 x (x 为 一 个 数 )， 句 了 xt x= 2x 总 为 真 ， 如 果 我 们 用 符 导 pRMAATAT, BZ, 
可 更 简短 地 表达 为 : 


(Vx) (p) 
又 如 ， 让 p 表示 句子 “所 有 狗 都 是 动物 ”， 则 
(Vx) (p) =(V x) (if x is a dog — x is an animal) 


与 之 相反 的 语句 为 “没有 狗 是 动物 "， 其 写法 如 下 ， 
(Vx) (if x is a dog > ~x is an animal) 
此 名 也 可 以 读 作 : 
每 一 条 狗 都 不 是 动物 
所 有 狗 都 不 是 动物 
再 如 ,“ 所 有 三 角形 都 是 多 边 形 ”可 以 写成 以 下 形式 ; 


(Vx) (x is a triangle ~ x is a polygon) 
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读 作 “对 于 所 有 x， 若 x 是 三 角形 ， 则 x ASU” AAPA RR 
数 (predicate functions) 来 简化 表达 。 上 面 的 逻辑 语句 可 写成 : 

(Vx) (triangle(x) 一 polygon(x) } 

谓词 函数 中 的 谓词 通常 用 大 写字 母 来 表示 ,例如 ， 令 T= 三 角形 ，P= 多 边 形 ， 那 么 上 述 语句 也 可 
简写 为 : 

(Vx) (T(x) > P(x)) 或 者 (Wy) (T(y) 一 P(y)) 

注意 可 用 任何 变量 代替 旺 元 x 和 y， 另 一 个 例子 是 ， 用 H 表示 谓词 函数 “人 ”"，M 代替 谓词 函数 
“会 死 "。 于 是 , 语句 “所 有 人 会 死 ” 可 写成 : 

(Y x) (H(x) > M(x)) 


读 作 ,“ 对 于 所 有 x， 若 x 是 人 ， 则 x 会 死 "。 此 谓词 逻辑 语句 可 用 一 个 语义 网 来 表达 ， 如 图 2.16 


所 示 。 它 也 可 以 用 规则 表示 为 : 
IFx 是 人 


x 会 

THEN x AE 图 2.16 谓词 逻辑 语句 
全 称 量词 也 可 解释 为 一 个 关于 实例 的 谓词 的 合 取 。 如 前 所 述 ， 实 例 是 一 的 语义 网 表示 

个 特定 的 例子 。 例 如 ， 一 条 名 叫 Sparkler 的 狗 是 狗 类 的 一 个 特殊 实例 ， 于 是 

可 写成 如 下 形式 : 
狗 (Sparkler) 


这 里 ，“ 狗 ()” 是 一 个 谓词 函数 ，Sparkler 是 一 个 实例 。 
一 个 谓词 逻辑 语句 ， 如 
(Vx) P(x) 
可 用 实例 解释 为 
Plai) A P(a2) A Plas) A +--+ P(ay) 
其 中 省 略 号 表示 谓词 可 延伸 到 类 中 所 有 成 员 。 此 语句 说 明 谓 词 适用 于 类 中 的 所 有 实例 。 
可 使 用 多 重量 词 。 例 如 ， 数 的 加 法 交换 律 需 要 两 个 量词 ， 如 : 


(Vx) (Vy) x+y=y+x) 


它 表示 “对 于 所 有 x 和 所 有 y，x 与 y 的 和 等 于 y 与 x 的 和 ”。 


2.15 存在 量词 


另 一 种 量词 叫 存在 量词 (existential quantifier) 。 存 在 量词 表示 句子 至 少 对 论 域 中 的 一 个 成 员 为 真 。 
存在 量词 是 表示 对 于 论 域 中 的 所 有 成 员 句 子 都 为 真 的 全 称 量词 的 限制 形式 ， 存 在 量词 写作 3 ， 后 接 一 
个 或 多 个 参数 。 例 如 : 


(ax) (x - x= 1) 
(3 x) (elephant (x) a name(Clyde)) 


第 一 个 句子 表示 存在 一 些 x， 它 与 自身 相 乘 等 于 1。 第 二 个 句子 表示 有 一 些 大 象 名 叫 Clyde 
存在 量词 有 许多 种 读 法 ， 例 如 : 





知识 的 表示 


65 





又 如 ， 


(V x) (elephant (x) 一 four-legged(x)) 


表示 所 有 象 都 是 四 条 腿 的 。 而 有 一 些 大 象 是 三 条 腿 的 ， 便 可 用 逻辑 “与 ”和 存在 量词 表示 为 : 


(3 x) (elephant (x) a three-legged (x)) 


正如 全 称 量词 可 表示 为 一 个 合 取 ， 存 在 量词 可 表示 为 实例 的 一 个 析 取 。 


P(a:) v P(az) v B(as) v -+-+-P(ay) 


用 P 表 示 “ 大 象 是 哺乳 动物 "， 在 表 2.6 中 列 出 了 几 个 量词 语句 及 其 否定 的 例子 ， 括 号 中 的 数字 仅 





用 于 区 别 讨 论 中 的 各 个 例子 。 
表 2.6 量词 否定 例子 
例 F a A 
(da) (Wx) (P) 所 有 大 象 是 哺乳 动物 
(1b) (4x) (~P) 有 些 大 象 不 是 哺乳 动物 
(2a) (4x) (P) 有 些 大 象 是 哺乳 动物 
(2b) (Yx) (~P) 没有 大 象 是 哺乳 动物 


例 (a) 与 例 Ob) 互 为 否定 , 例 (2a) 和 例 (2b) 也 互 为 和 否定。 注意 ， 全 称 量 词语 句 (1a) KE 
定 就 是 存在 量词 语句 〈1lb)， 类 似 地 ， 存 在 量词 语句 (2a) 的 否定 就 是 全 称 量词 语句 (2b)。 


2.16 量词 与 集合 


量词 可 用 来 定义 一 个 论 域 U 上 的 集合 关系 ， 如 表 2.7 所 示 。 


若 A 是 B 的 一 个 真子 集 ， 则 写作 ACB, 它 表 示 所 有 属于 A 的 元 素 都 在 B 中， 至 少 有 一 个 在 B 中 


的 元 素 不 在 A 中 。 令 上 表示 大 象 ，M 表示 吓 乳 动物 ， 集 合 关 系 为 ; 


ECM 


表示 所 有 大 象 都 是 哺乳 动物 ， 但 并 不 是 所 有 哺乳 动物 都 是 大 象 。 令 G= 灰色 的 ，F= 四 足 的 ， 则 “所 有 


灰色 的 、 四 足 的 大 象 都 是 哺乳 动物 ”可 写作 


(ENGOAF) CM 


R27 某 些 集合 表达 式 及 其 等 价 逻辑 表达 式 





集合 表达 式 等 价 逻辑 表达 式 

A=B Yx (xE ACPxEB) 
ASB Vx (xE A>x€B) 
ANB Yx (x€ AAx€B) 
AUB Vx (xEAVxEB) 
A’ Yx (xEU|~ (x€ A) 
U (Universe) T (True) 
© (empty set) F (False) 

使 用 下 面 定义 : 

E= 大 象 

R= 爬行 动物 

G= 灰色 的 

F= en 


D= 狗 
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M= 哺乳 动物 

以 下 是 一 些 量 词句 例子 : 
RAKRERA AY 
ENR=© 

一 些 大 象 是 灰色 的 

ENGØ 

没有 大 象 是 灰色 的 

ENG= Ø 

一 些 大 象 不 是 灰色 的 

ENG AO 

HA KREK f AAE 
EC (GNF ) 

所 有 大 象 和 狗 都 是 哺乳 动物 
(EUD)CM 

一 些 大 象 是 四 足 的 并 有 是 灰色 的 
(ENENGAD 


作为 集合 与 逻辑 形式 的 另 一 个 比较 ， 德 :摩根 律 如 表 2.8 所 示 ， 其 中 符号 二 的 意思 是 左边 的 语句 与 
右边 的 语句 有 相同 的 真 值 ， 也 就 是 说 ， 两 个 语句 是 等 价 的 。 
表 2.8 德 ' 摩 根 定律 的 集合 和 逻辑 形式 





集 R ez # 
(AN B)’=A’ UB ~ (pAq) =~pV~q 
(AUB)'=A' NB ~ (pVq) =~pA~q 


2.17 谓词 逻辑 的 局 限 性 

虽然 谓词 逻辑 在 许多 情况 下 非常 有 用 ， 但 仍 有 某 些 类 型 的 语句 不 能 用 使 用 了 全 称 量词 和 存在 量词 
的 谓词 逻辑 来 表达 。 例 如 ， 以 下 语句 不 能 用 谓词 逻辑 来 表达 ， 

大 多 数 (most) 同 学 得 了 
在 这 个 语句 中 ， 量 词 大 多 数 表示 多 于 一 半 。 

量词 大 多 数 不 能 用 全 称 量词 和 存在 量词 来 表达 。 为 了 表达 大 多 数 ， 一 个 逻辑 必须 提供 一 些 用 于 计 
算 的 谓词 ， 如 本 书 第 5 章 的 模糊 逻辑 。 谓 词 逻 辑 的 另 一 个 局 限 是 难以 表达 一 些 有 时 真 但 并 非 总 是 真 的 
事情 。 这 个 问题 也 可 通过 模糊 逻辑 来 解决 。 然 而 ， 引 人 计算 的 同时 也 把 更 多 的 复杂 因素 引进 了 逻辑 系 
统 中 ， 并 且 使 其 更 像 数 学 了 。 


2.18 小 结 


在 这 一 章 ， 我 们 讨论 了 逻辑 基础 、 知 识 表 示 和 知识 表示 技术 。 知 识 表 示 对 专家 系统 十 分 重要 。 讨 
论 廖 论 是 因为 它 对 于 知识 工程 师 理解 领域 规则 、 避 免 混 淆 知识 的 形式 和 语义 非常 重要 。 除 非 规定 了 形 
式 规则 ， 专 家 系统 才 可 能 得 到 有 效 的 结论 ， 否 则 将 在 与 人 类 生命 和 财产 有 关 的 重要 系统 中 带 来 灾难 。 

从 逻辑 的 角度 ， 知 识 可 以 用 许多 方法 来 分 类 ， 例 如 ， 先 验 知识 、 后 验 知识 ; 过 程 的 、 说 明 的 、 默 
认 的 知识 。 产 生 式 规 则 、 语 义 网 、 模 式 、 框 架 和 钦 辑 是 专家 系统 中 常用 的 知识 表示 方法 。 每 一 种 方法 
都 有 优 缺 点 。 在 设计 一 个 专家 系统 之 前 ， 你 应 该 决定 用 哪 一 种 方法 可 以 最 好 地 解决 问题 。 与 其 用 一 个 
工具 去 解决 所 有 问题 ， 倒 不 如 对 特定 的 问题 用 最 好 的 工具 。CLIPS 的 好 处 在 于 能 够 在 表达 知识 时 间 时 
包含 对 象 和 规则 。 关 于 逻辑 、 知 识 和 雇 论 的 参考 可 以 在 附录 G 中 获得 。 附 录 A、B 和 CC 包含 了 许多 有 
用 的 等 式 、 方 程 和 集合 性 质 。 
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习题 


2.1 


2.2 


2.3 


2.4 


2.5 


2.6 


2.7 


2.8 
2.9 


使 用 AKO MISA 联系 为 计算 机 设计 一 个 语义 网 。 考 虑 以 下 计算 机 类 别 : 微型 机 、 小 型 机 、 大 型 

机 、 巨 型 机 、 计 算 机 系统 、 专 用 机 、 通 用 机 、 主 板 级 、 芯 片 级 、 单 处 理 器 、 多 处 理 器 。 包 括 特 殊 

使 用 AKO 和 ISA 联系 为 计算 机 通讯 设计 一 个 语义 网 。 考 虑 以 下 类 别 : 局 域 网 、 广 域 网 、 令 牌 

网 、 星 形 网 、 集 中 式 、 分 散 式 、 分 布 式 、 调 制 解 调 器 、 远 程 通讯 、 新 闻 组 、 电 子 邮 件 。 包 括 特殊 

情况 。 

为 建筑 物 设计 一 个 框架 系统 。 考 虑 办 公 室 、 教 室 、 实 验 室 等 ， 你 可 以 加 入 一 些 类 别 。 包 括 要 盾 人 的 

W. 

设计 一 个 可 以 运行 的 框架 系统 ， 并 据 此 解释 ， 如 果 你 的 计算 机 硬件 坏 了 ， 你 该 怎么 办 。 考 虑 软 

盘 、 电 源 、CPU、 内 存 等 出 错 情况 。 

画 文 氏 图 ， 并 写 出 集合 表达 式 : 

(a) 两 个 集合 的 异 或 (exclusive-OR)。 对 两 个 集合 A、B, 它 由 所 有 在 一 个 集合 中 ,但 不 在 两 个 集 
合 中 的 元 素 组 成 。 异 或 也 称 集合 的 对 称 差 (symmetric set difference), AAS ma, Wan: 
{1, 2} / {2, 3} = {1, 3} 

(b) 两 个 集合 的 关 (set difference), HAS -~ 表示。 它 由 所 有 在 第 一 个 集合 但 不 在 第 二 个 集合 中 
的 元 素 组 成 。 例 如 : l 
{1, 2} — 12, 3) = Hf 
RE, (1, 2] 是 第 一 个 集合 ，|2，31 是 第 二 个 集合 。 

写 出 真 值 表 ， 并 判定 哪些 是 重 言 式 、 了 矛盾 式 、 偶 然 式 语句 (contingent statement). Xf (a) 和 

(b)， 首 先 转换 为 用 逻辑 符号 和 连接 符 所 表达 的 式 子 。 

(a) 如 果 我 及 格 并 得 了 “A” 那 么 
我 及 格 或 得 了 “A” 

(b) 如 果 我 及 格 则 我 得 了 “A” 

并 且 
我 及 格 且 没有 得 “A” 

(c) ( (AA ~B) 一 (CA~C)) > (A>B) 

(d) (A*B) A (~BVC) A (AA~C) 

(e) A>~B 偶然 式 

两 个 句子 逻辑 相等 当 且 仅 当 它们 具有 相同 的 真 值 。 因 此 ， 对 两 个 表达 式 A、B， 它 们 的 充 要 式 A 

=B 或 恒等式 A=B 在 任何 情况 下 都 为 真 ， 由 此 得 到 一 个 重 言 式 。(a) 使 用 逻辑 符号 来 表达 下 面 

两 个 句子 并 判定 它们 是 否 逻 辑 相 等 ，(b) 判定 它们 的 充 要 式 是 否 为 重 言 式 。 

如 果 你 吃 了 香蕉 片 ， 那 么 你 不 能 吃 甜 饼 

WR TARE, BRA RA AERC ER 

写 出 与 集合 的 差 和 对 称 差 等 价 的 逻辑 表达 式 。 

说 明 下 列 式 子 对 任何 集合 A、B、C 及 空 集 人 都 是 恒 等 的 。 

(a) (AUB) = (BUA) 

(b) (AUB) UC=AU (BUC) 

(c) AUG=A 

(d) ANB=BNA 

(e) ANA =O 





2.10 用 量词 形式 写 出 下 列 句子 ; 
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(a) 所 有 狗 都 是 哺乳 动物 
(b) 没有 狗 是 大 象 
(c) 有 些 程序 有 漏洞 
(d) 我 的 程序 没有 一 个 有 漏洞 
(e) 所 有 你 的 程序 都 有 漏洞 
2.11 Æ (power set) P (S)， 是 指 集合 S 的 所 有 子 集 的 集合 。P (9 至 少 含有 空 集 必 ，S 两 个 元 
Re 
(a) 写 出 集合 A= 12, 4, 6) WER. 
(b) 一 个 具有 N 个 元 素 的 集合 ， 它 的 寡 集 具有 多 少 个 元 素 ? 
2.12 (a) 写 出 下 列 式 子 的 真 值 表 : 





含 义 © x 
要 么 p 要 么 q (pVq) A~ (pAq) 
BLA p WA q ~ (pVq) 

p BRAE q ~q>p 
pHFq (pAq) A (q>p) 
BA pq p>~q 


(b) 说 明 (pVq) A~ (pAq) =p/q, RE “/” MRR. 
2.13 (a) 写 出 NOR 和 NAND 的 真 值 表 。 
(b) 通过 真 值 表 说 明 下 面 的 等 式 , 证 明 用 |y | 或 者 {|| 可 以 充分 表示 一、 人 Ve 
~~p=p 
(pAq) = (pip) ¥ (qlq) 
~p=plp 
(Vq) = (plp) | (qlq) 
(c) HF peg=~ (pA~q), Flv 来 表示 p>qo 
(d) 说 明 用 充分 单 集 ( | ) 表示 表达 式 (i) 构造 电路 芯片 的 优 缺 点 。 
2.14 说 明 用 多 个 领域 的 知识 来 设计 专家 系统 的 优 缺 点 。 
2.15 解释 当 你 需要 者 熟 一 个 鸡蛋 时 ， 你 如 何在 Denver (FHE) 和 Houston (ETH) 以 不 同 的 方式 者 
水 ， 这 是 逻辑 问题 还 是 物理 问题 ? 
2.16 给 出 下 面 PROLOG 语句 ， 证 明 Tom 是 他 自己 的 祖父 : 
mother (pat, ann).; pat 是 ann 的 母亲 
parents (jim, ann, tom); jim 和 ann 是 tom 的 双亲 
surrogatemother (pat, tom).; pat 是 tom 的 代孕 母亲 
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第 3 章 推理 万 法 


3.1 概述 


本 章 将 介绍 关于 知识 的 推理 。 由 于 把 推理 中 所 使 用 词语 的 含义 与 推理 本 身 区 别 开 来 非常 重要 ， 所 
以 我 们 采用 形式 的 方法 来 讨论 不 同 的 推理 方法 (Russell 03)。 特 别 地 ， 我 们 将 关注 专家 系统 中 的 一 种 重 
要 推理 方法 ， 即 通过 使 用 规则 从 事实 推出 结论 。 这 一 点 在 专家 系统 中 尤其 重要 ， 因 为 使 用 推理 是 专家 
系统 解决 问题 的 基本 方法 (Klir 98). 

正如 第 1 章 所 介绍 的 ， 专 家 系统 广泛 地 用 于 没有 合适 的 算法 或 无 算法 的 情况 下 。 特 别 是 在 信息 不 
完整 或 缺乏 的 情况 下 ， 专 家 系统 应 该 像 人 类 一 样 能 够 从 一 系列 的 推理 中 得 到 结论 。 而 一 个 简单 的 使 用 
算法 的 计算 机 程序 在 缺乏 参数 的 情况 下 是 不 能 够 得 到 问题 解 的 。 

无 论 如 何 ， 当 无 法 找到 最 优 解 时 ， 专 家 系统 能 够 像 人 类 一 样 做 出 最 好 的 猜测 。 其 中 的 缘由 在 于 像 
人 类 一 样 得 到 一 个 有 希望 的 解 总 比 没有 好 。 也 许 这 个 解 只 有 最 优 解 95% 的 效率 ,但 至 少 比 没有 好 得 
多 。 这 样 的 处 理 方式 并 非 首创 。 例 如 ， 数 学 中 的 数字 计算 如 解 微分 方程 的 Runge-Kutta 方法 几 个 世纪 
来 一 直 用 于 求解 无 法 得 到 精确 解 的 问题 。 

注意 : 附录 A、B、C 提供 了 本 章 的 一 些 参考 资料 。 


3.2 树 、 格 、 图 


树 (tree) 是 由 结 点 (node) 和 分 枝 (branch) 组 成 的 层次 数据 结构 ， 结 点 用 于 存储 信息 或 知识 ， 
分 枝 连 接 各 结 点 。 有 时 分 枝 也 称 为 连接 (link) 或 边 (edge)， 而 结 点 称 为 项 点 (vertice)。 图 3.1 是 一 
棵 普通 的 二 叉 树 ， 每 个 结 点 有 0、1 或 2 条 分 枝 。 在 一 棵 有 向 树 (oriented tree) 中 ， 根 结 点 (root node) 
处 于 最 顶层 (hierarchy) 而 叶 结 点 (leaf) 在 最 底层 。 树 可 以 看 作 是 一 种 特殊 类 型 的 语义 网 ， 其 中 ， 除 
根 结 点 外 ， 每 个 结 点 只 有 一 个 双亲 (parent) 结 点 以 及 有 0 个 或 多 个 子 结 点 (child node)。 对 于 常用 的 
二 叉 树 ， 每 个 结 点 最 多 有 2 个 子 结 点 ， 并 且 左 右 子 结 点 必须 能 够 区 分 。 


根 结 点 
BB 





图 3.1 二 叉 树 


如 果 一 个 结 点 有 超过 一 个 的 双亲 结 点 ， 就 成 为 网 状 结构 。 在 图 3.1 中 ， 从 根 结 点 到 任何 一 个 结 点 
都 只 有 一 条 路 径 〈path) ， 因 为 不 可 能 逆 着 箭头 的 方向 走 。 在 有 向 树 中 ， 所 有 的 箭头 都 是 指向 下 的 。 

树 是 图 (graph) 的 一 个 特例 ， 图 是 一 种 更 一 般 的 数学 结构 。 在 用 图 描述 特定 的 例子 ， 如 电话 网 络 
时 ， 常 将 图 称 为 “网 络 系统 ”或 简称 为 “网 络 "。 在 图 中 结 点 之 间 可 以 没有 或 有 多 条 连接 ， 而 且 不 区 分 
双亲 结 点 和 子 结 点 。 图 的 一 个 简单 例子 就 是 地 图 ， 其 中 城市 作为 结 点 ， 公 路 作为 连接 ， 连 接 可 以 带 有 
稍 头 或 方向 ， 也 可 以 带 有 权 值 (weight) 以 表示 连接 的 某 些 特性 。 比 如 ， 在 一 条 单 向 行驶 的 路 上 ， 权 
值 表示 了 此 路 上 可 通过 多 大 的 卡车 。 权 值 可 代表 各 种 类 型 的 信息 。 如 果 图 表示 的 是 航空 路 线 ， 那 么 权 
值 可 代表 城市 间 的 距离 、 飞 行 费 用 、 燃 料 消耗 等 等 。 
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人 工 神经 系统 是 有 环 图 的 一 个 例子 。 因 为 在 训练 过 程 中 ,会 出 现 从 网 的 一 层 到 另 一 层 的 信息 反馈 ， 
并 通过 反馈 的 信息 修改 权 值 。 如 图 3.2 (a) 所 示 ， 这 是 一 个 简单 的 图 ， 它 没有 任何 边 直接 回 到 它 所 出 
发 的 那个 结 点 。 一 个 回路 (circuit) 或 环 (cyce) 是 指 图 中 起 点 和 终点 都 是 同一 个 结 点 的 路 径 ， 比 如 图 
3.2 (a) 中 的 路 径 ABCA。 一 个 无 环 图 (acyclic graph) 是 没有 回路 的 。 一 个 连通 图 (connected graph) 
是 指 所 有 的 结 点 之 间 都 有 连接 相通 ， 如 图 3.2 (b)。 带 有 向 边 的 图 称 为 有 向 图 (digraph)， 在 图 3.2 
(c) 中 有 一 个 自 循环 (self-loop)。 一 个 有 向 的 无 环 图 称 为 格 (lattice)， 如 图 3.2 (d) 所 示 。 从 根 结 点 
到 一 个 叶子 结 点 只 有 了 唯一 一 条 路 径 的 树 叫 退 化 树 (degenerate tree)， 图 3.2(e) 所 示 是 只 有 三 个 结 点 的 
退化 二 叉 树 。 一 般 ， 认 为 一 棵 树 中 箭头 都 是 指向 下 的 ， 所 以 箭头 不 需 明确 画 出 来 。 


NON SA 


(a) 一 个 不 连通 图 b) 一 个 连通 图 
A 
C 
©) 一 个 具有 自 循环 和 回路 的 有 向 图 d 一 个 格 


< > 


© 只 有 三 个 结 点 的 退化 二 又 树 
图 3.2 简单 图 


由 于 具有 层次 特性 ， 即 双亲 在 子 结 点 之 上 ， 所 以 树 和 格 通常 用 于 对 象 分 类 。 一 个 例子 是 家 族 树 ， 
它 表明 了 家 族 的 祖先 以 及 家 族 成 员 之 间 的 关系 。 树 和 格 的 另 一 个 应 用 是 做 判定 ， 此 时 称 之 为 判定 树 
(decision trees) 或 判定 格 (decision lattices)。 我 们 将 用 “结构 ”(structure) 一 词 来 表示 树 和 格 。 一 个 判 
定 结构 既 可 以 作为 知识 表示 模式 ， 也 可 以 作为 推理 的 方法 。 图 3.3 是 一 个 把 动物 分 类 的 判定 树 。 这 个 
例子 是 为 有 20 个 问题 的 传统 游戏 设计 的 。 结 点 包含 着 问题 ， 分 枝 代表 “是 ”和 “ 否 ”， 用 以 回答 结 点 
的 问题 。 叶 子 则 包含 着 猜测 一 一 这 是 什么 动物 。 
它 很 大 吗 ? 


aN 


它 是 长 颈 吗 ? 


“ELM MI MLA 2 


可 能 是 松鼠 可 能 是 老鼠 EAR RT? 可 能 是 长 颈 鹿 


B/N 


它 喜欢 待 在 水 中 吗 ? ”可 能 是 大 象 
/Ns 
可 能 是 犀牛 ”可 能 是 河马 
图 3.3 关于 动物 知识 的 判定 树 
图 3.4 是 将 草莓 分 类 的 判定 树 的 一 小 部 分 。 不 像 计算 机 科学 中 的 树 ， 分 类 树 可 把 根 画 在 下 面 。 根 
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没有 画 出 来 ， 从 根 有 到 “ 单 叶 ” 结 点 的 边 和 到 “ 复 叶 ” 结 点 的 边 。 判 定 过 程 从 底部 开始 ， 这 是 通过 确 
定 粗略 特性 ， 例 如 叶子 是 单 叶 还 是 复 叶 来 实现 的 。 当 我 们 向 上 遍 历 这 棵 树 时 ， 就 需 考虑 更 多 特定 的 细 
节 。 于 是 ， 开 始 时 要 考虑 许多 可 能 ， 随 着 遍历 的 深入 ， 可 能 的 数目 不 断 减少 。 判 定 树 是 把 各 种 判定 组 
织 起 来 的 好 办 法 ， 它 可 以 根据 时 间 和 精力 做 更 详细 的 观察 。 


茎 饱满 、 果 黑 






























图 3.4 草莓 分 类 判定 树 的 一 部 分 


如 果 判 定 是 二 元 的 ， 那 么 一 棵 二 叉 判 定 树 不 但 易于 构造 ， 而 且 十 分 有 效 。 在 树 中 每 回答 一 个 问题 
就 降 到 树 的 下 一 层 。 每 一 个 问题 有 两 个 必 居 其 一 的 答案 ， 每 两 个 问题 就 有 4 个 可 能 答案 中 的 一 个 ，3 
个 问题 就 有 8 个 可 能 答案 中 的 一 个 等 等 。 如 果 一 棵 二 又 树 的 所 有 叶子 都 表示 答案 ， 而 所 有 结 点 都 表示 
问题 ， 那 么 N 个 问题 最 多 会 有 27 个 答案 。 如 10 个 问题 可 分 类 为 1024 种 动物 ， 而 20 个 问题 可 从 
1 048 576 个 答案 中 确定 出 一 个 。 

判定 树 的 另 一 个 有 用 特点 是 可 以 自学 习 (self-learning)。 如 果 推 测 错 了 ， 程 序 会 询问 用 户 一 条 新 
的 、 正 确 的 分 类 问题 ， 并 要 做 出 “是 ”或 “ 否 ” 的 回答 。 新 的 结 点 、 分 枝 、 叶 子 会 自动 生成 ， 并 添加 
到 树 中 。 最 初 的 动物 程序 是 用 Basic 编写 的 ， 知 识 存放 在 DATA 语句 中 。 当 用 户 告诉 程序 一 种 新 的 动物 
时 ， 程 序 会 自动 学 习 并 生成 包含 这 个 新 动物 的 新 的 DATA 语句 。 关 于 动物 的 知识 可 存 于 树 中 以 便 提高 
效率 。 在 专家 系统 工具 CLIPS 中 ,程序 使 用 建立 (build) 关键 字 来 获得 新 的 知识 ， 因 此 会 自动 生成 新 
的 规则 (Giarratano 93)。 自 动 知识 获取 (automated knowledge acquisition) 技术 十 分 有 用 ， 因 为 它 可 以 
解决 第 6 章 中 所 提 到 的 知识 获取 瓶颈 问题 。 

判定 结构 可 以 机 械 地 转变 成 产生 式 规 则 。 这 可 以 通过 对 结构 进行 广度 优先 搜索 并 在 每 个 结 点 生成 
“IF-THEN” 规 则 来 实现 。 例 如 ， 图 3.3 判定 树 可 以 转化 成 以 下 规则 : 

下 问题 “ERAK?” EE =“ 否 ” 

THEN H: = “Emme MYA?” 

IF (AURA = “ER AMY?” HE = “是 ” 

THEN 问题 : =“ 它 是 长 颈 吗 ?” 
其 他 的 结 点 也 是 如 此 。 一 个 叶子 生成 的 是 一 个 答案 ， 而 不 是 一 个 问题 。 如 发 现 有 错 ， 程 序 会 要 求 用 户 
输入 信息 ， 并 构造 新 的 结 点 。 

虽然 判定 结构 是 强 有 力 的 分 类 工具 ,但 由 于 它们 不 能 像 专家 系统 那样 处 理 变量 ， 因 而 具有 局 限 性 。 
专家 系统 是 通用 的 工具 ， 而 不 只 是 简单 的 分 类 工具 。 
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3.3 状态 与 问题 空间 


图 可 应 用 于 许多 实际 问题 上 。 描 述 对 象 行为 的 一 个 有 效 方法 是 定义 一 个 称 为 状态 空间 (state 
space) 的 图 。 状 态 是 用 于 确定 一 个 对 象 身份 或 状况 的 特征 集合 ， 状 态 空间 是 指 对 象 状态 转换 (transi- 
tions) 所 经 历 的 所 有 状态 ， 转 换 使 对 象 从 一 种 状态 变 到 男 一 种 状态 。 


状态 空间 例子 


作为 状态 空间 的 一 个 简单 例子 ， 考 虑 要 从 一 台 机 器 购买 饮料 。 当 你 把 硬币 投 进 机 器 时 ， 机 器 就 从 
一 种 状态 转换 到 另 一 种 状态 。 假 设 只 有 25 美 分 及 5 美 
分 的 硬币 是 有 效 的 ， 且 一 支 饮料 需 55 美 分 ， 图 3.5 说 
明了 这 种 状态 空间 。 如 果 人 允许 投入 诸如 10 美 分 和 50 
美 分 的 硬币 ， 就 会 使 这 个 例子 更 复杂 ， 这 里 不 作 分 析 。 

为 了 标识 得 更 明确 ， 开 始 和 成 功 状态 用 双 圈 表示 。 
状态 以 圆圈 表示 ， 从 一 种 状态 转换 到 另 一 种 状态 用 箭 
头 表 示 。 注 意 ， 这 个 图 是 一 个 带 权 有 向 图 ， 其 中 权 值 
是 各 种 状态 下 可 能 放 进 机 器 的 硬币 。 

因为 描述 的 是 一 个 机 器 的 有 限 的 状态 ， 因 而 这 个 
图 也 称 为 有 限 状 态 机 (finite state machine) 图 。“ 机 
器 ”一 词 的 用 途 非常 广泛 。“ 机 器 ”可 以 是 一 个 实在 的 
对 象 、 算 法 、 概 念 等 等 。 与 每 种 状态 相 联 系 的 是 驱使 
它 变 成 另 一 种 状态 的 行为 。 任 何 时 候 ， 机 器 仅 能 处 于 
一 种 状态 下 。 当 机 器 接受 输入 时 ， 它 将 从 一 种 状态 推 
进 到 另 一 种 状态 。 如 果 所 给 的 是 正确 输入 ， 机 器 将 从 
开始 状态 不 断 前 进 到 结束 或 成 功 的 状态 。 一 个 状态 如 
果 没 有 设计 为 接受 某 个 特定 输入 ， 那 么 机 器 将 停止 在 
那个 状态 。 例 如 ， 饮 料 机 器 不 能 接收 一 角 的 硬币 。 如 
果 某 个 人 把 一 枚 一 角 硬 币 投入 机 器 中 ， 机 器 的 反应 是 图 3.5 一 个 只 接受 25 美 分 (Q) 和 5 美 分 
无 定义 的 。 一 个 好 的 设计 应 考虑 每 种 状态 下 所 有 非法 (N) 的 饮料 售卖 机 的 状态 图 
输入 的 可 能 性 ， 并 使 之 在 非法 输入 下 转换 到 出 错 状态 。 

出 错 状态 要 设计 成 可 以 给 出 适当 的 出 错 信息 ， 并 可 采取 某 些 必要 的 行动 。 

“有 限 状态 机 ”常用 在 编译 程序 或 其 他 程序 中 以 判定 输入 的 正确 性 。 例如， 图 3.6 给 出 了 检测 有 效 
输入 串 的 有 限 状态 机 的 一 部 分 。 一 次 只 检查 一 个 输入 字符 。 只 有 WHILE、WRITE 和 BEGIN 这 样 的 字 
符 串 才 会 被 接受 。 图 中 画 出 了 输入 BEGIN 正确 时 ， 从 开始 状态 会 到 达成 功 状态 ， 而 输入 不 正确 就 会 达 
到 出 错 状态 。 为 了 提高 效率 ,一 些 标 有 “L” 和 “T” 的 状态 既 可 用 于 测试 “WHILE”， 也 可 用 于 测试 
“WRITE”. 

注意 : 这 里 只 显示 了 一 部 分 出 错 状态 转换 。 

状态 图 在 描述 问题 的 求解 方法 上 也 非常 有 用 。 在 这 些 应 用 中 ， 我 们 可 以 把 状态 空间 看 作 问 题 空 间 
(problem space) ， 一 些 状态 对 应 于 问题 解决 的 中 间 状 态 ， 一 些 状态 对 应 于 答案 。 在 问题 空间 ， 可 能 有 多 
种 解决 方法 ， 相 应 地 ， 有 多 种 成 功 状 态 。 在 问题 空间 中 寻找 解决 问题 的 方法 就 是 寻找 一 条 从 开始 状态 
(问题 陈述 ) 到 成 功 状 态 CSE) 的 有 效 路 径 。 动 物 判定 树 可 作为 一 个 问题 空间 ， 对 问题 “是 ”或 
“ 否 ” 的 回答 决定 了 状态 转换 。 

另 一 个 问题 空间 的 例子 是 经 典 的 猴子 和 香花 问题 ， 如 图 3.7 所 示 。 这 个 问题 是 给 猴子 发 出 一 些 命 
令 告诉 它 怎样 取得 从 天 花 板 上 吊 下 来 的 香蕉 。 香 若是 够 不 着 的 ， 在 房间 里 有 一 张 椅子 和 一 个 梯子 ， 最 
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初 的 状态 是 猴子 坐 在 椅子 上 。 所 给 的 命令 如 下 : 





出 错 
图 3.6 用 于 检测 有 效 字符 串 WHILE, WRITE 和 BEGIN 的 有 限 状态 机 的 一 部 分 







观察 到 椅子 
TE EIR T 





观察 到 猴子 
不 在 梯子 旁 








观察 到 儿子 
在 梯子 旁 






观察 到 梯子 
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观察 到 梯子 
在 香花 底下 移动 梯子 
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从 椅子 上 跳 下 来 

走向 梯子 

将 梯子 移 到 香蕉 底下 

REBT 

ATER 

这 些 命 令 根 据 猴 子 、 椅 子 、 梯 子 的 初始 状态 的 不 同 而 不 同 。 因 为 有 各 种 各 样 的 初始 状态 ， 这 里 没 
有 给 出 初始 状态 的 用 特殊 双 峰 表示 。 例 如 ， 另 一 种 可 能 的 初始 状态 是 猴子 坐 在 香花 底下 的 椅子 上 。 猴 
FLARES, RATE TRIGA). RAP OMAR CAAA RR PRT Le. 

虽然 这 个 问题 在 人 看 来 是 显而易见 的 ， 但 它 涉 及 相当 多 的 推理 。 像 这 样 的 一 个 实用 的 推理 系统 告 
诉 了 机 器 人 解决 任务 的 指令 。 推 理 系统 的 通用 方案 是 能 够 处 理 各 种 情况 ， 而 不 是 假定 环境 中 的 所 有 物 
体 是 固定 不 变 的 。 一 个 基于 规则 的 解决 获 子 和 香 医 问 题 的 方法 已 附 在 CLIPS 光盘 上 。 

图 的 另 一 个 用 途 是 探测 路 径 以 找到 问题 的 解法 。 如 图 3.8 (a) 所 示 ， 这 个 简单 的 网 表示 了 旅行 售 
货 者 问题 (Traveling Salesman Problem) 。 在 这 个 例子 中 ， 假 定 问题 是 寻找 一 条 环 路 ， 使 得 从 A 点 开始 
可 以 访问 到 所 有 其 他 结 点 。 通 常 ， 在 旅行 售 货 者 问题 中 ， 一 个 结 点 不 能 被 访问 两 次 。 在 图 3.8 (b) P, 
以 树 型 结构 表示 了 所 有 可 能 从 A 点 开始 的 路 径 ， 正 确 的 路 径 是 ABDCA 和 ACDBA， 图 中 以 粗 边 表示 。 


一 


(a) 旅行 售 货 者 问题 的 图 
A 


N. 


AIN 


A c D A B D 
AIN AN [AIN [N 
AB D B € AC D B Cc 

A 人 个 N MS 
BC ABD BC ACD 


O 搜索 路 径 (最 佳 路 径 用 粗 线 表 示 ) 
图 3.8 旅行 售 货 者 问题 


寻找 正确 路 径 的 探测 所 需 的 回溯 次 数 是 由 搜索 算法 决定 的 。 例 如 ， 首 先 搜索 路 径 ABA 不 成 功 ， 再 
退回 到 B。 从 B 点 开始 搜索 CA、CB、CDB 和 CDC 也 不 成 功 ， 下 一 个 BDB 也 是 不 成 功 的 搜索 ， 直 到 找 
到 第 一 条 正确 路 径 ABDCA Wik. 


非 结构 化 问题 空间 


状态 空间 的 一 个 应 用 是 描述 非 结构 化 问题 的 特性 。 在 第 1 章 中 ,一 个 非 结 构 化 问题 定义 为 该 问题 
具有 不 确定 性 。 这 些 不 确定 性 能 够 由 问题 空间 更 加 准确 地 指明 。 

作为 一 个 非 结 构 化 问题 的 例子 ， 让 我 们 再 次 考虑 第 1 章 中 讨论 的 例子 : 一 个 人 正 打算 外 出 旅行 ， 
他 到 一 个 旅行 社 咨询 。 通 过 这 个 人 对 旅行 社 所 提出 问题 的 回答 ， 表 3.1 列 出 了 作为 一 个 问题 空间 的 这 
个 非 结构 化 问题 的 一 些 特性 。 
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如 果 你 拿 表 3.1 和 表 1.10 作 比 较 ， 你 将 会 发 现 问题 空间 的 概念 让 我 们 更 加 准确 地 描述 非 结构 化 问 


题 的 特性 。 如 果 一 个 解法 不 行 ， 准 确 地 确定 
这 些 参数 的 特征 以 及 考虑 这 个 解法 还 需要 
什么 是 很 重要 的 。 一 个 问题 不 一 定 只 因为 它 





有 一 个 、 一 些 、 甚 至 所 有 这 些 特 性 就 是 非 结 
构 化 的 ， 而 主要 取决 于 它 的 严格 性 (severi- 
ty)。 例 如 ， 所 有 要 用 定理 证 明 方式 解决 的 
问题 都 有 无 穷 多 的 潜在 解法 ， 但 这 并 不 能 使 
之 成 为 一 个 非 结 构 化 问题 。 

正如 你 从 表 3.1 所 看 到 的 ， 存 在 着 许多 
不 确定 性 ， 然 而 旅行 社 每 天 都 要 处 理 它们 。 


表 3.1 非 结 构 化 问题 的 旅行 例子 

特 人 性 回 答 
目的 地 不 明确 我 正 考虑 去 某 个 地 方 
没有 约束 的 问题 空间 我 不 知道 去 哪里 
问题 状态 不 离散 我 只 想 去 旅行 ， 目 的 地 并 不 重要 
难以 达到 的 必要 状态 我 没有 足够 的 钱 
状态 算 子 未 知 我 不 知道 怎样 弄 到 钱 
时 间 限 制 我 必须 尽快 去 


或 许 不 是 所 有 的 情况 都 这 么 糟 ， 但 它 表明 了 为 什么 写 出 一 个 解决 问题 的 算法 很 难 。 

在 结构 化 问题 中 我 们 很 清楚 问题 、 目 标 、 运 算 符 ， 以 使 从 一 个 状态 转 到 另 一 个 状态 。 一 个 结构 化 
问题 是 确定 的 〈deterministic) ， 因 为 当 一 个 运算 符 用 于 一 种 状态 时 ， 就 一 定 能 确定 下 一 个 状态 。 问 题 空 
间 是 约束 的 ， 状 态 是 离散 的 。 这 意味 着 只 有 数量 有 限 的 状态 ， 且 每 种 状态 已 被 确定 。 

在 旅行 问题 中 ， 状 态 是 无 约束 的 ， 因 为 有 各 种 可 能 的 目的 地 供 旅 行者 选择 。 一 个 相似 的 情况 是 一 
个 模拟 计 程 表 ， 它 可 以 指出 无 穷 多 的 读数 。 如 果 我 们 将 计 程 表 的 每 一 次 读数 当 作 一 个 状态 ,那么 就 有 


无 穷 多 个 状态 ， 且 这 些 状态 没有 很 好 定义 ， 
因为 它们 相当 于 实数 。 由 于 任意 两 个 实数 之 
间 有 无 穷 个 实数 ， 所 以 这 些 状 态 是 不 离散 的 ， 
因为 下 一 个 状态 有 无 穷 多 种 可 能 。 相 反 ， 数 
字 计 程 表 的 读数 是 有 约束 的 、 离 散 的 。 


3.4 与 或 树 和 目标 


许多 类 型 的 专家 系统 使 用 反 向 链 来 寻找 
问题 的 解法 。PROLOG 是 反 向 链 系统 的 一 个 
很 好 例子 ， 它 试图 将 一 个 问题 分 解 成 多 个 子 
问题 ， 然 后 逐个 解决 。 在 20 世纪 90 年 代 ， 
PROLOG 开始 广泛 使 用 于 商业 和 和 工业 应 用 中 
( http: //www.ddj.com/documents/s = 9064/ 
ddj0212ai004/0212aie004. htm) 解决 问题 就 是 
要 达到 某 一 目标 。 为 了 达到 目标 ， 需 要 实现 
零 个 或 多 个 子 目 标 。 

一 种 用 于 表示 反 向 链 的 树 或 格 是 与 或 树 。 
如 图 3.9 所 示 ， 这 是 一 个 用 与 或 格 解决 获取 
大 学 学 位 的 简单 例子 。 为 了 实现 目标 ， 必 需 
上 大 学 或 通过 函授 。 函 授 可 以 是 邮寄 形式 或 
者 通过 用 计算 机 和 调制 解 调 器 联网 来 
实现 。 

为 了 达到 学 位 要 求 ， 必 须 实现 3 个 子 目 
br: (1) 申请 入 学 ; (2) 完成 课程 ; (3) 申请 
毕业 。 请 注意 有 一 条 弧 横 跨 目标 “满足 要 求 ” 
到 其 3 个 子 目 标的 边 ， 这 条 弧 表 明 “ 满 足 要 






满足 要 求 


通过 课程 


图 3.9 如 何 获得 大 学 学 位 的 与 或 格 
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求 ”是 一 个 与 结 点 ， 只 有 三 个 子 目 标 都 满足 了 它 才 满足 。 没 有 弧 线 的 目标 结 点 是 或 结 点 ， 例 如 图 中 的 邮 
寄 、 上 网 、 亲 自 去 等 结 点 。 在 这 里 只 要 实现 其 中 一 个 子 目 标 就 可 满足 父 结 点 目标 ， 即 获取 大 学 学 位 。 

这 个 图 是 一 个 格 ， 因 为 “满足 要 求 ” 的 子 目 标 有 3 个 父 结 点 : (1) 邮寄 ; (2) 上 网 ; (3) 亲自 去 。 
注意 可 以 将 这 个 图 画 成 一 棵 树 ， 只 要 分 别 画 出 “满足 要 求 ” 子 目 标 与 “邮寄 ”“ 上 网 、“ 末 自 去 ”之 
间 的 目标 子 树 。 然 而 ， 因 为 “满足 要 求 ” 子 目标 的 3 个 父 结 点 有 相同 的 子 目 标 ， 这样 做 没有 优点 ， 并 
且 也 浪费 纸张 。 

另 一 个 简单 的 例子 ， 如 图 3.10 所 示 ， 是 用 与 一 或 树 解决 通过 不 同方 式 去 上 班 的 问题 。 为 了 表达 完 
整 ， 这 棵 树 也 可 转换 成 格 。 例 如 ， 可 以 在 “开车 到 火车 站 ” 结 点 和 “汽车 ” 结 点 之 间 加 一 条 边 ， 也 可 
以 在 “步行 到 火车 站 ” 结 点 和 “步行 ” 结 点 之 间 加 一 条 边 。 图 3.11 表示 了 一 个 与 一 异 或 类 型 的 格 。 





把 车 开 到 
加 油 站 





图 3.11 决定 卖 车 还 是 修 车 的 与 一 或 格 
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另 一 个 描述 问题 解决 方法 的 途径 是 与 一 或 一 非 格 ， 这 种 途径 使 用 逻辑 门 符号 代替 与 一 或 树 型 表达 。 
与 门 、 或 门 、 非 门 的 逻辑 符号 如 图 3.12 所 示 。 这 些 门 实现 了 第 2 章 中 讨论 的 与 、 或 、 非 真 值 表 。 图 
3.13 表示 了 用 与 门 及 或 门 实现 图 3.9。 


A ) A 
AandB AorB 
> H) j S >o A 


图 3.12 与 、 或 、 非 逻辑 门 符号 





sd yo 满足 要 求 = 
sean: 申请 入 学 邮寄 目标 
申请 毕业 上 网 


图 3.13 用 与 一 或 逻辑 门 表示 图 3.9 


与 一 或 树 和 判定 树 基本 上 有 共同 的 优 缺 点 。 与 一 或 一 非 格 的 主要 优点 是 它们 可 以 在 快速 处 理 的 硬 
件 上 实现 。 这 些 格 可 以 做 成 集成 电路 。 实 际 上 ， 像 与 非 (NOT-AND, NAND) 这 种 类 型 的 逻辑 门 常 因 
制造 成 本 较 单独 使 用 与 门 、 或 门 、 非 门 经 济 而 使 用 。 从 逻辑 角度 可 以 证 明 任何 逻辑 功能 都 能 用 NAND 
门 实现 。 但 生产 只 有 一 种 类 型 逻辑 门 的 集成 电路 比 生产 具有 多 种 类 型 逻辑 门 的 集成 电路 便宜 。 

由 于 进行 并 行 处 理 ， 采 用 正 向 链 (forward chaining) 的 芯片 可 以 把 答案 看 作 是 输入 的 函数 而 快速 
计算 出 解答 。 这 种 芯片 可 用 于 对 传 感 数据 的 实时 监控 并 根据 输入 做 出 适当 的 反应 。 其 主要 缺点 是 像 其 
他 判定 结构 一 样 ， 一 个 逻辑 芯片 仅 能 处 理 已 设计 好 的 情况 。 但 是 ， 一 个 做 在 芯片 上 的 ANS 可 以 处 理 意 
料 不 到 的 输入 。 


3.5 ”演绎 逻辑 与 三 段 论 


在 第 2 章 中 我 们 讨论 了 知识 的 逻辑 表达 。 现 在 你 将 看 到 推理 是 如 何 导出 新 知识 或 信息 的 。 在 本 章 
的 剩余 部 分 我 们 将 讨论 各 种 不 同 的 推理 方法 。 图 3.14 是 推理 方法 的 概观 ， 可 简短 地 归结 如 下 : 





非 单调 推理 





归纳 启发 式 溯 因 自 知 类 比 
图 3.14 推理 的 类 型 


。 演绎 (Deduction)。 由 前 提 推 出 结论 的 逻辑 推理 。 

。 归纳 (Induction)。 从 特殊 到 一 般 的 推理 。 归 纳 是 机 器 学 习 的 主要 方法 ,计算 机 不 需要 人 的 干预 
而 学 习 。 三 种 流行 的 机 器 学 习 方 法 是 连接 Hopfield 网 ，ID3AD5R 象征 和 基于 探索 的 遗传 算法 
(http: //ai.bpa. arizona. edu/papers/mlir93 /mlir93. html) o 

。 直觉 (Intuition)。 没 有 证 明 的 理论 。 可 能 无 意识 地 发 现 了 一 个 潜在 的 模式 ， 于 是 便 有 了 答案 。 
专家 系统 还 未 实现 这 种 类 型 的 推理 。ANS 可 以 保证 这 种 类 型 的 推理 ， 因 为 它们 能 通过 训练 进行 
外 推 ， 而 不 只 是 提供 一 个 条 件 响 应 或 插值 。 也 就 是 说 ， 一 个 神经 网 络 总 是 给 出 它 最 好 的 猜想 作 
为 解决 办 法 。 

。 启发 式 〈Heuristics)。 基 于 经 验 的 规则 。 





80 #3 # 





。 生成 与 验证 (Generate and test)。 试 验 与 排 错 。 为 了 提高 效率 ， 常 与 规划 一 起 使 用 。 

。 漳 因 《Abduction)。 从 一 个 正确 的 结论 反 推出 可 能 导致 这 个 结论 的 前 提 。 

。 默认 推理 (Default)。 在 缺乏 特定 知识 的 情况 下， 假定 通用 知识 。 

。 自 知 (Autoepistemic)。 自 党 知识 。 

。 非 单调 推理 (Nonmonotonic)。 当 获得 新 证 据 时 ， 先 前 的 知识 可 能 不 正确 。 

。 že (Analogy)。 基 于 与 另 一 情况 的 相似 性 推出 一 个 结论 。 神 经 元 网 络 通过 识别 数据 中 的 模式 

再 推理 出 新 的 情况 。 

尽管 在 图 3.14 中 没有 明确 列 出 ， 常 识 性 知识 (commonsense knowledge) 可 能 是 这 些 知 识 的 任意 组 
合 。 常 识 推理 是 人 们 通常 使 用 的 ， 却 很 难为 计算 机 所 掌握 的 推理 。 从 20 世纪 80 年 代 开 始 ，Doug Lenat 
主要 尝试 用 常识 性 知识 建立 一 个 巨大 的 数据 库 供 计 算 机 推理 用 。 而 现在 已 经 开始 进行 实践 性 的 应 用 
(http: //www.OpenCyc.org)。 这 个 数据 库 包 括 很 多 断言 和 规则 ， 可 以 用 于 更 好 地 进行 语音 识别 及 更 
有 效 地 构建 本 体 等 应 用 中 。 但 有 趣 的 是 谚语 “ 越 大 越 好 ”并 不 总 是 正确 。 以 下 的 内 容 来 自 Doug Lenat 
的 私人 信件 ， 对 此 作 了 解释 : 

“手工 输入 了 300 万 条 规则 ， 通 过 概 化 和 精炼 ， 我 们 把 数量 减少 到 150 万 。 我 们 尽 可 能 减少 数量 ， 
而 不 是 增加 一 一 我 们 可 以 很 容易 地 扩展 到 10 亿 条 规则 。 例 如 ,考虑 2 种 动物 一 一 有 规则 “老鼠 不 是 骆 
驼 '。10 000 种 动物 就 可 以 写 出 100 000 000 条 这 样 的 规则 。 但 是 ,在 Cyc 中 只 有 10 001 条 规则 : Lin- 
naean 分 类 关系 学 增加 了 一 条 规则 : 两 种 不 存在 从 属 关系 的 种 类 是 相 异 的 。 ' 成 千 上 万 条 规则 ” 指 的 是 
非常 特别 的 规则 ， 具 有 某 种 程度 的 复杂 性 ， 比 如 我 刚才 提 到 的 就 没有 一 条 可 以 说 是 规则 。 

有 一 两 百 万 条 断言 是 由 于 我 们 不 能 再 精简 了 。 我 们 并 不 想 将 数量 扩大 ， 因 为 这 样 会 使 速度 降低 。 
但 如 果 需 要 的 话 ， 我 们 可 以 从 现 有 数据 库 中 的 200 万 条 断言 中 拿 出 10 001 个 替换 成 100 000 000 个 不 那 
么 概 化 的 规则 。 不 过 这 并 不 好 。” 

关于 模糊 逻辑 在 常识 性 推理 中 的 应 用 将 在 第 5 章 中 讨论 。 

最 常用 的 推理 方法 是 演绎 逻辑 (deductive Jogic)， 自 远古 时 代 起 这 种 方法 就 已 用 于 确定 辩论 (argu- 
ment) 的 正确 性 。 虽 然 人 们 一 般 使 用 辩论 一 词 来 描述 一 个 令 人 生气 的 “意见 交换 ”， 但 它 在 逻辑 学 中 有 
非常 不 同 的 含义 。 一 个 逻辑 辩论 是 一 组 语句 ， 这 组 语句 的 最 后 一 个 语句 基于 前 面 推理 链 (chain of rea- 
soning) 中 的 语句 而 被 证 明 。 逻 辑 辩论 中 的 一 类 是 三 段 论 ,我们 已 在 第 2 章 中 简要 地 讨论 过 了 。 三 段 论 
的 一 个 例子 如 下 : 

前 所 :任何 一个 能 编程 的 人 都 是 聪明 的 

前 提 : 约 翰 能 编程 

结论 :所 以 ,约翰 是 聪明 的 

在 一 个 辩论 中 ,前提 是 支持 结论 的 证 据 。 前 提 (premise) 也 称 为 前 件 (antecedent), W (conclu- 
sion) 也 称 为 后 件 (consequent)。 演 绎 逻辑 的 基本 特征 是 正确 的 结论 必须 基于 正确 的 前 提 。 习 惯 上 天 一 
条 线 来 分 开 前 提 和 结论 ， 如 上 所 示 ， 所 以 不 必 清 晰 地 标 出 前 提 和 结论 。 

以 上 辩论 可 以 更 简单 地 写成 

任何 一 个 能 编程 的 人 都 是 聪明 的 

ASR RE 

… 约 得 是 聪明 的 
这 里 3 个 点 ，.…. 意 思 是 “所 以 ”。 

让 我 们 现在 更 仔细 地 研究 一 下 三 段 式 逻 辑 。 三 段 论 的 主要 好 处 在 于 它 是 一 个 简单 、 易 理解 的 逻辑 
分 支 且 能 被 完全 地 证 明 。 而 且 ， 三 段 论 是 很 常用 的 ， 因 为 它 能 用 “IF…THEN” 的 规则 来 表达 。 例 如 ， 
前 面 的 三 段 论 可 改 述 成 : 

TE 任何 一 个 能 编程 的 人 都 是 聪明 的 并 且 约 翰 能 编程 

THEN 约翰 是 聪明 的 
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一 般 ， 三 段 论 是 一 个 有 两 个 前 提 和 一 个 结论 的 有 效 演绎 辩论 。 经 典 的 三 段 论 是 一 种 特殊 的 范畴 三 
段 论 (categorical syllogism)。 前 提 和 结论 被 定义 为 表 3.2 范畴 语句 





下 列 4 种 形式 的 范畴 语句 ， 如 表 3.2 BRR. 一 一 一 一 一 一 
注意 在 肖 辑 里， 模式 一 词 指定 了 语句 的 地 加 形 “一 一 

式 。 这 也 说 明了 模式 一 词 的 另外 一 种 用 法 ， 这 种 用 ren 

法 不 同 于 在 第 2 章 讨论 的 在 人 工 智能 中 的 用 法 。 在 ESEP RARE 

、 ai A Ht 5 ~ 

运 辑 里 ， 模 式 一 词 用 于 指出 辩论 的 基本 形式 。 模 式 O 有 好 5 不 是 MIRE 


也 可 以 指定 整个 三 段 论 的 逻辑 形式 ， 如 : 

所 有 M 是 P 

所 有 S 是 M 

.所 有 S 是 P 

结论 的 主语 S， 称 为 次 要 项 (mino term)， 而 结论 的 谓语 P， 称 为 主要 项 (major term)。 包 含 主 要 
项 的 前 提 称 为 大 前 提 (major premise) ， 包 含 次 要 项 的 前 提 称 为 小 前 提 (minor premise)。 例 如 : 

KATHE: PA MÈ P 

小 前 提 : 所 有 S 是 M 

结论 :所 有 SEP 
是 一 个 具有 标准 形式 (standard fom) 的 三 段 论 ， 它 已 标明 大 、 小 前 提 。 主 语 (subject) 是 被 描述 的 对 
象 ， 谓 词 (predicate) 描述 了 主语 的 某 些 属性 。 例 如 ， 在 以 下 语句 中 : 

所 有 微机 都 是 计算 机 
主语 是 “微机 ”， 谓语 是 “计算 机 ”。 在 下 列 语句 中 : 

有 1Gbyte 的 微机 是 有 大 量 内 存 的 计算 机 
主语 是 “有 1Gbyte 的 微机 ”"， 谓 语 是 “有 大 量 内 存 的 计算 机 ”。 

从 远古 时 代 起 范畴 语句 的 形式 就 已 用 字母 A、E、I、O 来 标识 。A 和 I 表示 肯定 ， 它们 来 自 拉丁 文 
“affirmo”( 我 肯定 ) 的 最 开头 两 个 元 音字 母 ; 而 下 和 OO 来自“nego”( 我 否定 )。A 和 1 形式 被 认为 是 本 
质 上 肯定 的 (affirmative in quality) ， 因 为 它们 确认 主语 包含 在 谓语 所 在 的 类 中 。 下 和 O 形式 是 本 质 上 
BER (negative in quality) ， 因 为 主语 不 包含 在 谓语 所 在 的 类 中 。 

动词 is 称 为 连 系 词 (copula)， 它 来 自 拉丁 文 ， 原意 是 “连接 ”"。 连 系 词 连接 语句 的 两 部 分 。 在 标准 
的 范畴 三 段 论 中 , 连 系 词 是 动词 “是 ”(to be) 的 现在 时 形式 。 因 此 另外 的 一 种 形式 是 : 

所 有 的 S 是 (are)P 

三 段 论 的 第 三 项 M， 称 为 中 间 项 (middle temmn) ， 是 两 个 前 提 所 共有 的 。 中 间 项 是 必须 有 的 ， 因 为 
在 一 个 三 段 论 的 定义 中 ,结论 不 能 单独 从 其 中 一 个 前 提 推 出 。 所 以 辩论 : 

所 有 A 是 B 

所 有 B 是 Cc 

< FA AEB 
不 是 有 效 的 三 段 论 ， 因 为 它 只 根据 第 -- 前 提 推 出 。 

E (quantity) 或 量词 (quantifier) 描述 类 所 包含 的 部 分 。 量 词 “ 所 有 ”和 “没有 ”是 全 称 的 (uni- 
versal) ， 因 为 它们 指示 了 整个 类 别 。 量 词 “ 一 些 ” 是 特 指 的 (particular)， 因 为 它 只 指示 了 类 的 一 部 分 。 

三 段 论 的 语 态 (mood) 由 3 个 分 别 代 表 了 大 前 提 、 小 前 提 和 结论 形式 的 字母 表示 。 例 如 ， 三 段 论 : 

BA MiP 


所 有 S 是 M 
… 所 有 S 是 P 
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是 AAA 语 态 。 
排列 S、P、M 三 项 有 4 种 可 能 的 模式 ， 如 表 3.3 所 示 。 每 种 模式 称 为 一 种 型 (figure)， 型 的 编号 
指出 了 它 的 类 型 。 因 此 前 一 例子 可 完整 地 表示 为 表 3.3 范畴 语句 的 形式 


AAA-1 型 三 段 论 。 一 个 辩论 具有 三 段 论 的 形式 并 
不 意味 它 是 有 效 的 。 考 虑 一 个 AEE-1 的 三 段 论 形 
式 : 

所 有 M 是 P 

没有 S 是 M 

FRA SHEP 
它 不 是 有 效 的 三 段 论 ， 正 如 从 以 下 例子 看 到 的 : 


所 有 微机 是 计算 机 

没有 大 型 主机 是 微机 

… 没 有 大 型 主机 是 计算 机 

我 们 可 以 不 必 费 神 地 去 想 例子 来 证 明 三 段 论 辩论 的 有 效 性 ， 现 在 已 有 判定 过 程 (decision proce- 
dure) 来 进行 这 方面 的 工作 。 判 定 过 程 是 一 种 证 明 有 效 性 的 方法 ， 也 是 一 种 判定 有 效 性 的 可 自动 通用 
机 器 算法 。 虽 然 已 有 用 于 三 段 论 逻辑 和 命题 逻辑 的 判定 过 程 ， 但 Church 在 1936 年 证 明了 没有 可 用 于 
谓词 逻辑 的 判定 过 程 。 人 们 必须 应 用 创造 力 来 进行 证 明 。 在 20 世纪 70 年 代 ， 如 自动 数学 机 和 Doug 
Lenat 的 Eurisko 等 程序 重新 发 现 了 哥 德 巴赫 猜想 和 惟一 分 解 定理 理论 的 数学 证 明 。 只 是 数学 期 刊 、 图 
书馆 期 刊 和 杂志 都 不 大 报道 由 计算 机 完成 的 创造 性 工作 ， 定 理 证 明 等 。 

命题 的 判定 过 程 仅仅 是 构造 一 个 真 值 表 并 检查 它 是 否 为 重 言 式 。 三 段 论 的 判定 过 程 可 以 通过 使 用 
文 氏 图 来 完成 ， 图 中 用 3 个 有 重 释 部 分 的 圆圈 代表 S、P 和 M， 如 图 3.15 (a) 所 示 。 对 于 三 段 论 形式 
AEE-1 

所 有 M 是 P 

WH SEM 

WR SHEP 
在 图 3.15 (b) 中 说 明了 其 大 前 提 。M 的 画 线 部 分 表明 在 这 部 分 里 没有 元 素 。 在 (c) 中 ， 小 前 提 表 示 
成 在 画 线 部 分 没有 任何 元 素 。 由 (c) 可 见 ，AEE-1 的 结论 是 错误 的 ， 因 为 有 一 些 S 在 了 中 。 


S P 


1 型 2 型 3 型 4 型 
大 前 提 ”MP P M MP P M 
小 前 提 SM SM MS MS 





M 
(a) 文 氏 图 





图 3.15 三 段 论 AEE-1 的 判定 过 程 


作为 另外 一 个 例子 ， 下 面 的 EAE-1 是 有 效 的 ， 如 图 3.16 (c) 所 示 。 


WA Md P 
所 有 S 是 X 
… 没 有 S 是 P 


具有 量词 “一 些 ” 的 文 氏 图 比较 难 画 。 根 据 布尔 的 观点 ， 在 A 和 下 语句 里 可 以 没有 成 员 ， 于 是 画 
范畴 三 段 论 的 基本 规则 是 : 
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S P S P $ P 
GA Ca 
M M M 
(a) 文 氏 图 (>) 应 用 大 前 提 后 © 应 用 小 前 提 后 
图 3.16 三 段 论 EAE-1 的 判定 过 程 
1. 如 果 类 是 空 的 ， 它 要 加 上 阴影 。 
2. 全 称 语句 A 入， 要 画 在 特 指 语句 之 前 。 
3. 如 果 类 有 至 少 一 个 成 员 ， 打 上 标记 * 。 
4 
5 





. 如 果 语 句 没有 指明 对 象 位 于 两 个 相 邻 类 别 中 的 哪 一 个 ， 则 在 两 个 类 间 的 线 上 打上 * 。 
. 如 果 一 个 区 域 已 打上 阴影 ， 就 不 能 再 打上 * 。 
例如 ， 


人 





Pr 
属于 IAI-4 类 : 
有 些 P 是 M 


所 有 M 是 S s P 

H EN 
根据 文 氏 图 的 规则 2 和 1， 我 们 从 小 前 提 的 全 称 语句 开始 ， 对 其 9 
加 上 阴影 ， 如 图 3.17 (a) 所 示 。 下 一 步 ， 根 据 规则 3， 特 指 的 Ey 





大 前 提要 打上 * ， 如 图 3.17 (b) 所 示 。 由 于 结论 “有 些 便携 的 Mps RS-A 
(东西 ) 是 计算 机 ”显示 在 图 里 ， 所 以 辩论 IAL4 是 一 个 有 效 的 。 “ i 
三 段 论 。 图 3.17 IAI-4 型 的 三 段 论 
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虽然 文 氏 图 可 作为 三 段 论 的 一 个 判定 过 程 ， 但 对 于 更 复杂 的 辩论 ， 使 用 文 氏 图 就 不 方便 了 ， 因 为 
辩论 越 复杂 文 氏 图 就 越 难 读 。 然 而 ， 对 于 三 段 论 有 一 个 更 基本 的 问题 ， 因为 它们 只 代表 了 逻辑 语句 中 
的 一 小 部 分 。 特 别 地 ， 范 畴 三 段 论 只 代表 A、E、I、O 形 式 的 范畴 语句 。 

命题 逻辑 提供 了 另 一 种 描述 辩论 的 方法 。 事 实 上 ， 我 们 时 常 在 没有 意识 的 情况 下 使 用 了 命题 逻辑 。 
例如 ， 考 虑 下 列 的 命题 辩论 : 

如 果 有 电源 ,计算 机 将 工作 

有 电源 

… 计 算 机 将 工作 
这 一 辩论 可 以 通过 用 字母 代表 命题 的 形式 表达 如 下 : 

A = 有 电源 

B= 计算 机 将 工作 
这 样 辩论 就 可 以 写成 

ASB 


A 
zB 








R 
x 
we 
+ 





这 样 的 辩论 经 常 都 会 出 现 。 表 示 这 类 辩论 的 通用 模式 是 : 





这 里 p 和 q 是 表示 任 一 语句 的 逻辑 变量 。 在 命题 逻辑 中 使 用 逻辑 变量 可 以 表示 比 4 种 三 段 论 的 形式 A、 
E、I、O 〇 更 复杂 的 语句 类 型 。 这 种 命题 形式 的 推理 模式 有 许多 不 同 的 名 字 : 直接 推理 (direct reason- 
ing), BAH (modus ponens) ， 分 离 法 则 (law of detachment)， 以 及 假定 前 件 推理 (assuming the an- 
tecedent) (Lakoff 00). 

注意 这 个 例子 也 可 以 用 三 段 论 的 形式 来 表示 : 

所 有 有 电源 的 计算 机 将 工作 

这 台 计 算 机 

… 这 台 计 算 机 将 工作 

这 表明 假 言 推理 实际 上 是 三 段 论 逻辑 的 一 个 特殊 情形 。 假 言 推理 十 分 重要 ， 因 为 它 是 基于 规则 的 
专家 系统 的 基础 。 

然而 ， 基 于 规则 的 系统 并 不 仅仅 依靠 逻辑 。 因 为 人 们 不 只 是 使 用 逻辑 推理 来 解决 问题 。 在 现实 世 
界 中 可 能 有 几 条 竞争 规则 ， 而 不 仅仅 是 三 段 论 中 的 单一 规则 。 专 家 系统 的 规则 引擎 必须 决定 哪 一 个 规 
则 是 合适 的 ， 就 如 同一 个 人 必须 决定 “是 吃 最 后 一 块 糖果 满足 欲望 ， 还 是 为 了 保持 苗条 而 不 吃 ?” 

用 C 语 言 编写 一 系列 规则 并 且 得 到 专家 系统 工具 的 基本 功能 并 不 足够 ， 尽 管 最 简单 的 应 用 也 必须 
这 么 做 (http: /Avww.ddj.com/documents/s = 9064/ddj0301aie001/0301aie001.htm)。 专 家 系统 的 真正 威 
力 体现 在 系统 包括 成 千 上 万 条 规则 并 且 其 中 含有 冲突 的 时 候 。Rete 模式 匹配 算法 是 一 种 最 强大 且 有 效 
的 解决 规则 冲突 问题 的 算法 之 一 ， 也 是 CLIPS 模式 匹配 的 基础 (http: //www.ddj.com/documents/s = 
9064 /ddj0212ai002 0212aie002. htm). 

合 命题 p>q 对 应 于 规则 ， 而 p 对 应 于 匹配 规则 前 件 的 模式 。 然 而 ， 正 如 在 第 2 章 中 讨论 的 ， 条 

件 语句 p>q 并 不 完全 等 价 于 一 个 规则 。 因 为 条 件 语句 是 由 真 值 表 定 义 的 一 个 逻辑 定义 ， 而 这 个 条 件 语 
句 有 很 多 可 能 的 定义 。 

通常 我 们 会 遵从 常规 的 逻辑 理论 用 大 写字 母 如 A、B、C… 来 表示 诸如 “有 电源 ”的 命题 常量 。 用 
小 写字 母 如 p、q、r… 表 示 逻 辑 变量 ， 这 些 逻 辑 变 量 可 代表 不 同 的 命题 常量 。 注 意 这 一 习惯 与 PRO- 
LOG 相反 ，PROLOG 用 大 写字 母 代表 变量 。 

假 言 推理 模式 也 可 以 使 用 不 同名 字 的 逻辑 变量 而 写作 : 


r 
a S 


但 模式 的 含义 仍然 相间 。 

也 可 用 另 一 表示 法 : 
这 里 逗 导 用 于 分 开 两 个 前 提 ， 分 号 表示 前 提 的 结束 。 尽 管 我 们 目前 只 讨论 有 两 个 前 提 的 辩论 ， 但 辩论 
的 更 普遍 形式 是: 

P:, Po, ... Prep oC 
这 里 大 写字 母 P 表示 如 r, r>s 的 前 提 ，C 表示 结论 。 注 意 ， 这 与 第 2 章 中 讨论 的 PROLOG 的 目标 满足 
语句 相似 : 

P it~ Bi, Dz, ... Pye 
如 果 所 有 子 目标 py pr, ，. . .pn 都 满足 ， 则 目标 p 就 满足 。 一 个 产生 式 规则 的 类 似 辩论 可 以 写成 如 下 的 
一 般 形式 : 


Cr aA C2 A... OSA 
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表示 如 果 一 个 规则 的 每 个 条 件 C; 都 满足 ， 那 么 这 个 规则 的 行为 A 就 会 执行 。 如 前 讨论 ， 以 上 形式 的 逻 
辑 语句 并 不 严格 等 价 于 一 个 规则 ， 因 为 条 件 语句 的 逻辑 定义 与 产生 式 规则 不 同 。 然 而 ， 在 考察 规则 时 ， 
这 个 逻辑 形式 是 一 个 有 用 的 直觉 帮助 。 

与 通常 的 人 和 V 相 比 ， 逻 辑 运 算 符 “与 ”和 “或 ”的 记 法 在 PROLOG 里 有 不 同 的 形式 。 在 PRO- 
LOG 中 子 目标 间 的 逗号 表示 合 取 符 人 ， 而 分 号 表示 析 取 符 V 。 例 如 ， 

P :~ Pr; Pz. 
表示 如 果 pi 或 p 满足， 那么 p 就 满足 。 合 取 符 和 析 取 符 可 以 混合 使 用 。 例 如 ， 


P i- Pi, Pz? BPs, Pa. 


与 以 下 两 个 PROLOG 语句 是 相同 的 。 
P i= Pi, Pz. 
P i- Ps, Pe. 


RE PROLOG 有 具有 强大 的 内 置 推理 机 制 ， 但 以 这 种 方式 创建 的 规则 并 不 总 是 符合 习惯 。 不 过 可 使 用 
PROLOG 来 执行 规则 ， 以 便 知 识 表 达 和 推理 策略 可 以 协调 起 来 ， 例 如 一 个 自动 化 小 儿科 办 公 系 统 
(www.visualdatallc.com) ， 在 (Merritt 04) 中 有 更 详细 的 介绍 。 

一 般 地 ， 如 果 前 提 和 结论 全 部 是 模式 ， 那 么 辩论 : 

Pi, Po, ... Pa iC 
是 一 个 形式 有 效 的 演绎 辩论 当 且 仅 当 

Pi A Po A... Py OC 
是 一 个 重 言 式 。 例 如 ， 

(p aq) 一 pP 


是 一 个 重 言 式 ， 因 为 它 对 p 和 q 的 任何 值 
点 


ne 





工 或 F， 都 是 真 的 。 你 可 以 通过 构造 真 值 表 来 证 明 这 一 


假 言 推理 

pa 

RR 

`q 
是 有 效 的 因为 它 能 表示 成 一 个 重 言 式 : 

(P94 Ap ga 
注意 我 们 假定 箭头 的 优先 级 比 合 取 符 和 析 取 符 低 。 这 样 就 不 必 另 加 括号 而 写成 ， 

{((pP 9 Ap) 9a 

假 言 推理 的 真 值 表 如 表 3.4 所 示 。 它 是 一 个 重 言 式 ， 因 为 无 论 前 提 是 什么 值 ， 位 于 最 右 一 列 的 值 
都 是 真 的 。 注 意 在 第 3、4、5 列 中 ， 真 值 写 在 某 一 个 运算 符 例如 一 和 信之 下 ， 这 些 运 算 符 被 称 为 主要 
连接 符 (main connective) 因为 它们 连接 了 一 个 复合 命题 的 两 个 主要 部 分 。 


表 3.4 假 言 推理 的 真 值 表 





p q p>q (pq) Ap (pq) 人 pq 
工 T T T T 
T F F F T 
F T T F T 
F F T F T 


BRP EASHCMAKRATN, HERERARERNS—T. TRE, NER 
数 ， 因 此 随 着 前 提 数 的 增长 行 数 迅速 地 增长 。 例 如 ，5 个 前 提 将 需要 检查 32 行 ， 而 10 个 前 提 需 要 检查 
1024 行 。 一 个 判定 有 效 辩论 的 较 短 方法 是 只 考虑 真 值 表 里 那些 前 提 全 为 真 的 行 。 有 效 辩 论 的 等 价 定义 
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是 ,辩论 是 有 效 的 当 且 仅 当 结论 对 于 这 样 的 每 一 行 都 是 真 的 。 即 ， 前 提 重 言 地 蕴含 着 结论 。 对 假 言 推 
理 来 说 ， 前 提 p>q 和 p 只 在 第 一 行 同 时 取 真 ， 而 结论 在 同一 行 也 为 真 。 因 此 ， 假 言 推 理 是 有 效 的 辩 
论 。 如 果 存在 一 行 ， 其 前 提 全 是 真 的 而 结论 为 假 ， 那 么 辩论 是 无 效 的 。 
表达 假 言 推理 的 真 值 表 的 较 短 方法 如 表 3.5 所 示 ， 所 有 行 都 清晰 地 表示 出 来 。 实 际 上 ， 只 有 那些 
前 提 为 真 的 行 ， 如 第 一 行 ， 是 需要 考虑 的 。 
表 3.5 假 言 推理 的 短 式 真 值 表 





前 OR 结 论 
P q pq P q 
T T T T T 
T F F T F 
F T T F T 
F F T F F 





假 言 推理 的 真 值 表 说 明 它 是 有 效 的 ， 因 为 第 一 行 有 真 的 前 提 和 真 的 结论 ， 并 且 没 有 一 行 有 真 的 前 
提 和 假 的 结论 。 
辩论 有 可 能 是 欺骗 性 的 。 为 了 说 明 这 点 ， 首 先 考 虑 下 例 有 效 的 假 言 推理 : 


如 果 没 有 错误 ,那么 程序 可 编译 
没有 错误 
… 程 序 可 编译 
把 这 和 以 下 与 假 言 推理 有 几 分 相似 的 辩论 相 比较 : 


如 果 没 有 错误 ,那么 程序 可 编译 
程序 可 编译 
… 没 有 错误 
这 是 不 是 一 个 有 效 的 辩论 呢 ? 这 类 辩论 的 模式 是 ; 


pwd 
q 
“ P 


它 的 短 式 真 值 表 如 表 3.6 所 示 。 





表 3.6 pq, q; -p HARRER 





前 提 结 £ 
p q pq q p 
T T T T T 
T F F F T 
F T T T F 
F F T F F 


注意 该 辩论 不 是 有 效 的 。 虽 然 第 一 行 表明 如 果 所 有 前 提 为 真 ， 那 么 结论 为 真 ， 但 第 三 行 却 表明 如 
果 所 有 前 提 为 真 ， 而 结论 为 假 。 因 此 该 辩论 不 符合 有 效 辩 论 的 充 要 条 件 。 虽 然 许 多 程序 员 希 望 这 样 的 
辩论 是 真 的， 但 逻辑 (和 经 验 ) 证 明 它 是 廖 论 (falacy)， 或 者 说 是 无 效 的 辩论 。 这 一 特别 的 廖 误 辩论 
称 为 逆 雇 论 (fallacy of the converse) 。 与 之 相反 的 定义 在 表 3.9 中 。 

作为 另 一 个 例子 ， 辩 论 模式 : 

p>a 


~ 
~ ~p 
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因为 表 3.7 表示 结论 是 真 的 只 有 当前 提 都 是 真 的 ， 所 以 是 有 效 辩论 。 
表 3.7 Paq, ~q; …~p 的 短 式 真 值 表 





前 提 结 论 
p q pq ~q 一 P 
T T T F F 
T F F T F 
F T T F T 
F F T T T 


这 一 特别 的 模式 有 许多 不 同 的 名 字 : 间接 推理 (indirect reasoning)， 拒 取 式 (modus tollens), HBB 


则 Caw of contraposition) e 


假 言 推理 和 拒 取 式 是 推理 规则 (rules of inference)， 有 时 也 称 作 推理 法 则 (laws of inference)。 表 


3.8 给 出 了 一 些 推理 法 则 。 


表 3.8 命题 逻辑 的 一 些 推理 规则 





推理 法 则 模 式 
1. 分 离 法 则 pq 
(Law of Detachment) D 
a q 
2. 逆 否 命题 法 则 Pr>q 
(Law of the Contrapositive) 一 q9> 一 p 
3. 拒 取 法 则 Pd 
(Law of Modus Tollens) =q 
Sp 
4. 链 规则 (三 段 论 法 则 ) pq 
(Chain Rule, Law of the Syllogism) gor 
“per 
5. 析 取 推理 法 则 pVq pVq 
(Law of Disjunctive Inference) 一 D =~q _ 
-q np 
6. 双重 否定 法 则 一 (~p) _ 
(Law of the Double Negation) wp 
7. 德 :摩根 法 则 (定律) = (pAg) ~ (Vg 
(De Morgan’ s Law) ~pV~q a ~PA~ 
8. 简化 法 则 pAg ~ (pVa) 
(Law of Simplification) p -q 
9. 合 取 法 则 p 
(Law of Conjunction) gq 
“pAgq 
10. 析 取 附加 法 则 p 
(Law of Disjunctive Addition) "pVgq 
11. 合 取 辩论 法 则 ~ (pAq) ~ (pAq) 
(Law of Conjunctive Argument) 
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拉丁 文 modus 意思 是 “方法 ”， 而 ponere 意思 是 “肯定 ”，tollere RBH “AH”. Modus 规则 的 真 
实名 字 和 它们 的 字面 含义 如 表 3.9 所 示 。Modus ponens 和 modus tollens 是 前 两 种 类 型 的 简写 。 推 理 规 
则 的 编号 与 表 3.8 里 的 相对 应 。 

表 3.9 Modus 规则 的 含义 





推理 规则 的 编号 名 K 含义 “通过 ”来 
1 modus ponendo ponens He, Fe 
3 modus tollendo tollens Se, BE 
5 modus tollendo ponens BE, HE 
11 modus ponendo tollens BE, BE 
推理 规则 可 应 用 于 多 于 两 个 前 提 的 辩论 。 例 如 ， 考 虑 下 面 的 辩论 : 
芯片 价格 上 升 仅 当日 元 上 涨 。 


日 元 上 涨 仅 当 美 元 下 跌 , 并 且 如 果 美 元 下 跌 则 日 元 上 涨 。 
因为 芯片 价格 已 经 上 升 ,所 以 美元 一 定 已 经 下 跌 。 


定义 命题 如 下 : 

C= 芯片 价格 上 升 

Y= 日 元 上 升 

D= 美元 下 跌 

回忆 第 2.12 节 ， 条 件 句 的 含义 之 一 是 “p， 仅 当 q"。 像 “芯片 价格 上 升 仅 当 日 元 上 涨 ” 这 样 的 命 
题 就 有 这 样 的 含义 ， 所 以 可 以 表示 成 C~Y。 整 个 辩论 具有 如 下 形式 : 


CoY 
(Y > D} a (D > Y) 

和 

=D 

第 二 个 前 提 有 一 个 有 趣 的 形式 ， 即 能 用 条 件 句 的 变形 来 进行 推导 。 条 件 句 p~q 有 几 个 变形 ， 逆 命题 
(converse), BARRA (inverse) Až E f (contraposi- 表 3.10 条 件 句 及 其 变形 


tie)。 为 了 完整 起 见 ， 这 些 变形 与 条 件 句 一 起 列 在 条 件 名 pq 
# 3.10 中 。 道 命题 ap 

与 通常 的 情况 一 致 ， 否 定 运 算 符 比 其 他 逻辑 运算 符 的 否 命题 ~p>~q 
优先 级 更 高 ， 所 以 一 p 和 一 q 两 边 不 用 括号 。 Bee ~q>~p 


WRAY pra HE NM q>p 都 是 真 的 话 ， 那 么 p 
Ag 是 等 价 的 。 即 pgp MARERA pog 及 其 等 价 式 pHq 是 相等 的 。 也 就 是 说 ,，p 和 q 总 是 
取 相同 的 真 值 。 如 果 p 真 那么 gq 真 ， 如 果 p 假 那么 gq 也 假 。 这 样 前 面 的 辩论 就 变 为 : 


(1) Cc > Y 

(2) Y=D 

(3) e 
~ D 


这 里 用 数字 来 标识 前 提 。 由 于 从 (2) 得 出 Y ADERS, RIRTUAADRE (1) 里 的 Y 而 得 出 


(4) C 一 D 
这 里 (4) 是 在 (1) 和 (2) 的 基础 上 得 出 的 推论 。 现 在 前 提 (3) 和 (4) 及 结论 是 : 
(4) C 一 D 


(3) ¢ _ 
~D 


这 是 一 个 假 言 推理 的 模式 。 因 此 该 辩论 是 有 效 的 。 
用 一 个 等 价 的 变量 来 代替 另 一 个 变量 的 推理 规则 称 作 代 换 规则 (rule of substitution), BA HRH 
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则 和 代 换 规则 是 演绎 逻辑 的 两 个 基本 规则 。 
形式 逻辑 证 明 的 书写 通常 都 要 给 前 提 、 结 论 和 推论 加 上 编号 ， 如 下 所 示 : 


Cœ Y 
{Y > D) a (D > Y) 


Hum WH bP 


1, 2, 37 RRMA, 4, 5, 行 是 得 出 的 推论 。 在 右边 列 出 了 推理 中 使 用 的 行 号 和 推理 规 
则 。 
3.7 命题 逻辑 的 局 限 性 
考察 一 个 我 们 熟悉 的 经 典 辩论 : 
所 有 的 人 (men) 都 会 死 
苏 格 拉 底 是 人 (man) 
.… 苏 格拉 底 会 死 
我 们 知道 这 是 一 个 有 效 的 辩论 ， 因 为 它 是 一 个 有 效 的 三 段 论 。 能 不 能 用 命题 逻辑 来 证 明 它 的 有 效 
性 呢 ? 要 回答 这 个 问题 ， 让 我 们 首先 把 这 个 辩论 写成 模式 : 
S p= 所 有 的 人 会 死 
q= 苏 格拉 底 是 人 
r= 苏 格 拉 底 会 死 
那么 辩论 的 模式 是 : 
P 


gq 
oor 


注意 在 前 提 和 结论 中 都 没有 逻辑 连接 词 ， 所 以 每 个 前 提 和 结论 都 必须 有 一 个 不 同 的 逻辑 变量 。 另 外 ， 
命题 逻辑 没有 提供 量词 ， 所 以 无 法 表达 第 一 个 前 提 中 的 量词 “所 有 ”。 用 命题 逻辑 对 这 个 辩论 的 惟一 表 
达 方 式 就 是 以 上 由 三 个 独立 变量 组 成 的 模式 。 

为 了 判断 这 是 否 为 一 个 有 效 的 辩论 ， 考 察 这 三 个 表 3.11 模式 p，q; …r 的 真 值 表 
独立 变量 分 别 取 工 或 下 的 所 有 组 合 。 由 此 组 成 的 真 值 
表 如 表 3.11 所 示 。 这 个 表 的 第 二 行 说 明了 辩论 是 无 效 
的 ， 因 为 前 提 都 为 真 但 结论 为 假 。 

辩论 的 无 效 不 应 理解 为 结论 不 正确 。 任 何人 都 知 
道 这 是 一 个 正确 的 辩论 。 无 效 性 只 表明 这 个 辩论 不 能 
用 命题 软 辑 来 证 明 。 如 果 我 们 考察 了 前 提 的 内 部 结构 
的 话 ， 这 个 辩论 就 能 证 明 是 有 效 的 。 例 如 ， 我 们 可 以 
对 “所 有 ”赋予 某 种 意义 ， 还 要 把 “men” 认 定 为 
“man” 的 复数 形式 。 但 是 ， 三 段 论 和 命题 演算 不 允许 
人 们 考察 命题 的 内 部 结构 。 可 用 谓词 逻辑 克服 这 个 局 
限 ， 这 个 辩论 在 谓词 逻辑 下 是 一 个 有 效 的 辩论 。 事 实 上 ， 所 有 三 段 论 逻 辑 都 是 一 阶 谓词 逻辑 的 一 个 有 
效 子 集 ， 并 且 可 以 在 一 阶 谓词 逻辑 下 得 到 证 明 。 

这 个 命题 的 唯一 有 效 三 段 论 形式 是 : 

如 果 苏 格拉 底 是 人 ,那么 苏 格 拉 底 会 死 

苏 格 拉 底 是 人 

… 苏 格拉 底 会 死 


4 





eo css > Rie > as ae I ji 
可 可 站 中 ym Alo 
ic M Sie > DS DO Tt Als 





$ 
be 
Wh 
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S, 

p= 苏 格 拉 底 是 人 

a= 苏 格 拉 底 会 死 
这 个 辩论 变 成 : 

prog 

也 

`q 
这 是 一 个 假 言 推理 的 有 效 三 段 论 形式 。 

作为 男 一 个 例子 ， 考 虑 下 面 的 经 典 辩论 : 

所 有 马 是 动物 

-一 匹 马 的 头 是 一 只 动物 的 头 
我 们 知道 这 个 辩论 是 正确 的 ， 但 它 不 能 由 命题 逻辑 证 明 ， 而 可 以 由 谓词 逻辑 证 明 (见习 题 3.12)。 
3.8 一 阶 谓词 逻辑 

三 段 论 逻辑 可 以 完全 由 谓词 逻辑 来 表达 。 表 3.12 列 出 了 4 种 范畴 语句 以 及 它们 在 谓词 逻辑 中 的 表 
达 。 

表 3.12 使 用 谓词 逻辑 对 4 种 范畴 三 段 论 的 表达 





类 型 模 A 谓词 表达 
A 所 有 S 是 了 (Vx) (S (x) >P (x)) 
E WA SHEP (Vx) (S (x) ~~P (x)) 
I 有 些 S 是 P (Jx) (S (x) AP (x)) 
O 有 些 S 不 是 P (3x) (S (x) A~P (x)) 


除了 具有 先前 讨论 过 的 推理 规则 外 ， 谓 词 逻辑 还 有 处 理 量词 的 规则 。 
全 称 例 化 规则 (the Rule of Universal Instantiation) 实质 上 说 明了 可 用 个 体 来 替换 全 称 的 变 元 。 例 
如 ， 如 果 $ 是 任意 命题 或 命题 函数 (propositional function): 


(Y x) o(x) 
“ ọla) 


是 一 个 有 效 的 推理 ， 其 中 a 是 一 个 实例 ， 即 ，a 是 一 个 特殊 的 个 体 。x 是 一 个 变量 ， 可 以 取 值 为 任 一 个 
体 。 例 如 ， 这 可 用 于 推导 苏 格 拉 底 是 人 : 
(Y x) Hix) 


“ H(Socrates) 


REH (x) 是 一 个 说 明 x 是 人 的 命题 函数 。 上 式 说 明 对 每 一 个 x，x 是 人 ， 由 此 可 说 明 苏 格 拉 底 是 人 。 
使 用 全 称 例 化 规则 的 其 他 例子 还 有 : 


{Y x) A(x 
^ A(c) 


(Wey) (Bly) v Cib}) 
“ Bla) v C{b) 





(Vx A(x) a (3 x) (Bix) v Ciy)? 加 
Rb) a (3 x) (B(x) v Cly)) = 


在 第 一 个 例子 中 ,实例 c 替换 了 x。 在 第 二 个 例子 ,注意 实例 a 替换 了 y 而 不 是 b， 因 为 b 不 在 量 
词 的 辖 域 (scope) 内 。 也 就 是 说 ， 量 词 如 VY x 只 适用 于 变量 x 与 量词 一 起 使 用 的 变量 ， 如 x 和 y, Æ 
约束 的 《bound)， 而 其 余 则 是 自由 的 (free)。 在 第 三 个 例子 中 ,量词 x 的 辖 域 只 是 A (x)。 即 VY x 不 能 
(HAT dx, dx 的 辖 域 是 B (x) VC (y)。 类 似 这 样 的 量词 嵌 套 使 用 有 如 下 规定 : 当 使 用 一 个 新 的 量 
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词 时 ， 原 来 量词 的 辖 域 就 到 此 结束 ， 即 使 它们 使 用 相同 的 变量 ， 例 如 上 例 中 的 x。 在 如 下 三 段 论 : 


所 有 人 会 死 
苏 格 拉 底 是 人 
… 苏 格拉 底 会 死 
F, $ H= 人 ，M= 会 死 ，s= 苏 格拉 底 ，、 则 其 形式 证 明 可 以 写成 : 


. (V x) (H(x) = M(x)) 


z His) /.. M(s) 

3. H(s) > M(s) 1 全 称 例 化 

4. Mis) 2,3 假 言 推 理 
3.9 逻辑 系统 

一 个 逻辑 系统 是 一 个 由 规则 、 公 理 、 语 句 等 对 象 以 一 致 的 方式 组 织 起 来 的 集合 。 建 立 逻 辑 系统 有 
如 下 几 个 目的 。 


第 一 个 目的 是 规定 辩论 的 形式 。 因 为 逻辑 辩论 从 语义 的 角度 看 是 无 意义 的 ， 所 以 ， 如 果 要 确定 辩 
论 的 有 效 性 ， 就 必须 有 一 个 有 效 的 形式 。 因 此 ， 逻 辑 系统 的 一 个 重要 功能 就 是 确定 辩论 中 所 使 用 的 合 
式 公 式 (well-formed formula, WEA wff) 。 逻 辑 辩论 中 只 能 使 用 wtf。 例 如 ， 在 三 段 论 逻辑 中 ， 

All S is P 
是 一 个 wif, 但 

All 

All is SP 

Is Sall 


就 不 是 wff。 昌 然 字母 的 符号 是 无 意义 的 ， 但 组 成 wff 的 符号 序列 是 有 意义 的 。 

逻辑 系统 的 第 二 个 目的 是 规定 有 效 的 推理 规则 。 第 三 个 目的 是 通过 发 现 新 的 推理 规则 来 扩充 其 自 
身 ， 并 扩充 其 可 以 证 明 的 辩论 的 范围 。 通 过 扩充 辩论 的 范围 ， 新 的 w{f{， 又 称 为 定理 《theorerns) ， 就 可 
以 由 逻辑 辩论 来 证 明 。 

一 旦 软 辑 系统 适当 地 建立 之 后 ， 辩 论 的 有 效 性 就 可 以 由 像 算 术 、 几 何 学 、 微 积分 学 、 物 理学 以 及 
工程 学 等 系统 上 的 计算 一 样 来 确定 。 已 经 建立 了 一 些 如 句子 或 命题 演算 、 谓 词 演算 等 的 逻辑 系统 。 每 
一 个 系统 都 依赖 于 其 公理 (axiom) BRIE (postulate) 的 形式 定义 ， 它们 是 系统 的 基本 定义 。 从 这 些 
定义 出 发 ， 人 们 (有 时 是 计算 机 程序 ， 如 AM) 试图 确定 什么 是 可 以 被 证 明 的 。 在 中 学 里 学 过 欧 几 里 
得 几何 学 的 人 都 会 熟悉 其 公理 和 推导 出 的 几何 定理 。 正 如 几何 定理 可 以 由 几何 公理 推导 出 来 一 样 ， 逻 
辑 定理 也 可 以 由 逻辑 公理 推导 出 来 。 

一 个 公理 只 不 过 是 一 个 不 能 在 系统 中 被 证 明 的 事实 或 断言 (assertion)。 有 时 我 们 承认 某 些 公理 ， 
因为 它们 符合 常识 或 观察 而 显得 有 “意义 ”。 其 他 公理 ,例如 “平行 直线 相交 于 无 穷 远 处 ”， 在 直觉 上 
并 不 显得 有 意义 ， 因 为 它们 看 来 与 欧 几 里 得 的 平行 直线 永 不 相交 的 公理 相 矛 盾 。 然 而 ， 这 个 平行 直线 
相交 于 无 穷 远 处 的 公理 ， 从 纯粹 的 逻辑 观点 来 看 ， 是 和 欧 几 里 得 的 公理 一 样 合理 的 ， 并 且 它 是 一 类 非 
欧 几何 学 的 基础 。 

一 个 形式 系统 要 求 具 有 如 下 的 组 成 : 

1. 一 个 符号 字母 表 。 

2. 一 个 由 有 限 长 的 符号 串 ， 即 wif 组 成 的 集合 。 

3. 公理 ， 即 系统 的 定义 。 

4. 推理 规则 ， 这 些 规则 可 以 使 一 个 wi, A, 成 为 从 其 他 wff 的 有 限 集合 G 推出 的 结论 ， 这 里 G= 
ÍA A, Ani, RE wif 必须 是 公理 或 逻辑 系统 中 的 其 他 定理 。 例 如 ， 一 个 命题 逻辑 系统 可 以 只 使 
用 假 言 推理 来 得 出 新 的 定理 。 
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如 果 辩 论 : 

A:, Ao, ... Ane … A 
是 有 效 的 ， 那么 称 A 是 这 个 形式 逻辑 系统 的 一 个 定理 ， 并 用 符号 上 表示 。 例 如, Tr 上 FA 表示 A 是 wff 集 
合 工 的 一 个 定理 。 以 下 是 表明 A 为 定理 的 一 种 更 清楚 的 证 明 模 式 : 


Ar, Az, o Ay ta 


符号 上 表示 其 后 的 wff 是 一 个 定理 ， 它 不 是 系统 中 的 一 个 符号 ， 而 是 一 个 元 符号 (metasymbol)， 因 为 
它 是 用 于 描述 系统 自身 的 。 一 种 类 似 的 情况 是 计算 机 语言 ， 如 Java。 虽 然 可 以 用 Pascal 的 语法 来 规定 
一 个 程序 ,但 Java 中 没有 用 语法 具体 规定 什么 是 一 个 有 效 的 程序 。 

形式 系统 中 的 推理 规则 明确 地 规定 了 新 的 断言 ， 即 定理 ， 怎 样 从 公理 以 及 先前 得 到 的 定理 中 推 得 。 
一 个 定理 的 例子 是 我 们 关于 苏 格 拉 底 的 三 段 论 ， 它 可 以 用 谓词 逻辑 的 形式 写 为 : 


(Vx) (Hix) > M(x)), H(s) F M(s) 


这 里 HH 是 代表 人 的 谓词 函数 ，M 是 代表 会 死 的 谓词 函数 。 因 为 M (s) 可 以 由 它 左 边 的 公理 推导 
得 出 ， 所 以 它 是 这 些 公理 的 一 个 定理 。 但 是 ， 要 注意 M (Zeus) 不 是 一 个 定理 ， 因 为 Zeus (宙斯 ) 是 
希腊 天 神 ， 不 是 人 ， 也 没有 其 他 方法 来 证 明 M (Zeus). 

如 果 一 个 定理 是 一 个 重 言 式 ， 那 么 工 可 以 是 一 个 空 集 ， 因 为 该 wff 总 是 为 真 ， 而 不 依赖 于 任何 公 
理 或 定理 。 用 符号 表示 一 个 为 重 言 式 的 定理 ， 如 F A。 举 个 例子 :如果 A 二 pV ~p， 那 么 pV 一 p 表示 
pV ~p 是 一 个 为 重 言 式 的 定理 。 注 意 不 论 给 p 赋予 工 或 FF， 定 理 pV~-p 总 是 真 的 。 指 派 一 个 wff 的 真 
值 就 是 对 其 进行 解释 (interpretation)。 一 个 模型 (model) 就 是 当 wif 为 真 时 的 解释 。 例 如 ，p 一 q 的 一 
个 模型 是 p= 工 且 q=T。 如 果 存 在 一 个 解释 使 一 个 wi 为 真 ， 则 称 它 是 相 容 的 (consistent) 或 可 满足 的 
(satisfiable) ;如 果 这 个 wif 在 所 有 解释 中 都 为 假 ， 则 称 为 不 相 容 的 (inconsistent) 或 不 可 满足 的 un- 
satisfiable), pA ~p 就 是 一 个 不 相 容 的 wif. 

一 个 wif 如 果 在 所 有 解释 中 都 为 真 ， 则 它 是 有 效 的 (valid)， 反 之 是 无 效 的 (invalid)。 例 如 ,pV 一 
p 是 一 个 有 效 的 w, M prq 是 一 个 无 效 的 wff， 因 为 当 p=T 工 且 9= 下 时 它 不 为 真 。 如 果 一 个 wff Rit 
证 为 有 效 的 ， 它 就 是 被 证 明了 (proved). ME wif 命题 都 可 以 用 真 值 表 的 方法 来 证 明 ， 由 于 每 个 w 
只 存在 有 限 个 解释 ， 所 以 命题 演算 是 可 判定 的 (decidable)。 然 而 ,谓词 演 算是 不 可 判定 的 ， 因 为 对 所 
有 谓词 演算 的 wff， 不 存在 像 真 值 表 那 样 的 通用 的 证 明 方法 。 

下 面 是 一 个 可 以 证 明 的 有 效 的 谓词 演算 wff 的 例子 : 对 任意 谓词 B， 


G x) B(x) > ~ [(V x) ~ B(x)] 


它 说 明了 如 何 由 全 称 量词 替换 存在 量词 。 这 个 谓词 演算 wff 是 一 个 定理 。 

在 表达 式 上 A 和 F B 之 间 ， 有 一 个 很 大 的 区 别 。A 是 一 个 定理 ， 因 此 可 以 从 公理 出 发 通过 推理 规则 
证 明 。B 是 一 个 wff， 可 能 不 存在 证 明 来 说 明 它 如 何 为 真 。 命 题 逻 辑 是 可 判定 的 而 谓词 逻辑 却 不 是 。 也 
就 是 ， 不 存在 机 械 的 过 程 或 算法 可 以 在 有 限 步 内 找 出 一 个 谓词 逻辑 定理 的 证 明 。 事 实 上 ， 理 论 上 可 以 
证 明 谓词 逻辑 不 存在 判定 过 程 。 但 是 ， 谓 词 逻 辑 的 子 集 ， 比 如 三 段 论 和 命题 逻辑 ， 却 存在 判定 过 程 。 
因此 ,谓词 逻辑 有 时 称 为 是 半 可 判定 和 的 (semidecidable)。 

注意 PROLOG 是 基于 谓词 逻辑 。 在 20 世纪 70 年 代 PROLOG 的 第 一 轮 狂热 中 ， 日 本 宣布 了 他 们 
的 第 五 代 超 级 计算 机 系统 计划 。 该 系统 将 允许 用 自然 语言 输入 和 输出 ， 并 且 能 真正 理解 其 中 的 含义 。 
但 是 ， 当 时 既 没有 足够 的 计算 机 化 常识 知识 ， 又 没有 如 20 世纪 80 年 代 那 样 足够 强大 的 微 处 理 器 提供 
高 精度 的 声音 识别 。 现 在 ，Open.Cyc 系统 既 有 常识 本 体 又 有 高 精度 的 无 需 训 练 的 声音 识别 系统 ， 这 使 
得 成 功 的 机 会 大 大 增加 (尽管 不 是 使 用 PROLOG). 

作为 完全 的 形式 系统 的 一 个 很 简单 的 例子 ,我 们 给 出 以 下 的 定义 : 

符号 字母 表 : AFA 

公理 : 字符 串 “1”( 正 好 与 符号 1 相同 ) 
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推理 规则 : 如 果 任 意 字 符 串 $ 是 定理 ,那么 $ 11 也 是 定理 。 这 个 规则 可 以 写 为 一 个 Post 产生 式 规 
则 ， 
$— $11, 
如 果 $ = 1 那么 这 个 规则 就 给 出 $ 11 = 111, 
如 果 $ = 111, 那 么 根据 这 个 规则 就 有 $ 11 = 11111, 以 此 类 推 就 有 
1,111, 11111, 1111111,... 
这 些 字符 串 就 是 这 个 形式 系统 的 定理 。 
虽然 11111 等 看 起 来 不 像 我 们 习惯 见 到 的 定理 类 型 ， 但 它们 完全 是 有 效 的 逻辑 定理 。 这 些 特殊 定 
理 还 有 一 个 语义 上 的 意义 ， 因 为 它们 都 是 在 一 进 制 (unary number system) 中 用 1 来 描述 的 奇数 。 与 二 
进 制 (binary number system) 只 有 符号 0 和 1 类 似 ， 一 进 制 只 有 单个 符号 1。 一 进 制 和 十 进 制 数字 的 对 
应 关系 为 : 
一 进 制 十 进 制 
1 
11 
111 
1111 
11111 
以 此 类 推 。 
注意 根据 我 们 的 公理 和 推理 规则 ， 字 符 串 11，1111 等 都 不 能 由 我 们 的 形式 系统 来 表达 。 即 是 说 ， 
虽然 11 和 1111 可 由 我 们 的 形式 符号 表 生成 ， 但 它们 不 是 定理 或 wffs， 因 为 它们 不 能 仅仅 使 用 推理 规 
则 和 公理 就 可 证 明 。 这 个 形式 系统 只 能 推导 出 奇数 ， 不 能 推导 出 偶数 。 如 果 要 推导 出 偶数 ， 就 必须 增 
加 一 条 公理 “11”。 
形式 系统 的 另 一 个 特性 是 完备 性 (completeness)。 如 果 每 个 wif 都 可 以 被 证 明 或 反驳 (refuted), 
那么 这 个 公理 集合 就 是 完备 的 (complete)。“ 反 驶 ”一 词 的 意思 是 证 明 某 些 断 言 为 假 。 在 一 个 完备 系统 
中 ,每 个 逻辑 有 效 的 wif 就 是 一 个 定理 。 但 是 ， 谓 词 逻 辑 是 不 可 判定 的 ， 要 得 到 一 个 证 明 就 要 舍 我 们 
的 运气 和 智慧 。 当 然 ， 另 一 个 证 明 的 方法 就 是 写 一 个 可 用 于 得 到 证 明 的 计算 机 程序 ， 并 让 它 不 断 运 行 。 
另 一 个 希望 逻辑 系统 具备 的 特性 是 合理 性 (sound)。 一 个 合理 的 系统 是 指 每 一 个 定理 都 是 一 个 逻 
辑 上 有效 的 wff。 换 句 话 说 ， 一 个 合理 的 系统 不 会 存在 一 个 不 是 它 前 提 的 逻辑 推论 的 结论 。 无 效 的 辩论 
不 会 被 推导 为 有 效 。 
逻辑 有 不 同 的 阶 (order)。 一 阶 (first-order) 语言 规定 量词 可 以 对 对 象 ， 即 变量 进行 操作 ， 如 Vx。 
二 阶 (second-order) 语言 增加 了 新 的 特征 ， 比 如 它 有 两 类 变量 和 量词 。 除 了 具有 序 变量 和 量词 外 ， 二 
阶 逻辑 还 可 以 具有 作用 于 函数 和 谓词 符号 的 量词 。 一 个 二 阶 逻 辑 的 例子 是 等 式 公 理 (equality axiom), 
它 表 示 如 果 两 个 对 象 的 所 有 谓词 都 相等 ， 那 么 这 两 个 对 象 就 相等 。 如 果 P 是 一 个 辩论 中 的 任意 谓词 ， 
那么 
x=y = (Y P) (P(x) © Ply)] 
是 一 个 使 用 二 阶 量词 VP 的 等 式 公理 语句 ， 这 里 YP 作用 于 所 有 谓词 。 
3.10 归结 


Robinson 在 1965 年 引入 了 一 个 十 分 有 效 的 归结 (resolution) 规则 ， 它 常用 于 实现 定理 证 明 的 Ai 
程序 中 。 事 实 上 ， 归 结 是 PROLOG 语言 中 的 主要 推理 规则 。PROLOG 使 用 一 个 通用 的 归结 推理 规则 而 
不 是 许多 不 同 的 适用 性 有 限 的 推理 规则 ， 例 如 假 言 推 理 、 拒 取 、 合 并 、 链 规则 等 。 应 用 归结 使 得 自动 
定理 证 明 器 ， 如 PROLOG 实用 工具 可 以 求解 问题 。 只 需 使 用 一 个 归结 规则 ， 而 不 必 尝 试 不 同 的 推理 规 
则 并 希望 其 中 有 一 个 会 成 功 ， 这 种 方法 极 大 地 缩小 了 搜索 空间 。 


wm e BW N e 
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作为 介绍 归结 的 一 种 方法 ， 让 我 们 首先 考虑 关于 苏 格 拉 底 的 三 段 论 ， 用 PROLOG 表述 如 下 ， 其 中 
用 百 分 号 表示 注释 : 


mortal (X) :- man (X). s 所 有 人 会 死 

man (socrates). % 苏 格 拉 底 是 人 

:- mortal (socrates). % [a] ARE SE? 
yes % PROLOG 回答 是 


PROLOG 使 用 一 种 无 量词 (quantifier-free) 表示 法 。 注 意 全 称 量词 Y 已 隐 含 在 语句 “所 有 人 都 会 死 ”中 。 

PROLOG 是 基于 一 阶 谓 词 逻辑 的 。 但 是 ， 它 也 作 了 许多 扩充 以 便 更 易 应 用 于 程序 设计 中 。 这 些 特 
别 的 程序 设计 特性 违背 了 纯粹 的 谓词 逻辑 ， 故 被 称 为 扩展 逻辑 特性 (extralogical feature)， 包括: 输入 / 
输出 ， 截 断 〈 改 变 搜索 空间 ) 和 断言 /取消 (不 用 任何 逻辑 证 明 地 修改 真 值 )。 

在 应 用 归结 之 前 ，wff 必须 是 一 个 范式 (normal form) 或 标准 形式 。 范 式 有 三 种 主要 类 型 : AME 
式 (conjunctive normal form) 、 子 句 以 及 Hon 子 句 子 集 。 范 式 的 基本 思想 是 用 一 种 只 使 用 A ，V 或 可 能 
包括 一 的 标准 形式 来 表达 wft。 然 后 将 归结 方法 用 于 那些 所 有 其 他 连接 词 和 量词 都 已 删除 的 wff 范式 
上 。 由 于 归结 是 在 析 取 式 对 上 进行 的 操作 ， 并 产生 新 的 析 取 式 ， 进 而 简化 wff， 因 此 归结 前 必须 先 转换 
成 范式 。 

下 面 是 一 个 合 取 范 式 形式 的 wff， 合 取 范 式 是 一 些 文字 (literal) 析 取 式 的 合 取 。 

(Pay PY ..-)AtQavev «wd AL. (21 VY Za ve...) 
其 中 每 一 个 项 如 P;:， 必 须 是 文字 ， 表 示 它 们 不 包含 诸如 条 件 符 、 充 要 条 件 符 、 或 量词 等 逻辑 连接 词 。 
一 个 文字 是 一 个 原子 公式 或 原子 公式 的 非 。 例 如 以 下 的 wff: 

(A v B) A (~B v C) 
就 是 一 个 合 取 范 式 。 括 号 中 的 项 : 


AvB #1 ~Bvc 


是 一 个 子 句 。 

以 后 将 会 看 到 ， 任 何 包 含 命题 逻辑 作为 特例 的 谓词 逐 辑 wff 都 可 以 写成 子 句 。 全 子 名 形式 《clausal 
form) 可 以 表达 任何 谓词 逻辑 公式 ,但 它 对 于 人 来 说 可 能 是 不 自然 的 或 不 可 读 的 。PROLOG 的 语法 是 
Horn 子 句子 集 ， 这 使 得 PROLOG 在 实现 定理 机 器 证 明 时 比 标准 的 谓词 逻辑 表示 法 或 全 子 句 的 形式 更 
容易 和 更 有 效 。 正 如 在 第 1 章 提 到 的 ，PROLOG 只 允许 一 个 头 。 一 个 全 子 名 形式 的 表达 式 通 常 被 写成 
一 种 称 为 Kowalski 子 句 的 特殊 形式 ; 





上 式 解 释 为 如 果 所 有 子 目 标 Al，As ，…，ANK BAA, BAB, B, +, Bh 中 的 一 个 或 更 多 个 也 是 真 
的 。 注 意 在 这 种 表示 法 中 箭头 的 方向 有 时 是 相反 的 。 将 这 个 子 句 写成 标准 的 谓词 表示 法 就 是 : 

A, vA, ... An > Bi VB: .-. Be 
使 用 等 式 


Pp? q=-p vq 


可 以 将 其 表示 为 下 面 的 文字 析 取 式 (disjunctive form): 


A, AA, ... Ax > Bi YB: ... By 
三 ~(R AA; ..- Ay) V (Bi vB ... By) 
=~A, V~A, ... ~Ar V Bi YB ... Bu 


这 里 使 用 了 德 :摩根 定律 : 
~(p Ag) = -~p v~a 
来 简化 最 后 一 个 表达 式 。 
正如 在 第 1 章 中 讨论 的 ，PROLOG 使 用 一 种 受 限 的 子 名 形式， 即 Hon 子 句 ， 这 种 子 句 只 允许 一 





推理 方法 95 





PK: 

A.,Az,... Ax 2 B 
用 PROLOG 语法 可 以 写 为 : 

B -RAR 

直接 证 明定 理 存在 一 个 问题 ， 即 只 用 系统 的 推理 规则 和 公理 进行 推理 会 很 困难 。 推 导 一 个 定理 可 
能 要 花 很 长 时 间 ， 或 者 我 们 根本 不 够 聪明 而 无 法 推导 。 证 明 一 个 定理 为 真 ， 常 常 使 用 经 典 的 反 证 法 
(reductio ad absurdum) 或 矛盾 法 。 用 这 个 方法 我 们 试图 证 明 wff 的 否定 是 一 个 定理 。 如 果 得 出 矛盾 的 
结果 ， 则 原来 的 wff 是 一 个 定理 。 

归结 的 基本 目标 是 从 两 个 称 为 根子 句 (parent clause) 的 子 句 推导 出 一 个 新 的 子 句 ， 即 消解 式 (re- 
solvent) 。 消 解 式 比 它 的 根 有 较 少 的 项 。 通 过 归结 过 程 的 不 断 进 行 ， 最 终 会 得 出 矛盾 ， 或 者 因为 不 再 有 
进展 而 终止 。 在 下 面 的 辩论 中 给 出 了 一 个 简单 的 归结 例子 。 

AvB 


A v ~B 
~A 


要 想 知道 是 如 何 得 出 结论 的 ， 可 以 将 前 提 写 成 ， 

{A v B) AI(AYV ~B) 
利用 分 配 公理 : 

pv laar =(p vq) a (pvr) 
可 得 : 

(A v B) a (A v ~B) SAV (BA ~B) BA 

这 里 最 后 一 步 的 推导 是 因为 (BA~B) 总 是 为 假 。 它 是 由 排 中 律 (the Law of the Excluded Middle) 
得 出 的 ， 即 某 事 不 能 既 真 又 假 。 在 第 5 章 讨论 的 模糊 逻辑 中 ， 我 们 将 会 看 到 排 中 律 并 不 成 立 。 另 一 种 
书写 排 中 律 的 方法 是 使 用 表示 空 、 无 或 假 的 项 nil 或 null。 例 如 ，null 指针 在 C 语言 中 表示 不 指向 任何 
地 方 ， 于 是 排 中 律 可 以 表示 为 (BA 一 B) =ni 

上 述 归结 例子 中 表示 了 怎样 将 根子 句 (AVB) 和 (AV ~B) 简化 为 消解 式 A。 表 3.13 总 结 了 子 
名 表示 法 中 一 些 基 本 的 根子 句 和 它们 的 消解 式 ， 这 里 分 隔 子 句 的 逗号 表示 入 。 

R313 子 句 和 消解 式 








R 子 名 消 解 OK 意 AX 
pq, P q 假 言 推理 
或 ~pVgq, p 
pq, qr p>r 链 规则 或 假设 三 段 论 
R~pVq, ~aVr 或 ~pVr 
~pVq, pVq q 合并 
~pV ~q, pVq ~pVp 真 (ERA) 
或 ~qVa 
=P, P nil B (AUB) 


3.11 归结 系统 与 演绎 
给 定 wffs Ay, Ay, An 和 它们 的 逻辑 推论 或 定理 C， 我 们 知道 : 


A, AA, ... Av FC 
可 以 等 价 地 表示 为 : 


(1) A: AR ... Ax OC = ~(A: AM ... Ay) VC 
=~A: V~A. ... Anv C 





cd 
we 
二 
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考虑 如 下 的 否定 式 : 
~[R 和 AA, ... Ay > C] 
由 于 
pr q@=-pyvygq 
于 是 上 式 变 为 ; 
~{A AR ... As > C] =~[~(A AR ... Ay) v C} 
根据 德 ' 摩 根 定律 : 
~p yqa) = ~p a ~g 
上 式 又 变 为 ; 


(2) ~IA: AA; ... Ay > C} = [~~(A: AR ... An) A ~C] 
= A AAD... An A ~C 


如 果 (1) 式 有 效 ， 则 它 的 否定 式 一 定 无 效 。 换 句 话说， 如 果 (1) 是 重 言 式 则 (2) 必定 是 矛盾 
式 。 公 式 (1) 和 (2) 说 明了 两 种 证 明 公式 C 是 定理 的 等 价 的 方法 。 公 式 (1) 证 明定 理 的 方法 是 通过 
检查 它 是 否 在 所 有 情形 下 都 为 真 。 而 公式 (2) 证 明定 理 的 方法 是 通过 说 明 (2) 会 导致 子 盾 。 

正如 前 面 小 节 提 到 的 ， 通过 说 明 它 的 否定 会 导致 矛盾 来 证 明 一 个 定理 的 方法 叫 反 证 法 。 这 种 证 明 
方法 的 主要 部 分 就 是 反 驶 (refutation)。 反 驳 某 事 就 是 证 明 某 事 是 假 的 。 归 结 是 一 个 合理 的 推理 规则 ， 
它 也 是 反驳 完备 的 《refutation complete) 的 ， 因 为 如 果 在 子 句 集合 里 有 了 矛盾， 那么 最 终 就 会 得 到 空子 
句 。 本 质 上 ， 这 意味 着 如 果 存 在 了 矛盾， 归结 反驳 (resolution refutation) 就 会 在 有 限 的 步骤 内 停止 。 虽 
然 归 结 反 驭 不 能 告诉 我 们 如 何 产生 定理 ， 但 它 将 明确 地 告诉 我 们 一 个 wff 是 否 为 定理 。 

作为 用 归结 反驳 证 明 的 一 个 简单 例子 ， 考 虑 以 下 的 辩论 : 


AB 
BOC 
oii 
"AD 


要 用 归结 反驳 法 证 明 结 论 A->D 是 一 个 定理 ， 首 先 利用 等 式 : 

P9494= ~pYg 
将 其 转换 成 析 取 式 ， 于 是 ， 

Ar» D=-r-AvoD 
而 它 的 否定 式 是 : 

~(~A v D) = 有 和 -D 
前 提 的 析 取 式 和 结论 的 否定 式 的 合 取 一 起 形成 了 适 于 归结 反驳 的 合 取 范 式 。 

(~A v B) a (~B vC) A(~C v D) 入 有 和 -~D 

归结 方法 现在 就 可 以 用 于 前 提 和 和 结论。 图 3.18 给 出 了 一 个 用 归结 反 驶 树 (resolution refutation 
tree) 来 表达 归结 反驳 法 的 例子 ， 这 里 位 于 同一 层 的 子 旬 就 会 被 归结 。 最 后 归结 得 到 的 根 是 空 的 ， 它 可 
根据 表 3.13 中 关于 ~p，p 的 最 后 - 行 得 出 ， 因 此 原来 的 结论 A->D 是 一 个 定理 。 


-AvB -BvC 





图 3.18 ”归结 反 驶 树 
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3.12 浅 推 理 和 因果 推理 


归结 系统 和 产生 式 规则 系统 是 用 于 定理 证 明 的 两 个 应 用 较 广 的 范例 。 虽 然 大 多 数 的 人 会 从 数学 的 
角度 去 思考 一 条 定理 ， 但 是 - -条 定理 实际 上 是 一 个 有 效 逻 辑 辩 论 的 结论 。 现 在 让 我 们 考虑 一 个 使 用 推 
理 链 的 专家 系统 。 通 常 ， 较 长 的 链 代 表 了 有 和 较 多 的 因果 知识 。 而 浅 推理 一 般 使 用 单一 规则 或 少量 的 推 
FE. 除 推理 链 的 长 度 以 外 ， 规 则 中 所 包含 的 知识 的 质量 亦 是 区 分 浅 推理 (shallow reasoning) 和 深 推理 
(deep reasoning) 的 一 个 主要 因素 。 有 时 也 称 浅 知识 为 经 验 知识 (experiential knowledge)， 它 是 基于 经 
验 的 知识 。 

一 条 推理 链 的 结论 是 一 条 定理 ， 因 为 它 可 以 通过 该 推理 链 得 到 证 明 。 如 前 述 例 子 所 示 : 


A->B, B >C, C>DFA -D 


使 用 推理 链 得 到 结论 的 专家 系统 实际 上 是 在 使 用 定理 。 这 个 结论 十 分 重要 ， 否 则 就 无 法 用 专家 系统 来 
进行 因果 推理 ， 而 只 能 用 无 链 的 单一 规则 来 进行 浅 推理 。 
为 了 更 好 地 区 别 浅 推理 和 深 推理 ， 让 我 们 来 看 一 些 规 则 。 作 为 第 一 个 例子 ， 思考 以 下 规则 ， 其 中 
圆 括号 中 的 数字 仅 用 作 标 识 : 
(1) IFE RES 
好 的 电池 
好 的 火花 塞 
汽油 
好 的 轮胎 
THEN 这 部 车 子 能 跑 
这 是 一 条 适用 于 专家 系统 的 完美 的 规则 。 
如 第 1 章 所 述 ， 专 家 系统 的 一 个 重要 特征 是 解释 机 。 基 于 规则 的 专家 系统 能 方便 地 对 其 推理 做 出 
解释 。 在 本 例 中 ,， 若 用 户 问 为 什么 车 能 跑 ， 专 家 系统 会 列 出 其 条 件 中 的 各 元 素来 回答 : 
好 的 电池 
好 的 火花 塞 
汽油 
好 的 轮胎 
这 是 一 种 最 基本 的 解释 机 类 型 ， 因 为 系统 只 需 列 出 规则 中 的 各 项 条 件 即 可 。 更 复杂 的 解释 机 可 以 
是 列 出 前 面 所 用 的 各 规则 并 以 此 推出 正在 使 用 的 规则 。 另 一 种 解释 机 是 允许 用 户 提 出 “如 果 …… 会 怎 
样 ?” 的 问题 ， 以 探索 其 他 推理 路 径 。 
上 述 规则 也 是 浅 推 理 的 一 个 例子 。 也 就 是 说 ， 由 于 很 少 或 没有 推理 链 ， 因 此 在 浅 推理 中 很 少 或 根 
本 无 须 理解 因果 关系 。 上 述 规则 实质 上 是 启发 式 的 ， 其 所 有 知识 都 包含 在 规则 中 。 当 所 有 条 件 均 满足 ， 
规则 就 被 激活 ， 而 不 是 因为 专家 系统 明确 了 各 条 件 的 功能 后 才 被 激活 。 在 浅 推 理 中 ,很 少 甚至 没有 由 
某 一 规则 推 至 另 一 规则 的 因果 链 (causal chain)。 在 最 简单 的 情形 ， 因 和 果 都 被 包含 在 与 其 他 规则 毫 无 
关联 的 一 条 规则 中 。 如 果 像 我 们 在 第 1 章 中 讨论 的 那样 ， 将 规则 认为 是 知识 块 ， 那 么 浅 推理 就 像 一 个 
简单 的 反射 一 样 ， 在 块 与 块 之 间 无 任何 联系 。 
相对 于 因果 推理 而 言 ， 浅 推理 的 优点 是 易于 编程 。 易 于 编程 意味 着 只 需 较 短 的 开发 时 间 ， 程 序 小 ， 
BER, 并且 只 需 较 少 的 开发 经 费 。 
框架 和 语义 网 络 是 适用 于 因果 或 深 推理 的 两 种 模型 。“ 深 ”一 词 常用 作 因 果 推 理 的 同义词 ， 表示 了 
对 问题 的 更 深层 次 的 理解 。 然 而 ， 深 层次 的 理解 意味 着 不 仅 要 理解 过 程 发 生 的 因果 链 ， 还 要 从 更 抽象 
的 层次 去 理解 这 一 过 程 。 
我 们 可 以 通过 定义 如 下 的 规则 来 为 我 们 的 规则 增加 简单 的 因果 推理 : 
(2) 焉 ”如果 电池 是 好 的 
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THEN 有 电 
(3) IF ”有 电 
并 且 火 花 塞 是 好 的 
THEN 可 以 打 火 
(4) IF ”可 以 打 火 
并 且 有 汽油 
THEN 发 动机 能 工作 
(5) IF ”发 动机 能 工作 
并 且 轮 胎 是 好 的 
THEN 汽车 能 跑 

注意 ， 由 于 对 汽车 每 一 部 件 的 工作 都 用 一 条 规则 进行 了 准确 说 明 ， 所 以 具有 因果 推理 的 解释 机 可 
以 很 好 地 解释 汽车 的 各 个 部 件 能 做 什么 。 这 样 一 个 因果 系统 也 更 容易 构造 一 个 诊断 系统 来 决定 一 个 坏 
的 部 件 将 会 造成 怎样 的 影响 。 因 果 推 理 可 应 用 在 一 个 执行 速度 ， 存 储 容量 ， 开 发 经 费 均 受 限 的 系统 中 ， 
对 其 操作 做 任意 的 改进 。 

因果 推理 可 用 于 构造 一 个 各 方面 都 和 真实 事物 行为 相 一 致 的 真实 系统 模型 (model) 。 这 样 一 个 模 
型 可 用 于 模拟 探索 “如 果 …… 会 怎样 ” 式 询问 的 假设 推理 。 然 而 ， 因 果 模 型 并 不 总 是 必需 的 。 例 如 作 
为 钻 孔 液 顾问 的 MUD 系统 。 因 和 钻 孔 液 与 泥浆 (mud) 很 相似 故 称 之 为 MUD， 它 可 以 冷却 和 润滑 钻头 ， 
是 勘探 的 重要 用 品 。MUD 系统 诊断 出 钻 孔 液 问 题 并 建议 解决 方法 。 

由 于 钻探 工程 师 并 不 能 观察 到 地 底 深 处 所 发 生 的 事情 之 间 的 因果 联系 ， 相 反 ， 他 只 能 观测 到 表面 
的 征兆 ， 不 能 观测 到 对 诊断 产生 潜在 影响 的 中 间 事 件 ， 因 而 因果 系统 并 不 是 那么 有 用 。 

在 医学 方面 ， 情 况 就 大 不 相同 了 。 医 生 可 通过 大 范围 的 诊断 测试 来 核实 中 间 事 件 。 例 如 ， 若 病人 
抱怨 不 舒服 ， 医 生 可 帮 他 检查 是 否 发 烧 ; 如 有 发 烧 ， 则 有 可 能 受 了 感染 ， 因 而 需 进行 血液 检查 ; 若 血 
液 检查 表明 病人 感染 了 破 伤风 ， 医 生 会 检查 病人 最 近 有 否 被 生 锈 物体 割 伤 。 与 之 相反 ， 若 钻 孔 液 含 盐 ， 
钻 孔 工程 师 就 会 猜测 探头 可 能 经 过 了 盐 层 。 然 而 ， 由 于 并 不 能 进入 洞 中 ， 而 地 质 测试 又 十 分 虹 贵 县 未 
必 可 靠 ， 因 此 并 没有 直接 方法 可 以 检验 这 一 猜测 。 由 于 钼 孔 工程 师 不 能 像 医生 那样 检测 中 间 假 设 ， 因 
而 他 们 也 不 能 采用 医生 那样 的 方式 进行 问题 诊断 。MUD 正 反 映 了 这 一 点 。 

在 MUD 中 不 使 用 因果 推理 的 另 一 个 原因 是 诊断 的 可 能 性 和 征兆 的 个 数 都 是 有 限 的 。 大 部 分 在 
MUD 中 使 用 的 相关 测试 均 按 常规 步骤 建立 并 预先 存 人 。 如 果 系 统 知 道 所 有 的 相关 测试 和 诊断 途径 ， 那 
么 工程 师 采 用 交互 询问 的 方式 来 寻求 一 条 诊断 途径 就 毫 无 优势 可 言 了 。 如 果 某 一 可 被 证 实 的 中 间 假 设 
会 导致 许多 可 能 的 诊断 途径 ， 那 么 因果 知识 就 具有 优势 ， 因 为 工程 师 可 与 系统 一 起 工作 以 便 修 正 可 能 
的 搜索 途径 。 

由 于 对 因果 推理 的 要 求 不 断 增长 ， 因 而 有 必要 将 一 些 规则 合并 为 一 个 浅 推 理 规则 。 反 了 驳 归 结 法 可 
以 用 于 证 明 一 条 简单 规则 是 否 的 确 是 多 条 规则 的 结论 。 该 简单 规则 就 是 归结 所 要 证 明 的 定理 。 

作为 一 个 例子 ， 假 设 我 们 要 证 明 规则 (1) 是 规则 (2) ~ (5) 的 逻辑 结论 。 利 用 以 下 的 命题 定 
义 ， 我 们 可 将 上 述 规则 写成 ， 

B= 电 池 是 好 的 C= 汽 车 能 跑 

E= 有 电 F= 火 花 塞 能 打 火 

G= 有 汽油 R= 发 动机 能 工作 

s- 火花 塞 是 好 的 ” T= 有 好 的 轮胎 


(1) BASAGAT+C 
(2) BOE 

(3) EAS OF 

(4) PFAGOR 

{5) RAT OC 


使 用 归结 反驳 的 第 一 步 是 否定 结论 ， 即 否定 目标 规则 : 
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(l') ~(BASAGAT OC) = ~{~(BASAGAT) VC] 
=~[~Bv ~S v ~Gv ~T VC] 


把 其 他 每 一 条 规则 利用 : 


P> @=-pvqand~(paq) =~pv ~q 
两 个 等 式 化 为 析 取 式 ， 从 而 得 到 以 下 规则 (2) ~ (5) 的 新 形式 : 
(2 ) ~B v 
(3') ~(E A S) V F = ~EV ~SV F 
(4°) ~(P AG) v R=-Fv-~GvR 
(5') ~(RAT) VC =-Rv -Tvc 


正如 我 们 在 前 面 小 节 所 述 的 ， 一 种 表示 (1 ) ~ (50 RAE YS PR) ABE DK A A 
树 ， 如 图 3.19 所 示 ， 从 树 的 头 部 开始 ， 用 结 点 表示 子 句 ， 它 可 被 归结 为 其 下 的 归结 项 。 例 如 : 


-~B v E and ~E v ~S v F 


经 归结 后 可 推出 : 


-Bv -SvF 


它 再 与 


-Fv ~GvR 


一 起 归结 可 推出 : 


~Bv ~Sv ~GVR 


等 等 。 为 了 画图 简便 ， 省 略 了 最 后 归结 式 的 一 项 一 项 的 归结 。 


-BVE ~Ev ~Sv F 









-Bv -Sv F “Fv -Gv R 


-Rv -Tv C 
-Bv -Sv -GYV R 
~(-Bv -Sv -Gv -Tv C) 
-By -Sv -GV -Ty C 


nil 


图 3.19 ”汽车 例子 的 归结 反 驶 树 


由 于 树 的 根 为 空 ， 这 个 归结 是 一 个 矛盾 。 根 据 反 驶 ， 由 于 此 结论 的 否定 导致 了 矛盾 ， 因 而 原 结论 


BASAGATOC 
是 一 条 定理 。 所 以 〈1) 确实 可 由 (2) ~ (5) 逻辑 推出 。 
3.13 ”归结 与 一 阶 谓词 逻辑 

归结 法 也 可 与 一 阶 谓词 逻辑 一 起 使 用 。 事 实 上 ， 这 是 PROLOG 的 主要 推理 机 制 。 但 在 归结 之 前 ， 
必须 把 wif 表示 成 子 句 的 形式 。 考 察 以 下 的 例子 : 

有 些 程序 员 讨 厌 所 有 错误 

程序 员 都 不 会 悄 恶 成 功 

… 错 误 都 不 是 成 功 
定义 以 下 谓词 : 

P(x) =X 是 程序 员 

F(x) =x 是 错误 

S(x) =x 是 成 功 


H(x,y) = xf¥aky 


前 提 以 及 结论 的 否定 可 表示 为 : 
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(1) {3 x) [P(x) a (VY y) (Fly) > H(x,y))] 
(2) (V x) {P{x) > (Vy) (Sly) > ~H(x,y))] 
(3) ~(W y) (Fly) > ~S(y)) 


这 里 ， 为 了 准备 归结 ， 已 将 结论 表示 为 否定 的 形式 。 

转化 为 子 句 形式 
以 下 9 个 步骤 是 一 个 将 一 阶 谓词 的 wff 转化 为 子 句 形式 的 算法 。 我 们 以 上 例 中 的 wff (1) 式 为 例 
1. 利用 等 式 


P%*qQ=-pvq 
THE ARETE “>”, wif 变 为 : 
(A x) [P(x) A (Wy) (-F(y) v H(x,y})] 


2. 在 所 有 可 能 的 地 方 ， 将 否定 符号 消去 或 将 否定 的 辖 域 碱 小 到 一 个 原子 公式 。 使 用 附录 A 中 的 等 


xk, 如 : 
-p= p 
~(pP A q) = ~p v ~q 
~(3 x) P(x) = (V x) ~P(x) 
~(V x) P(x) ={3 x) ~P(x) 


3. 将 wif 中 的 变量 标准 化 ， 使 得 每 一 量词 的 约束 变量 (MEE) 有 惟一 的 名 称 。 注 意 量词 的 变量 
名 是 哑 元 。 即 ， 


(V x) P(x) =(V y) Ply) = (Vv z) P(z) 
因而 

{3 x) ~P(x) v (VY x) P(x) 
的 标准 形式 是 


(A x) ~P(x) v (V y) Ply) 


4. 用 Skolem 函数 (Skolem function) 将 所 有 的 存在 量词 消去 ，Skolem 函数 是 以 挪威 哲学 家 Thoralf 
Skolem 的 名 字 命名 的 。 考 虑 

(3 x) L(x) 
HL (x) 为 一 谓词 ， 当 x<0 时 为 真 。 这 个 wi 可 用 

L{a) 
代替 ， 其 中 a 是 一 个 能 使 L (a) 为 真 的 常数 ， 如 一 1， 称 a 为 Skolem HR, EF Skolem 函数 的 一 个 特 
例 。 对 于 存在 量词 前 有 全 称 量词 的 情形 ， 比 如 : 

(vx) (3 y) L{x,y) 
当 整 数 x 小 于 整数 y 时 ，L (x，y) 为 真 。 该 wff 表示 对 于 任意 整数 x 总 有 整数 y 大 于 x。 注 意 ， 该 式 
并 未 指出 对 于 给 定 的 x 应 怎样 计算 y。 假 设 存在 产生 y>x 的 函数 f (x)， 那 么 以 上 的 wt 可 Skolem 化 
为 : 

(Y x) L(x, f(x)) 
在 全 称 量词 辖 域内 的 存在 量词 变量 的 Skolem 函数 是 一 个 其 左边 所 有 全 称 量词 的 函数 。 例 如 ， 


Gu) (Vv) (Ww) (Ax) (V y) (3 z) Pluvw,x,y,2) 


可 Skolem 化 为 : 


(viv) (0 w) (Y y) Pla.v.w,f(v.w),y,glv,wiy)) 


其 中 a 是 某 个 常数 ， 第 二 个 Skolem BK g 必须 与 第 一 个 函数 { 不 同 。 于 是 例 中 的 wff 可 化 为 : 


Pla) a (Y y) (~Fly) v H{a,y)) 
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5. wif 化 为 量词 序列 Q 后 跟 有 母 式 (matrix) M 的 前 束 式 (prenex form). HA, BWA UE V 
或 3 。 不 过 在 本 例 中 ， 由 于 步骤 4 已 将 所 有 的 存在 量词 消去 ， 因 而 Q 只 能 是 VY 。 同 样 ， 因 为 每 一 V 都 
有 其 旺 元 变量 ， 所 有 的 Y 都 可 以 移 到 wif 的 左边 ， 所 以 每 一 Y 的 辖 域 均 为 整个 wff。 

本 例 可 化 为 : 


(V y) [P{a) a (Fly) v H(a,y)] 


SUPE SETS PM 

6. 将 母 式 化 为 合 取 范式 ， 它 是 子 句 的 合 取 式 ， 每 个 子 句 是 析 取 式 。 本 例 已 经 为 合 取 范式 。 其 中 一 
个 子 句 是 P (a), 另 一 个 是 (一 F (y) VH (a,，y))。 如 有 必要 的 话 ， 在 将 母 式 化 为 合 取 范式 时 ， 可 使 
用 以 下 的 分 配 律 : 

pv qar) = (pv a) a Wyn) 

7. 由 于 此 时 wif 中 的 所 有 变量 都 是 约束 的 ， 全 称 量词 不 必要 ， 故 可 以 消去 。wff 就 为 母 式 。 本 例 
的 wif 化 为 : 


P(a) a (~Fly) v Hla,y)) 


8. 消去 符号 人 ， 将 w4f 写成 子 句 的 集合 。 本 例 就 变 为 : 


{ Pla}, ~F(ly) v H(a,y) } 
一 般 将 其 写 为 无 大 括号 的 子 句 形式 : 
P(a) 


~F(y) v Hla,y) 


9. 如 有 必要 的 话 ， 重 命名 子 句 中 的 变量 ， 使 得 一 个 变量 名 只 出 现在 一 个 子 句 中 。 比 如 以 下 的 子 句 ; 


P(x) a Q(x) v L(x,y) 
~P(x) v Ql(y) 
~Q(z) v L(z,y) 


可 被 重 命名 为 : 


P(xl) a Q(x1) v L(xl,y1) 
~P(x2) v Qly2) 
~Q(z) v L(z,y3) 


如 果 我 们 按 上 述 步骤 对 例 中 的 第 二 个 前 提 和 和 否定 结论 进行 变换 ， 最 终 可 得 以 下 子 句 : 


(la) P(a) 

(1b) ~F(y) v H(a,y) 

(2a) ~P(x) v ~S(y) v ~H(x,y) 
(3a) F(b) 

(3b) S(b) 


序号 表示 了 原来 前 提 和 否定 结论 的 序号 。 即 ， 前 提 (1) 和 否定 结论 (3) 被 变换 为 分 别 带 有 (a), (b) 
后 缀 的 两 个 子 句 而 前 提 (2) 变换 为 单个 子 句 (2a)。 


合 一 与 规则 


将 wffs 转化 为 子 句 的 形式 以 后 ， 常 常 需要 为 变量 寻找 合适 的 代 换 实 例 (substitution instance)。 比 
WFA 


~F (y) v H(a,y) 
F(b) 


不 能 对 谓词 下 作 归 结 ， 除 非 找 到 了 下 中 的 参量 匹配 。 这 个 寻找 合适 的 代 换 从 而 实现 参量 匹配 的 过 程 就 
称 为 合 一 〈unification)。 

合 一 是 区 别 专 家 系统 与 简单 判定 树 的 特征 之 一 。 没 有 合 一 ， 规 则 的 条 件 元 素 只 能 匹配 常数 ， 这 意 
味 着 必须 为 每 一 可 能 存在 的 事实 写 一 条 专门 的 规则 。 例 如 ， 假 定 希望 在 探测 器 指示 有 烟雾 时 发 出 火警 
警报 ， 如 果 有 N 个 探测 器 ， 那 么 就 需要 为 每 一 探测 器 设置 一 个 如 下 的 规则 : 
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入 
w 
w 





IF 探测 器 1 指示 有 烟雾 THEN 发 出 火警 警报 1 
IF 探测 器 2 指示 有 烟雾 THEN 发 出 火警 警报 2 


IF 探测 器 8 指示 有 烟雾 THEN 发 出 火警 警报 N 
然而 ， 利 用 合 一 ， 用 一 个 称 为 “? N” 的 变 元 作为 探测 器 标志 ， 就 只 需 如 下 一 条 规则 即 可 ; 
IF 探测 器 ?” 指示 有 烟雾 ， 
THEN 发 出 火警 警报 ? N 
若 两 个 互补 的 文字 是 合 一 的 ， 则 可 以 通过 归结 消去 。 对 于 前 两 个 子 句 ， 用 b 代 换 y， 得 


~F(b) v H(a,b) 
F(b) 


谓词 下 因 合 一 可 消去 ， 从 而 得 到 H (a, b)o 
用 与 变量 不 同 的 项 同时 对 变量 进行 替换 称 为 代 换 ， 这 些 项 可 以 是 常数 、 变 量 或 函数 。 这 种 对 变量 
的 代 换 可 用 集合 表示 为 : 


{ ty/v:, t2/vz <.. tw/Vy } 

如 果 9 是 这 样 一 个 集合 而 A 是 一 参量 ,那么 Ab 定义 为 A 的 代 换 实例 ， 例 如 ， 若 
0 = {a/x, Ely)/y, x/z } 

A = P(x) v Oly) v R(z) 

则 


A@ = Pia) v Q(fly)) v R(x) 


注意 代 换 是 同时 进行 的 ， 因 而 我 们 得 到 的 是 R(x) 而 不 是 R (a)。 
假定 有 Ci ，C2 两 个 子 句 ， 定 义 为 : 


Cı = ~P(x) 
Co = P(E(x)) 
对 了 的 一 种 可 能 的 合 一 为 ; 
Cit = Ci { f(x)/x } = ~P(f(x}) 
对 了 的 另 一 种 可 能 的 合 一 是 用 常数 a 进行 两 个 代 换 ; 
Ctt = C { f(a)/x } = ~P(£(a)) 
C2' = Cp { a/x } = P(f(a)) 


注意 P (f (x)) EP Cf (a)) 更 一 般 ， 因 为 用 任意 常数 代 换 x 就 可 得 到 P (f (x)) 的 无 穷 个 实例 ， 像 
C 这 样 的 子 句 称 为 最 一 般 子 名 (most general clause). 

通常 ， 称 代 换 0 为 集合 (A, A, ，…，AN| 的 合 一 代 换 (unifier)， 当 和 且 仅 当 Al6= Ac6= + And Be 
立 。 存 在 合 一 代 换 的 集合 称 为 可 合 一 的 〈unifiable) ， 如 果 其 他 所 有 的 合 一 代 换 都 是 某 合 一 代 换 的 实例 ， 
则 称 该 合 一 代 换 为 最 一 般 合 一 代 换 (most general unifier， 简 称 mgu)。 这 可 以 形式 化 地 表述 为 : 6 是 最 

般 合 一 代 换 ， 当 且 仅 当 对 集合 的 任 一 合 一 代 换 s， 存 在 一 代 换 B 使 得 

a = 6B 
其 中 op B—TPBAR, AVE 6 进行 代 换 ， 再 用 B 进 行 代 换 。 合 一 算法 (unification algorithm) 是 一 
种 为 有 限 的 可 合 一 的 参量 集合 寻找 最 一 般 合 一 代 换 的 方法 。 

对 于 我 们 所 举 的 例子 中 的 子 句 (1a) 到 (3b)， 代 换 和 合 一 的 结果 可 用 图 3.20 的 归结 反驳 树 来 表 
示 。 由 于 根 结 点 为 空 ， 绪论 的 否定 为 假 ， 因 而 结论 “错误 都 不 是 成 功 ” 是 正确 的 。 

目前 所 使 用 的 例子 都 很 简单 ， 因 而 可 以 直接 归结 ， 尽 管 对 于 人 来 说 显得 相当 乏味 。 然 而 在 其 他 很 
多 的 情况 下 ， 归 结 的 过 程 可 能 是 一 条 死路 ， 因 而 必须 回潮 以 尝试 归结 其 他 的 子 句 。 虽然 归结 极为 有 用 
而 且 是 PROLOG 的 基础 ， 但 对 某 些 问 题 它 可 能 不 那么 有 效 。 归结 法 的 一 个 问题 是 它 内 部 没有 有 效 的 搜 
索 策略 ， 因 而 程序 员 必须 提供 一 些 启发 ， 如 PROLOG 的 截断 语句 ， 以 实现 有 效 的 搜索 。 
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-Fly) v “HGa, y) F(b) Pia) -PQA)Y-S(y)Yv -H(x, y) 








H(a, b) -S(y) v -H(a, y) 


7 S(b) 


nil 
图 3.20 证 明 错 误 都 不 是 成 功 的 归结 反 驶 树 


目前 已 提出 了 一 些 改进 的 归结 法 ， 如 单项 优先 (unit preference) 、 输 入 归结 (input resolution)、 线 
性 归结 (linear resolution) 和 支撑 集 (set of support) 等 。 归 结 的 主要 优点 在 于 它 是 一 种 在 许多 情况 下 
均 可 满足 需要 的 简单 而 有 效 的 方法 。 这 使 得 建立 一 个 像 PROLOG 的 机 械 系 统 比 建立 一 个 试图 实现 许多 
不 同 推理 规则 的 系统 要 简单 得 多 。 归 结 的 另 一 个 好 处 在 于 如 果 成 功 的 话 ， 归 结 通过 显示 导致 空 的 步骤 
而 自动 提供 了 证 明 。 


3.14 正 向 链 和 反 向 链 


一 组 将 问题 和 其 解答 联系 起 来 的 多 重 推理 称 为 一 条 链 (chain)。 一 条 由 问题 开始 搜索 并 得 到 其 解答 
的 链 称 为 正 向 链 。 另 一 描述 正 向 链 的 方法 是 : 由 事实 推出 基于 事实 的 结论 - 一 条 由 假设 回 推 到 支持 该 
假设 的 事实 的 链 称 为 反 向 链 。 反 向 链 的 另 一 种 表述 是 通过 满足 某 个 目标 的 子 目标 来 完成 该 目标 。 由 此 
可 见 ， 用 于 描述 正 向 链 和 反 向 链 的 术语 由 所 讨论 的 问题 决定 。 

链 可 以 很 方便 地 用 推理 来 表示 。 例如， 假设 有 以 下 的 假 言 推理 类 型 的 规则 : 


Pp >q 
P 


^q 
它 形成 了 一 条 推理 链 ， 比 如 : 


elephant (x) — mammal (x) 
mammal (x) — animal (x) 


上 述 规则 可 用 于 由 Clyde 是 大 象 推出 Clyde 是 动物 的 正 。” Elephant (Clyde) 
向 因果 推理 链 中 。 推 理 链 如 图 3.21 所 示 ， 注 意 这 个 图 也 可 
以 表示 反问 链 。 Elephant (X) —» Mammal (X) 
在 图 3.21 中 ， 因 果 链 用 一 系列 的 竖 线 表示 ， 这些 竖 线 
将 前 一 规则 的 后 件 与 后 一 规则 的 前 件 联接 起 来 。 竖 线 也 表 Mammal (X) — Animal (X) 
示 了 变量 到 事实 的 合 一 。 例 如 ， 在 使 用 关于 大 象 的 规则 前 ， 
必须 先 把 谓词 “elephant (x)” 中 的 变量 x 与 事实 “elephant Animal (Clyde) 
(Clyde)” 合 一 。 事实 上 ， 因 果 链 是 一 个 蕴含 式 与 合 一 的 序 图 3.21 因果 正 向 链 
列 ， 如 图 3.22 所 示 。 


Elephant (Clyde) 


合 一 

蕴含 Elephant (Clyde) — Mammal (Clyde) 

人 

A 

ae Mammal (Clyde) — Animal (Clyde) 


图 3.22 显 式 因果 链 
反 向 链 是 一 个 相反 的 过 程 。 假 定 我 们 想 要 证 明 “ 动 物 (Clyde)” 这 一 假设 。 反 向 链 的 主要 问题 是 
要 找到 一 条 将 证 据 和 假设 连接 起 来 的 链 。 在 反 向 链 中 ，“ 大 象 (Clyde)” 这 一 事实 被 称 为 证 据 (evi- 
dence) ， 证 据 是 用 于 支持 假设 的 ， 正 如 在 法 庭 上 证 据 用 于 证 明 被 告 有 罪 一 样 。 
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一 个 正 向 链 和 反 向 链 的 简单 例子 ,假设 你 正在 开车 ， 忽 然 看 到 一 部 闪 着 警 灯 的 警车 。 使 用 正 向 链 ， 
你 也 许 会 推断 警察 想 要 你 或 其 他 人 停 下 来 。 即 ， 上 述 的 事实 支持 两 个 可 能 的 结论 。 若 警车 恰好 在 你 身 
后 停 下 来 或 警察 朝 你 挥手 ， 更 进一步 的 推论 是 警察 找 你 的 可 能 性 大 于 其 他 人 。 以 此 为 有 效 假设 ， 你 会 
使 用 反 向 链 来 推理 这 是 为 什么 。 

一 些 可 能 的 中 间 假 设 是 : 因为 乱 丢 杂 物 、 超 速 、 设 备 故障 和 开 着 一 部 偷 来 的 车 。 于 是 你 就 会 检查 
是 否 有 支持 这 些 中 间 假 设 的 证 据 : 是 因为 你 扔 出 窗外 的 啤酒 瓶 吗 ? 是 在 时 速 限制 为 30 英里 的 地 方 以 
100 英里 的 时 速 行驶 吗 ? 是 破碎 的 车 尾灯 或 是 执照 牌 表明 你 开 的 车 是 偷 来 的 ? 在 此 情况 下 ， 每 一 个 证 
据 支持 一 个 中 间 假 设 ， 因 而 它们 都 是 成 立 的 。 任 意 或 所 有 的 这 些 中间 假 设 都 是 证 明 警 察 找 你 这 一 假设 
的 可 能 理由 。 

为 了 更 具体 地 了 解 正 向 链 和 反 向 链 ， 将 它们 表示 成 一 条 穿 过 问题 空间 的 通路 ， 其 中 在 反 向 链 中 的 
中 间 状 态 表示 中 间 假 设 ， 在 正 向 链 中 的 中 间 状 态 表示 中 间 结 论 。 表 3.14 中 总 结 了 一 些 正 向 链 和 反 向 链 
的 共同 特点 。 注 意 表 中 的 特点 只 作为 一 个 指导 。 在 正 向 链 系 统 中 进行 判断 和 在 反 向 链 系 统 中 进行 规划 
当然 是 可 能 的 ， 特 别 是 在 反 向 链 中 由 于 系统 可 以 很 方便 地 解释 究竟 要 达到 什么 目的 ， 因 而 解释 是 很 容 
易 实 现 的 。 在 正 向 链 中 ， 解 释 就 不 那么 容易 实现 了 ， 因 为 在 子 目 标 被 发 现 前 并 不 能 明确 地 知道 子 目 标 。 


表 3.14 正 向 链 和 反 向 链 的 一 些 特征 





正 向 链 反 向 链 
规划 ， 监 视 ， 控 制 诊断 
从 当前 到 未 来 从 当前 到 过 去 
前 件 到 后 件 后 件 到 前 件 
数据 驱动 ， 自 底 向 上 推理 目标 驱动 ， 自 顶 向 下 推理 
向 前 推理 以 找到 由 事实 可 推出 的 解决 方案 向 后 推理 以 找到 支持 假设 的 事实 
便于 广度 优先 搜索 便于 深度 优先 搜索 
前 件 决定 搜索 后 件 决 定 搜索 
不 便于 解释 便于 解释 





图 3.23 说 明了 在 基于 规则 的 系统 中 正 向 链 的 基本 概念 。 规 则 由 满足 前 件 或 左 部 (left-hand-side, 
简称 LHS) 的 事实 触发 。 例 如 ， 要 激活 规则 Ri 必须 满足 事实 B 和 C。 然 而 ， 由 于 只 有 C 存在， 因而 
Ri 未 被 激活 。 规 则 Rs 由 事实 C 和 了 D 激 活 ， 由 于 这 两 者 均 存 在 ， 因 而 R 产生 出 中 间 事 实 H。 其 他 要 满 
足 的 规则 有 Ry, Re Ry, Re 和 Re。 规 则 Re 和 Rs 的 执行 便 产 生 了 正 向 链 的 结论 。 这 些 结论 可 以 是 其 
他 事实 、 输 出 等 。 


at 
a 


推断 事实 





事实 


Æ 3.23 正 向 链 
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正 向 链 又 称 为 自 底 向 上 推理 (bottom-up reasoning)。 因 为 它 从 低层 的 证 据 、 事 实 出 发 ， 由 推理 得 
到 顶层 的 基于 事实 的 结论 。 专 家 系统 中 的 自 底 向 上 推理 ， 类 似 于 第 1 章 所 讨论 的 自 底 向 上 传统 程序 设 
计 。 事 实 是 基于 知识 系统 中 的 基本 单元 ， 因 为 它 不 可 以 再 细 分 为 任何 有 意义 的 更 小 单元 。 例 如 ， 事 实 
“duck” 作 为 名 词 和 动词 有 确定 的 意思 。 可 是 ， 如 果 进 一 步 细 分 的 话 ， 结 果 是 字母 4d、u、c、k， 它们 都 
没有 特定 的 意思 。 在 传统 的 程序 中 ， 有 意义 的 基本 单元 是 数据 。 

按照 习惯 ， 由 较 低层 部 分 组 成 的 较 高 层 部 分 放 在 上 面 。 因 此 ， 从 较 高 层 部 分 ， 比 如 假设 开始 ， 推 
理 得 到 支持 这 些 假设 的 较 低层 事实 ， 就 称 为 自 项 向 下 推理 (top-down reasoning)， 或 反 向 链 。 图 3.24 
说 明了 反 向 链 的 概念 。 为 了 证 明 或 否定 假设 HH， 至 少 要 证 明 中 间 假 设 Hl，H,，Hs 中 的 一 个 。 注 意 到 
将 这 个 图 画 成 一 个 与 一 或 树 的 形式 ， 它 说 明了 像 H 这 些 结 点 ， 位 于 其 下 层 的 所 有 假设 都 必须 支持 H 
对 于 其 他 结 点 ， 例 如 顶层 的 假设 H， 只 需 有 一 个 较 低 层次 的 假设 的 支持 。 在 反 向 链 中 ， 系 统 为 了 证 明 
或 否定 一 个 假设 ， 通 常会 从 用 户 那里 引 征 证 据 。 这 与 正 向 链 中 已 预先 知道 所 有 相关 的 事实 相 比 ， 是 不 
同 的 。 


初始 假设 (目标 ) 





证 据 (SE) 





= 缺乏 证 据 


= 成 立 的 假设 
= 不 成 立 的 假设 





图 3.24 反 向 链 


如 果 对 照 图 3.24， 我 们 就 会 发 现 ， 决 策 网 的 组 织 结构 非常 适 于 反 向 链 。 项 层 的 假设 是 各 种 不 同 种 
类 的 草莓 ， 例 如 花 莓 、 黑 莓 、 酒 仁 和 红 莓 。 支 持 这 些 假 设 的 证 据 位 于 较 低层 次 。 很 容易 写 出 区 别 这 些 
草莓 的 规则 。 例 如 : 


IF 叶子 是 单 叶 THEN EER 


引 征 证 据 的 一 个 重要 手段 是 提出 正确 的 问题 。 正 确 的 问题 有 助 于 提高 得 出 正确 回答 的 效率 。 这 方 
面 的 一 个 明确 要 求 是 ， 专 家 系统 应 该 只 提出 与 其 试图 证 明 的 假设 有 关 的 问题 。 如 果 系 统 提出 成 百 上 干 
的 问题 ,那么 就 必须 付出 相应 多 的 时 间 和 金钱 以 便 得 到 解答 问题 的 证 据 。 另 外 ， 收 集 某 一 类 型 的 证 据 ， 
例如 医学 检验 的 结果 ， 也 可 能 会 令 病 人 感觉 不 舒服 ， 甚 至 有 危险 (事实 上 ， 很 难 想像 会 有 舒服 的 医学 
检验 )。 

理想 上 专家 系统 应 该 容许 用 户 自愿 提出 一 些 系统 没有 问 及 的 证 据 。 这 可 以 加 快 反 向 链 的 进程 ， 并 
使 系统 对 用 户 而 言 更 方便 。 自 愿 提出 的 证 据 可 能 会 让 系统 跳 过 因果 链 中 的 某 些 连接 ， 或 者 寻求 一 个 完 
全 不 同 的 新 方法 。 这 种 做 法 的 缺点 是 ， 由 于 系统 可 能 不 是 按照 原来 的 链接 关系 一 步 一 步 地 进行 推理 ， 
因此 专家 系统 的 程序 设计 会 更 复杂 。 
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图 3.25 给 出 了 一 个 很 好 的 正 向 链 和 反 向 链 的 应 用 例子 。 为 简单 起 见 ， 这 些 图 表示 成 树 而 不 是 通常 
的 网 络 。 当 树 宽 且 不 太 深 的 时 候 ， 应 用 正 向 链 是 比较 好 的 ， 这 是 因为 正 向 链 便于 实现 宽度 优先 搜索 。 
也 就 是 说 ， 正 向 链 适 合 于 一 层 一 层 地 搜索 结论 。 与 之 相反 ， 反 向 链 便于 实现 深度 优先 搜索 。 一 棵 适合 
深度 优先 搜索 的 树 是 窄 而 深 的 。 


证 据 
@ itz 
O 假设 





Ò 


(a) 反 向 链 的 一 个 很 好 的 应 用 








(b) 正 向 链 的 一 个 很 好 的 应 用 
图 3.25 正 向 链 和 反 向 链 


注意 ， 规 则 的 结构 决定 了 搜索 解 的 方法 。 也 就 是 说 ， 什 么 规则 被 激活 依赖 于 这 种 规则 所 要 匹配 的 
模式 。LHS 上 的 模式 决定 了 规则 是 否 可 以 被 事实 激活 。RHS 上 的 动作 决定 了 被 断定 和 删除 的 事实 ， 并 
因此 而 影响 到 其 他 规则 。 除 了 使 用 的 是 假设 而 不 是 规则 之 外 ， 在 反 向 链 中 也 有 类 似 的 情况 。 当 然 ， 一 
个 中 间 假 设 也 可 认为 是 一 条 匹配 其 后 件 而 不 匹配 其 前 件 的 规则 。 

作为 一 个 非常 简单 的 例子 ， 让 我 们 考虑 下 面 简单 的 IF…THEN 型 规则 。 


IF A THEN B 
IF B THEN C 
IF C THEN D 


如 果 给 定 事实 A， 并 且 推 理 机 是 用 事实 来 匹配 前 件 ， 那 么 中 间 事 实 B 和 C 将 被 断定 并 得 到 结论 D。 
这 个 过 程 相当 于 正 向 链 。 反 过 来 ， 如 果 事 实 D (实际 上 是 假设 ) 被 断定 并 且 推 理 机 是 用 事实 来 匹配 后 
件 ， 那么 结果 将 相当 于 反 向 链 。 在 诸如 PROLOG 这 样 的 反 向 链 系统 中 ， 其 反 向 链 机 制 包括 了 一 系列 的 
功能 ， 例 如 自动 回 滴 ， 以 便 实现 反 向 链 。 

通过 重新 设计 规则 ， 反 向 链 可 以 用 正 向 链 来 实现 ， 反 之 亦 然 。 例 如 ， 前 面 的 正 向 链 规则 可 以 被 重 
BR: 

IF D THEN C 


IF C THEN B 
IF B THEN A 


为 了 满足 假设 D， 现 在 C 和 B 被 看 作 是 必须 满足 的 子 目标 或 中 间 假 设 。 证 据 A 是 标志 产生 子 目 
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标 结束 的 事实 。 如 果 存 在 事实 A ,那么 在 这 个 反 向 推理 链 中 ，D 可 证 实 并 被 认为 是 真 。 如 果 不 存 在 A， 
那么 假设 D 便 无 法 证 实 而 被 认为 是 假 。 

该 方法 的 困难 之 一 是 效率 。 反 向 链 系 统 便于 深度 优先 搜索 ， 而 正 向 链 系统 便于 宽度 优先 搜索 。 尽 
管 你 可 以 在 正 向 链 系 统 中 写 一 个 反 向 链 的 应 用 程序 ， 反 之 亦 然 ， 但 在 搜索 结论 的 过 程 中 系统 的 效率 将 
会 不 高 。 第 二 个 困难 是 概念 上 的 困难 。 从 专家 那里 得 到 的 知识 必须 修正 以 适应 推理 机 要 求 。 例 如 ， 正 
向 链 推理 机 匹配 规则 的 前 件 ， 而 反 向 链 推理 机 匹配 规则 的 后 件 。 也 就 是 说 ， 如 果 专 家 的 知识 本 身 符合 
反 向 链 ， 为 了 把 它 放 到 一 个 正 向 链 中 ， 就 必须 完全 改变 其 结构 ， 反 之 亦 然 。 


3.15 其 他 推理 方法 


其 他 的 许多 推理 方法 也 经 常用 于 专家 系统 中 ， 尽 管 这 些 方法 并 非 像 演 绎 法 那么 通用 ， 但 它们 还 是 
非常 有 用 的 。 


类 比 (Analogy) 


除了 演绎 和 归纳 ， 另 外 一 种 很 有 用 的 推理 方法 是 类 比 。 类 比 推理 的 基本 思想 就 是 试图 把 旧情 形 作 
为 新 情形 的 指导 。 自 然 界 中 许多 生物 都 善于 在 它们 的 生活 中 使 用 类 比 法 。 这 一 点 很 重要 ， 因 为 在 现实 
世界 中 每 时 每 刻 都 有 很 多 新 的 情形 出 现 ， 与 其 每 次 都 孤立 地 去 处 理 一 个 新 的 情形 ， 还 不 如 把 新 情形 和 
所 熟悉 的 情形 联系 起 来 。 类 比 推理 同 归 纳 是 有 联系 的 。 归 纳 是 在 同样 的 情形 下 从 具体 到 一 般 的 推理 ， 
而 类 比 却 是 试图 从 不 同 的 情形 进行 推理 。 类 比 不 能 像 演绎 那样 进行 形式 化 的 证 明 , 但 类 比 法 作为 一 种 
启发 式 推理 工具 ， 有 了 时 可 发 挥 较 大 的 作用 并 且 是 法 律 论证 及 医疗 诊断 等 推理 的 主要 方法 。 

作为 类 比 推理 的 一 个 例子 ,我 们 看 一 下 疾病 的 诊断 。 当 你 身体 不 适 去 看 医生 的 时 候 ， 医 生 会 询问 
你 信息 并 记录 下 症状 ， 如果 你 的 症状 与 其 他 人 患 X 病 的 症状 一 模 一 样 或 者 极其 相似 的 话 ， 医 生 就 会 通 
过 类 比 推理 推断 你 患 有 X 症 。 类 比 是 简单 的 推理 。 

注意 ， 这 种 诊断 不 属于 演绎 推理 ， 因 为 你 同 别人 存在 个 体 差异 。 仅 仅 因为 男 一 个 患 有 同样 病 的 人 
显示 出 某 些 症状 ， 并 不 能 说 你 就 会 有 那些 症状 。 相 反 ， 医 生 会 假设 你 的 症状 使 你 与 具有 同样 症状 且 病 
况 已 知 的 人 相 类 似 。 初 步 的 诊断 只 是 一 个 假设 ， 它 可 被 医学 检验 证 实 或 推翻 。 但 首先 提出 初始 假设 是 
十 分 重要 的 ， 因 为 这 样 可 以 极 大 地 缩 少 要 考察 的 可 能 性 的 个 数 。 若 没有 这 种 初始 假设 ， 那 么 就 只 好 对 
每 一 种 可 能 性 都 去 检查 ， 这 样 成 本 又 高 ， 又 花 时 间 。 l 

下 面 举 一 个 应 用 类 比 法 推理 的 例子 。 假 设 有 两 个 人 在 玩 一 个 叫做 “15” 的 游戏 。 他 们 轮流 从 数字 
1~9 中 取 数 ， 同 一 个 数 不 能 使 用 两 次 ， 首 先 使 所 取 数 之 和 等 于 15 的 那 方 算 赢 。 这 个 游戏 乍 一 看 似乎 
很 花 脑 筋 ， 但 使 用 类 比 法 可 以 很 容易 地 解决 。 

考虑 下 面 的 一 字模 棋盘， 每 个 格 中 有 一 个 数 : 








6 | 1 8 
7 | 5 3 
2 | 9 | 4 


这 是 一 个 魔方 (magic square)， 因 为 其 中 每 -- 行 、 每 一 列 、 每 条 对 角 线 上 的 和 都 是 常量 15。 该 魔 
方 可 与 “15 ”游戏 进行 类 比 ， 在 玩 “15” 游 戏 时 如 果 参 照 这 个 魔方 ， 并 将 其 致胜 的 策略 用 于 “15” 游 
戏 中 ,那么 就 很 容易 玩 了 。 

这 个 特殊 的 魔方 又 称 为 3 阶 标准 方 阵 (standard square of order 3) 。 阶 数 是 由 方 阵 的 行 数 或 列 数 决 
定 的 。 只 有 一 种 3 阶 方 阵 ， 其 他 的 魔方 可 以 通过 对 折 和 旋转 标准 方 阵 得 到 。 另 外 ， 只 要 在 每 个 格 中 加 
上 相同 的 数 ， 仍 可 得 到 一 个 魔方 。 知 道 了 这 一 点 后 ， 我 们 又 可 以 推出 “18 ”游戏 的 致胜 策略 。 其 中 ， 
待 选 数 是 从 下 面 集合 选 出 的 ; 
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{2, 3, 4, 5, 6, 7, 8, 9, 10} 
类 似 地 ， 在 “21” 游 戏 中 ， 待 选 数 的 集合 是 ; 

{3, 4, 5, 6, 7, 8, 9, 10, 11} 

我 们 现在 可 以 归纳 出 “15 + 3N” 游 戏 的 致胜 策略 ， 其 中 N 是 自然 数 1，2， 3，…。 这 是 通过 把 它 
们 与 一 个 一 字 棋 棋盘 类 比 ， 而 它 又 与 具有 以 下 值 的 魔方 类 比 : 

{1+N, 2+N, 3+N, 4+N, 5+N, 6+N, 7+N, 8+N, 9+N} 

类 比 “3 阶 方 阵 ” 用 于 走 三 步 的 游戏 ， 通 过 归纳 ， 我 们 可 以 找到 更 高 阶 的 魔方 用 于 走 更 多 步 的 游 
戏 。 例 如 ， 如 下 的 4 阶 魔方 : 











16 3 2 13 

5 10 11 8 

9 6 7 12 
| 

4 15 14 1 











通过 对 照 一 字 横 ， 可 以 助 你 赢得 四 步 “34” 游 戏 。 与 3 阶 标准 方 阵 只 有 一 种 不 同 ， 四 阶 标 准 方 阵 共有 
880 种 。 这 使 得 我 们 可 以 玩 更 多 的 游戏 。 

类 比 推理 是 常识 推理 的 重要 组 成 部 分 ， 这 对 计算 机 (或 者 对 小 孩子 ) 来 讲 是 非常 困难 的 。 类 比 的 
另 一 个 应 用 是 用 于 学 习 。 


生成 与 验证 


另 一 种 推理 方法 是 人 工 智能 中 的 一 种 经 典 方法 一 一 生成 与 验证 (Generate-and-Test)， 这 种 方法 首 
先生 成 一 种 可 能 解 ， 然 后 进行 验证 ， 看 所 提出 的 解 是 否 满 足 所 有 条 件 。 若 满足 ， 则 退出 ， 否 则 再 生成 
一 个 新 解 ， 再 去 验证 ， 如 此 下 去 。 这 种 方法 在 建 于 1965 年 的 第 一 个 专家 系统 DENDRAL 中 被 应 用 ， 用 
以 帮助 识别 一 个 有 机 分 子 的 构造 。 数 据 从 质谱 仪 所 提供 的 未 知 样本 中 获取 ， 并 被 输入 到 DENDRAL 
中 ， 以 生成 所 有 可 能 产生 该 未 知 光谱 图 的 分 子 结构 ; DENDRAL 接 下 来 对 那些 最 有 可 能 的 结构 ， 通 过 
模拟 出 它们 的 质谱 图 ， 并 与 原始 数据 比较 ， 来 进行 验证 。 另 外 一 个 使 用 生成 与 验证 的 程序 是 AM (人 
工 数 学 家 Artificial Mathematician) ， 它 用 来 推出 新 的 数学 概念 。 

为 了 减少 可 能 解 的 巨大 数目 ， 生 成 与 验证 常常 与 规划 程序 一 起 使 用 以 限制 生成 的 可 能 解 ， 这 种 改 
进 后 的 方法 叫 “ 规 划一 生成 一 验证 ” (plan-generate-test) ， 并 在 很 多 系统 中 应 用 以 提高 效率 。 例 如 ， 当 
病人 被 确诊 后 ， 医 疗 诊断 专家 系统 MYCIN 就 具有 规划 治疗 处 方 的 功能 。 规 划 (plan) 实际 上 就 是 基于 
已 有 证 据 的 支持 ， 找 出 那些 联结 着 “问题 ”和 “和 解 ”( 目 标 ) 的 规则 或 推理 链 。 实 现 规划 的 最 有 效 方法 
是 同时 从 事实 正 向 推理 和 从 目标 反 向 推理 。 

MYCIN 的 规划 程序 首先 将 一 些 对 病人 来 讲 作 用 明显 的 药 列 成 具有 优先 级 的 清单 。 为 了 减少 药 之 间 
不 必要 的 相互 作用 ， 即 使 病人 患 有 几 种 不 同 的 疾病 ， 最 好 开 给 病人 的 药 尽 可 能 少 些 。 生 成 程序 从 规划 
程序 开 列 的 优先 级 清单 中 生成 一 些 子 清单 ， 如 果 可 能 的 话 ， 子 清单 只 有 一 两 种 药 就 够 了 。 然 后 ， 在 做 
出 一 个 决定 给 病人 开 药 之 前 ， 这 些 子 清单 将 被 测试 对 疾病 的 效果 、 病 人 的 过 敏 史 以 及 其 他 一 些 因素 
等 等 。 

生成 与 验证 也 可 看 作 是 规则 的 基本 推理 模式 。 如 果 规 则 的 条 件 满 足 ， 它 就 生成 一 些 动作 ， 比 如 新 
事实 。 然 后 推理 机 就 测试 这 些 事实 ， 看 它们 是 否 满足 知识 库 中 规则 的 条 件 ， 那 些 被 满足 的 规则 被 放 入 
议程 中 ,继而 具有 最 高 优先 级 的 规则 再 生成 它 的 动作 ， 然 后 再 测试 ， 如 此 下 去 。 这 样 ， 生 成 与 验证 就 
形成 了 一 条 可 能 会 得 出 正确 解 的 推理 链 。 
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溯 因 (abduction〉 推 理 是 一 种 在 诊断 系统 中 常用 的 方法 。 溯 因 法 的 图 解 有 点 像 假 言 推 理 。 但 实际 
上 两 者 相差 其 远 ， 如 表 3.15 所 示 。 
溯 因 是 我 们 在 第 3.6 PRAA Bich A A R31 滴 因 和 假 言 推理 的 比较 





法 。 尽管 湖 因 不 是 一 个 有 效 的 演绎 辩论 ， 但 它 是 一 个 很 有 m m Bows 
用 的 推理 方法 ， 且 已 被 用 于 专家 系统 中 。 与 同样 不 是 有 效 二 二 
逻辑 辩论 的 类 比 一 样 ， 淹 因 可 作为 推理 中 一 个 有 用 的 启发 a o 


式 规则 。 也 就 是 说 ， 当 演绎 法 在 我 们 的 推理 中 不 适用 时 ， p 
溯 因 法 就 可 能 会 显得 有 用 了 ， 但 这 并 不 保证 说 一 定 能 行 。 


<q 


类 比 、 生 成 与 验证 、 测 因 都 不 是 演绎 的 ， 也 都 不 保证 一 定 能 行 。 从 正确 的 假设 ， 这 些 方法 不 一 定 能 得 
出 正确 的 结论 。 但 不 管 怎样 ， 这 些 方法 都 能 够 通过 生成 合理 的 假设 ， 来 帮助 缩小 搜索 的 范围 。 这 些 合 


理 的 假设 还 可 被 用 于 演绎 。 

溯 因 有 时 候 是 指 根据 观察 到 的 现象 推出 最 佳 的 解释 。 作 为 一 个 例子 ， 考 虑 如 下 规则 : 

IF x EAR, THEN x 是 动物 

IF x 是 动物 ,THEN x 是 哺乳 动物 
如 果 我 们 知道 Clyde 是 一 只 哺乳 动物 的 话 ， 我 们 能 否 得 出 Clyde 是 一 头 大 象 呢 ? 

回答 这 个 问题 ， 要 看 是 在 现实 世界 中 还 是 在 专家 系统 中 来 进行 讨论 。 在 现实 世界 中 我 们 没有 任何 
确信 和 度 做 出 这 样 的 结论 。Clyde 可 以 是 一 只 狗 、 一 只 猫 、 一 头 牛 以 及 除 大 象 以 外 的 其 他 任何 哺乳 动物 。 
事实 上 ， 有 如 此 多 的 动物 ， 如 果 没 有 关于 Clyde 的 任何 信息 ,那么 ，Clyde 为 大 象 的 概率 会 非 
常 低 。 

然而 在 一 个 只 有 前 述 规则 的 专家 系统 中 ， 通 过 漳 因 我 们 可 以 百分之百 地 说 ， 如 果 Clyde 是 一 只 哺 
乳 动 物 的 话 ， 那 么 Cyd 是 一 头 大 象 。 这 个 推理 基于 一 个 封闭 世界 假设 (closed-world-assumption), ， 在 
该 假设 中 ， 我 们 假定 在 专家 系统 的 封闭 世界 之 外 不 存在 任何 东西 。 凡 是 在 封闭 世界 不 能 证 明 的 事物 就 
是 假 的 ， 在 封闭 世界 假设 下 ， 所 有 的 可 能 性 都 是 已 知 的 。 因 为 专家 系统 中 只 有 上 述 两 条 规则 ， 并 且 只 
有 大 象 才能 是 哺乳 动物 ， 所 以 如 果 Clyde 是 哺乳 动物 的 话 ， 那 么 它 百分之百 是 一 头 大 象 了 。 

假设 我 们 加 入 以 下 第 三 条 规则 : 

IF x 是 狗 THEN x 是 动物 

我 们 仍然 可 以 在 专家 系统 的 封闭 世界 假设 下 去 考虑 问题 ， 然 而 此 时 得 出 Clyde 是 大 象 的 确信 和 度 就 
没有 百分之百 。 我 们 只 能 说 Clyde 要 么 是 大 象 要 么 是 狗 。 

如 果 要 确定 是 两 者 中 的 哪 一 个 ， 就 必须 要 有 更 多 的 信息 。 例 如 ， 有 另外 一 条 规则 : 

IF x fe fi] THEN x ZR 
并 且 有 证 据 Clyde 会 内， 所 有 规则 经 修改 后 如 下 : 

(1) IF x 是 动物 ,THEN x 是 哺乳 动物 

(2) IF x SUK, THEN x 是 动物 

(3) IF x 是 狗 ,THEN x 会 喘 

(4) IF x 是 大 象 ,THEN x 是 动物 
现在 我 们 就 可 以 用 1) 、(2) (3) 组 成 一 条 湖 因 推理 的 反 向 链 ， 并 说 明 Clyde 一 定 是 一 只 狗 。 

这 里 的 潮 因 反 向 链 同 习惯 上 的 反 向 链 意义 是 不 同 的 ， 反 向 链 意 味 着 我 们 试图 找 出 证 据 来 证 明 假设 。 
反 向 链 可 以 用 来 证 明 Clyde 是 一 只 哺乳 动物 。 当 然 ， 在 我 们 的 小 型 系统 中 已 没有 其 他 的 可 能 性 。 然 而 ， 
在 其 他 分 类 问题 中 ， 可 能 会 加 入 爬虫 、 乌 类 等 动物 。 

如 果 已 知 Clyde 是 一 只 哺乳 动物 ， 那 么 可 以 用 淹 因 法 来 确定 Clyde 是 一 头 大 象 还 是 一 只 狗 。 如 果 已 
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知 Clyde 是 一 头 大 象 ， 而 我 们 想 知道 它 是 否 是 哺乳 动物 ， 那 么 可 以 用 正 向 推理 。 可 见 ， 选 用 什么 推理 
方法 ， 取 决 于 你 想 推 出 什么 。 因 为 正 向 链 就 是 演绎 ， 所 以 只 有 其 结论 才 保证 是 有 效 的 。 表 3.16 概括 了 
三 种 推理 技术 的 目的 。 

表 3.16 正 向 链 、 反 向 链 、 滴 因 法 的 目的 





推理 技术 F ORG 自 的 

正 向 链 事实 基于 事实 的 结论 

反 向 链 未 确定 的 结论 支持 结论 的 事实 

测 因 法 已 确定 的 结论 可 能 引致 结论 的 事实 


许多 人 工 智能 和 专家 系统 在 解决 诊断 性 问题 时 采用 了 基于 框架 的 淹 因 法 。 在 这 些 系统 中 ， 知 识 库 
中 包含 一 些 疾 病 与 症状 之 间 的 因果 联系 (causal association)。 在 推理 时 ， 使 用 生成 与 验证 法 来 生成 假设 
疾病 。 


非 单调 推理 


一 般 来 说 ， 若 在 -个 逻辑 系统 中 增加 一 条 公理 ， 则 在 系统 中 应 能 推导 出 更 多 的 定理 来 ， 这 是 因为 
有 更 多 的 公理 可 供 推理 。 这 种 增加 了 公理 后 ， 系 统 中 定理 便 随 着 增加 的 性 质 称 为 单调 性 (monotonici- 
ty) ， 而 相应 的 系统 ， 比 如 演绎 逻辑 就 称 为 单调 系统 (monotonic system). 

然而 ， 假 如 新 引入 的 公理 与 原 有 的 公理 部 分 或 完全 矛盾 的 话 ， 问 题 就 会 出 现 了 。 在 这 种 情形 下 ， 
原来 已 证 的 定理 可 能 就 不 成 立 了 。 因 此 ,在 非 单调 系统 (nonmonotonic system) 中 ， 公 理 增加 并 不 意味 
着 定理 会 随 之 增加 。 

非 单调 性 的 概念 在 专家 系统 中 有 着 非常 重要 的 应 用 。 随 着 一 些 新 事实 的 产生 一 一 类 似 于 新 证 明 的 
定理 一 一 单调 专家 系统 就 会 不 断 建立 新 的 事实 。 如 果 有 一 个 或 多 个 事实 变 为 假 ， 由 于 单调 系统 不 能 对 
公理 和 定理 的 真 值 改变 进行 处 理 ， 一 个 大 的 问题 就 会 出 现 。 作 为 一 个 非常 简单 的 例子 ， 假 设 有 一 个 断 
定时 间 的 事实 ， 随 着 时 间 一 秒 一 秒 地 变化 ， 原 有 的 事实 可 能 不 再 成 立 ， 单 调 系统 是 不 能 处 理 这 种 情况 
的 。 另 外 一 个 例子 ,假设 有 一 个 事实 是 飞机 识别 系统 发 现 日 标 是 敌 机 。 后 来 ， 又 有 新 的 证 据 表明 那个 
目标 原来 是 友 方 的 。 在 单调 系统 中 ， 初 始 目 标 是 敌 机 是 不 能 改变 的 ， 而 非 单调 系统 则 允许 撤销 事实 。 

作为 另 一 个 应 用 ， 假 设 你 准备 写 一 个 专家 系统 的 解释 机 。 它 可 以 使 用 户 返回 到 先前 的 某 一 个 推理 
点 ， 探 索 “ 如 果 …… 会 怎样 ”问题 的 其 他 推理 路 径 。 那 么 在 这 一 个 推理 点 之 后 所 做 出 的 推理 就 必须 从 
系统 中 撤销 。 除 了 事实 外 ， 基 于 非 单调 性 ， 后 来 引入 的 规则 也 应 该 从 系统 中 去 掉 ， 并 必须 被 移 回 知识 
库 中 。 在 像 OPS5 这 样 的 系统 中 ， 还 会 产生 更 复杂 的 问题 ， 因 为 OPS5 会 在 运行 期 间 ， 在 规则 的 右 部 自 
动 创建 新 的 规则 。 基 于 非 单调 性 ， 在 推理 点 之 后 所 生成 的 任何 规则 也 都 必须 去 掉 。 这 样 记录 下 所 有 的 
推理 会 消耗 大 量 的 内 存 ， 也 大 大 降低 了 系统 的 速度 。 

为 了 支持 非 单调 性 ， 有 必要 为 每 个 事实 或 规则 附 上 一 个 依据 以 解释 确信 它 的 理由 。 每 当 进 行 一 次 
非 单调 判定 时 ， 系 统 就 检查 每 个 事实 或 规则 的 依据 是 否 仍 然 成 立 ， 并 尽 可 能 地 恢复 依据 成 立 的 已 去 掉 
规则 和 已 撤销 事实 。 

为 事实 提供 依据 的 问题 最 早 是 在 帧 问题 (frame problem) 中 提出 来 的 ， 这 里 的 帧 与 第 2 章 讨论 的 
框架 (frame) 是 两 个 不 同 的 概念 。 帧 问题 是 一 个 形象 的 词汇 ， 它 是 根据 问题 一 一 在 电影 的 “ 帧 ”中 如 
何 标识 哪些 东西 已 改变 或 没 改变 而 命名 的 。 放 电影 的 过 程 其 实 就 是 连续 地 将 一 幅 幅 静态 的 画面 放 到 屏 
幕 上 ， 每 幅 静 态 的 画面 叫做 “ 帧 ”。 当 我 们 每 秒 中 能 放 24 或 更 多 的 帧 时 ， 人 的 眼睛 就 分 辨 不 出 帧 之 间 
的 变化 ， 从 而 就 得 到 了 电影 效果 。 在 人 工 智能 中 讨论 的 “ 帧 问题 ”是 要 识别 一 段 时 间 内 环境 发 生 的 变 
化 。 作 为 一 个 例子 ,考虑 猴子 与 香蕉 问题 ， 假 设 猴 子 只 有 站 到 一 只 红色 的 箱子 上 才能 够 得 着 香 葵 ， 因 
此 它 要 做 的 动作 就 是 “把 红色 的 箱子 推 到 香 共 下 面 "。 现 在 帧 问题 就 是 我 们 怎么 知道 在 这 个 “ 推 ” 动 作 
之 后 箱子 还 是 红色 的 呢 ? 推 箱子 不 应 该 使 环境 发 生 改 变 。 但 是 ， 其 他 动作 如 “把 箱子 涂 成 蓝 色 ”将 改 
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变 环境 - 在 一 些 专家 系统 工具 中 把 “环境 ” 称 为 问题 世界 (world)， 它 由 一 组 相关 的 事实 组 成 。 一 个 
专家 系统 可 以 同时 记录 下 多 个 问题 世界 的 假设 推理 。 维 护 一 个 系统 正确 性 的 问题 称 为 “正确 性 维护 ” 
(truth maintenance)。 正 确 性 维护 ， 也 称 为 “基于 假设 的 正确 性 维护 ” (assumption-based truth mainte- 
nance) ， 它 对 于 撤销 无 依据 事实 以 保证 问题 世界 的 纯粹 性 是 必 不 可 少 的 。 

作为 非 单调 性 推理 的 一 个 简单 例子 ， 让 我 们 来 看 一 个 经 典 的 Tweety Si) (Tweety the bird). 在 
缺乏 其 他 信息 的 情况 下 ， 我 们 假设 既然 Tweety 是 一 只 鸟 ， 那么 Tweety 会 飞 。 这 是 默认 推理 (default 
reasoning) 的 一 个 例子 ， 它 类 似 于 框架 槽 中 的 默认 值 。 默 认 推 理 可 以 看 作 是 一 条 关于 规则 推理 的 规则 ， 
即 元 规则 (metarule) ， 比 如 : 

IFX 不 确定 ,并 且 

没有 证 据 反驳 和 

THEN 暂且 认为 了 成 立 
我 们 将 在 下 一 节 详 细 讨 论 元 规则 。 

对 于 我 们 的 Tweety 乌 问 题 ， 元 规则 具有 更 明确 的 形式 : 

XxX 为 规则 “所 有 鸟 都 会 飞 " 以 及 事实 “Tweety 是 一 只 鸟 ” 

Y 为 结论 Tweety 会 飞 ” 

这 可 以 表示 为 知识 库 中 的 一 条 规则 ， 即 

IFX 是 一 只 鸟 ,THENX 会 
同时 在 内 存 工 作 区 中 有 这 样 一 条 事实 : 

Tweety 是 一 只 鸟 
这 条 事实 与 已 有 的 规则 合 起 来 可 以 推出 Tweety 会 飞 。 

现在 问题 来 了 。 假 设 在 内 存 工作 区 中 加 入 了 一 个 事实 说 Tweety 是 一 只 企 鸡 。 我 们 知道 企 牲 是 不 能 
飞 的 ， 因 此 推理 Tweety 会 飞 是 不 正确 的 。 当 然 ， 在 系统 的 知识 库 中 必须 有 一 条 规则 来 描述 该 知识 ,或 
者 系统 忽略 掉 这 一 事实 。 

为 了 维护 系统 的 正确 性 ， 那 些 不 正确 的 推理 都 应 该 删 掉 。 然 而 如 果 有 其 他 推理 基于 这 些 错误 推理 
的 话 ， 这 还 不 够 。 也 就 是 说 ， 其 他 规则 有 可 能 把 这 些 错 误 的 推理 作为 证 据 进行 了 另 一 些 推理 。 这 是 
“正确 性 维护 ”的 一 个 问题 。 推 理 Tweety 会 飞 是 基于 默认 推理 的 一 个 合 情 推理 (plausible inference， 意 
思 是 “不 是 不 可 能 ")， 这 将 在 第 4 章 中 进一步 讨论 。 

一 种 允许 有 非 单调 推理 的 方法 是 定义 一 个 句子 算 符 M，M 的 非 形 式 化 定义 为 “是 相 容 的 "。 例 如 ;: 


(Y x) [Bird(x) a M(Can_fly(x))—- Can_fly(x) ] 


可 以 陈述 为 :“ 对 任意 x， 若 x 是 一 只 鸟 ， 且 这 与 鸟 会 飞 是 相 容 的 ， 则 x 会 飞 "。 一 个 更 加 通俗 的 说 法 是 
“大 多 数 鸟 会 飞 "。 术 语 “ 是 相 容 的 ”意味 着 与 其 他 知识 没有 矛盾 。 然 而 ， 这 种 解释 已 遭 到 批评 ， 因 为 
它 实际 上 是 说 只 有 那些 被 推出 不 能 飞 的 鸟 才 被 认为 是 不 会 飞 的 鸟 。 这 是 一 个 自觉 推理 (autocpistemic 
reasoning) ， 其 宁 面 意思 是 根据 你 自己 的 知识 进行 推理 。 默认 推理 和 自觉 推理 都 可 以 用 于 常识 推理 
(commonsense reasoning)。 常 识 推 理 对 人 类 来 说 十 分 简单 ， 但 对 计算 机 则 非常 困难 。 

自觉 推理 是 指 根据 不 同 于 通常 知识 的 自 有 知识 作出 推理 。 一 般 来 讲 ， 人 们 可 以 在 这 方面 做 得 很 好 ， 
因为 人 们 知道 自己 的 知识 有 限 。 例 如 ， 假 设 一 个 完全 陌生 的 人 来 到 你 面前 自称 是 你 的 配偶 ， 你 只 要 不 
是 患 了 失忆 症 的 话 你 会 立刻 知道 这 是 假 的 ， 因 为 你 没有 关于 陌生 人 的 任何 知识 。 自 觉 推理 的 一 般 元 规 
则 是 : 

IF 我 没有 关于 X 的 知识 

THEN X 是 假 的 


注意 ， 自 觉 推理 是 如 何 依赖 于 封闭 世界 假设 的 。 所 有 未 知 的 事实 都 认为 是 假 的 。 在 自觉 推理 中 ， 








112 HIF 





封闭 世界 就 是 你 所 具有 的 全 部 知识 。 

自觉 推理 和 默认 推理 都 是 非 单 调 的 。 但 是 两 者 不 同 ， 默 认 推 理 之 所 以 非 单调 是 因为 它 是 可 撤销 的 
(defeasible) ， 术 语 “ 可 撤销 的 ”意思 是 所 有 的 推理 都 是 暂时 的 ， 当 增加 新 的 信息 后 这 些 推理 可 能 要 被 
撤销 。 然 而 纯粹 的 自觉 推理 是 不 可 撤销 的 ， 因 为 封闭 世界 假设 宣称 所 有 的 正确 知识 都 是 已 知 的 。 辟 如 
说 ， 由 于 一 个 结 了 婚 的 人 肯定 知道 他 的 配偶 是 谁 (除非 想 忘记 )， 因 而 当 一 个 完全 陌生 的 人 跑 来 说 是 他 
的 配偶 时 ， 他 是 不 会 接受 的 。 由 于 人 们 知道 他 们 的 记忆 并 不 是 百分之百 的 准确 ， 因 此 他 们 并 不 依赖 纯 
粹 的 自觉 推理 。 当 然 ， 计 算 机 不 会 存在 这 样 的 问题 。 

自觉 推理 之 所 以 非 单 调 是 因为 自觉 语句 的 意义 是 上 下 文 相关 的 (context-sensitive)， 术 语 上 下 文 有 
关 意 思 是 语 境 不 同 ， 意 义 也 将 不 同 。 作 为 一 个 上 下 文 相关 的 简单 例子 ， 考 虑 单词 “read” 在 以 下 两 个 
句子 中 的 发 音 ; l 


I have read the book 
I will read the book 


这 里 “read” 一 词 的 发 音 是 上 下 文 有 关 的 。 
现在 让 我 们 来 看 一 个 系统 ， 它 包括 下 面 两 条 公理 : 


(V x) [Bird(x) a M(Can_fly(x))~> Can_fly(x)] 
Bird (Tweety) 


在 这 个 逻辑 系统 中 ，Can _fly (Tweety) 是 通过 对 Tweety 和 蕴含 式 中 的 义 进行 合 一 而 得 出 的 一 条 定理 。 

现在 假定 增加 一 条 新 的 公理 ; Tweety 不 会 飞 ， 则 与 先前 推 得 的 定理 矛盾 。 

~Can_fly (Tweety) 
由 于 现在 M (Can _ fly (Tweety)) 与 新 的 公理 不 相 容 ， 所 以 M 算 符 的 运算 结果 就 要 改变 。 在 这 三 条 公 
理 的 新 语 境 下 ，M 算 符 对 Can _ fly (Tweety) 的 结果 不 是 TRUE， 因为 它 与 新 公理 冲突 。 在 新 语 境 下 ， 
M 算 法 的 返回 值 是 FALSE， 于 是 式 中 的 合 取 项 也 为 FALSE。 因 此 就 推 不 出 Can fly (Tweety) 这 条 定 
理 ， 也 就 没有 冲突 了 。 

通过 规则 实现 上 述 推理 的 一 种 方式 是 : 

IFxfi-AS 是 x 是 一 只 典型 的 鸟 

THEN x 会 飞 

IF x 是 一 只 鸟 H xE- Hips 

THEN x 不 会 飞 

Tweety 是 一 只 岛 

Tweety 是 一 只 非典 型 的 鸟 
注意 这 个 系统 不 会 得 到 无 效 的 结论 Can _ fly (Tweety)， 而 且 完 全 杜绝 了 错误 规则 的 激活 。 这 比 起 使 用 
一 条 规则 和 一 条 特殊 公理 一 Can _ fly (Tweety) 来 说 ， 是 一 个 更 加 有 效 的 正确 性 维护 方法 。 现 在 我 们 得 
到 了 一 个 更 一 般 的 系统 ， 这 个 系统 能 更 容易 地 处 理 其 他 像 能 鸟 一 样 不 能 飞 的 鸟 ， 而 不 需要 不 断 增加 新 
的 推理 ， 这 正 是 系统 所 追求 的 目标 。 
3.16 元 知识 

元 一 DENDRAL 程序 使 用 归纳 法 来 推导 新 的 化 学 结构 规则 。 它 是 从 人 类 专家 中 获取 分 子 结构 规则 
以 克服 知识 瓶颈 问题 的 一 个 尝试 。 元 一 DENDRAL 程序 在 重新 发 现 已 知 规则 并 推出 新 规则 方面 非常 
成 功 。 

作为 一 个 例子 ， 以 下 的 元 规则 取 自 MYCIN 的 知识 获取 程序 TEIRESIAS, MYCIN 是 一 个 诊断 血 
液 感染 和 脑膜 炎 的 专家 系统 。 


元 规则 2 
IF 
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病人 是 感染 体 ,并 且 

有 些 规则 在 它们 的 前 提 中 提 到 了 假 单 细胞 菌 属 ,并 且 

有 些 规则 在 它们 的 前 提 中 提 到 了 克 雷 白 杆 菌 属 

THEN 

有 证 据 表明 (0.4) 前 者 应 先 于 后 者 使 用 
(在 规则 动作 部 分 的 数字 0.4 表示 一 种 确定 程度 ， 这 将 在 后 面 的 章节 讨论 ) 

TEIRESIAS 从 专家 那里 交互 地 获取 知识 。 若 MYCIN 的 诊断 不 正确 ， 那 么 TEIRESIAS 将 带领 专 
家 沿 不 正确 的 推理 链 回 溯 至 专家 认为 是 不 正确 推理 的 起 始点 - 在 沿 推理 链 回溯 的 同时 ，TEIRESIAS 和 
专家 一 起 交互 作用 ， 以 修改 不 正确 的 规则 或 获得 新 的 规则 。 

有 关 新 规则 的 知识 并 不 是 立即 就 存 人 MYCIN 中 。 相 反 ，TEIRESIAS 先 要 检查 新 的 规则 是 否 与 类 
似 的 规则 兼容 。 例 如 ， 若 有 一 条 新 的 规则 描述 人 体 如 何 受到 感染 ， 而 其 他 已 接受 的 规则 中 有 一 条 件 要 
素 指 明了 进入 体内 的 人 口 ， 则 新 的 规则 园 样 要 有 这 一 条 件 要 素 。 若 新 的 规则 中 并 未 表明 进入 的 人 口 ， 
那么 TEIRESIAS 将 就 此 差异 对 用 户 提出 质疑 。TEIRESIAS 中 有 一 个 相似 规则 的 规则 模型 (rule mod- 
el) ， 并 试图 使 新 规则 适合 其 规则 模型 。 换 句 话说 ， 规 则 模型 是 TEIRESIAS 关于 其 自身 知识 的 知识 。 
一 个 在 人 们 生活 中 会 出 现 的 类 似 情 形 是 ， 你 去 汽车 商 那儿 买 一 部 新 车 ， 而 汽车 商 努 力 想 要 将 一 部 有 三 
个 轮子 的 车 卖 给 你 。 

TEIRESIAS 的 元 知识 有 两 种 类 型 。 前 面 讲述 过 的 元 规则 2 是 一 个 说 明 如 何 使 用 规则 的 控制 策略 。 
与 之 相反 ， 元 知识 的 规则 模型 则 决定 新 规则 是 否 具备 了 可 进入 知识 库 的 恰当 形式 。 在 基于 规则 的 专家 
系统 中 ， 将 确定 新 规则 的 形式 是 否 正确 这 一 工作 称 为 规则 的 验证 (verification)。 将 确定 一 正确 推理 链 
是 否 导出 正确 答案 这 一 工作 称 为 证 实 (validation)。 证 实 与 验证 密 不 可 分 ， 因 此 通常 用 缩写 词 V&V 指 
代 两 者 。 在 软件 工程 中 关于 上 述 术 语 的 更 通俗 定义 为 ; 

验证 :“ 我 在 以 正确 的 方法 构造 产品 吗 ?” 

证 实 :* 我 在 构造 正确 的 产品 吗 ?” 

V&V 将 在 以 后 的 章节 中 更 为 详细 地 讨论 。 


3.17 隐 马 尔 可 夫 模 型 


作为 元 知识 的 一 个 现代 例子 ， 考虑 机 器 人 的 路 径 规划 。 如 果 机 器 人 不 具备 一 个 全 球 定位 系统 
(GPS) ， 或 者 不 够 精确 ， 例 如 通常 商业 系统 只 能 确定 在 3 米内 的 位 置 ， 那么 必须 使 用 其 他 的 方法 。 一 
个 好 的 方法 是 使 用 马尔 可 夫 决 策 过 程 (Markov decision process, MDP) (Kaelbling 98). 也 有 其 他 方法 
使 用 经 典 的 A“ 算法、Kalman 过 滤 法 和 其 他 技术 (Lakemeyer 03)。 

在 现实 世界 中 总 是 存在 着 不 确定 性 ， 而 纯 逻 辑 在 存在 不 确定 性 时 不 大 适用 。 在 状态 、 参 数 和 规划 
需求 只 存在 部 分 信息 或 具有 隐藏 信息 的 情况 下 ，MDP 更 具有 现实 性 。 这 种 处 理 过 程 不 仅仅 适 于 物理 路 
径 规划 ， 而 且 还 适 于 其 他 规划 ， 例 如 不 完整 环境 下 的 石油 勘探 、 运 输 后 勤 以 及 传感器 可 能 出 现 故 障 和 
问题 的 工厂 流程 控制 。 当 进行 核电 站 过 程控 制 时 ， 这 种 过 程控 制 显得 尤为 重要 。 

机 器 人 探索 另 一 个 星球 表面 ， 例 如 火星 ， 就 是 只 有 部 分 信息 出 现 的 最 好 例子 。 如 果 目 的 是 到 达 某 
块 岩 石 ， 但 有 部 分 路 径 不 明 时 ， 机 器 人 必须 在 约束 条 件 内 ， 例 如 能 源 供应 限制 ， 或 者 当 走 人 深 坑 无 法 
回 到 正确 路 径 等 限制 下 找到 最 优 方法 。 

一 个 MDP 可 以 定义 为 元 组 | 状态 ,动作 ， 转 换 ， 回 报 1。 更 形式 地 我 们 可 以 写作 MDP= |S, A, 
T，Ri， 其 中 ， 

S 是 环境 状态 集合 ; 

A 是 动作 集合 ; 

T: Sx A=TI (s); 其 中 开 称 为 状态 转换 函数 (state-transition funetion)， 决 定 某 个 动作 后 的 下 一 
个 状态 。“x” 是 笛 卡 儿 积 符号 。I[ 是 所 有 可 能 状态 和 动作 的 集合 。 通 常 有 一 些 并 不 可 行 或 不 必要 ,但 
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是 笛 卡 儿 操 作 不 会 筛选 出 最 优 结果 。 为 了 决定 哪些 行为 可 以 得 到 较 佳 的 状态 ， 例 如 ， 机 器 人 不 能 停留 
在 死机 状态 ， 这 就 需要 给 出 回报 。 

R: SxA>R (S); 其 中 R 是 回报 函数 (reward function)， 提 供 立 即 回报 给 代理 (agent) 以 便 采 取 
某 个 动作 。 代 理 一 词 用 来 指 代 蔡 其 他 实体 做 出 动作 的 实体 。 因 此 ， 机 器 人 是 在 其 他 行星 上 的 人 类 代理 。 
不 同 的 状态 会 给 出 不 同 的 期 望 回报 。 在 寻找 到 达 目 标的 最 优 路 径 中 ， 最 优 的 一 种 定义 就 是 使 所 有 期 望 
回报 的 总 和 最 大 。 立 即 回报 可 以 马上 得 到 ， 但 是 回报 总 和 必须 由 代理 是 否 成 功 到 达 目 标 决定 。 例 如 ， 
如 果 机 器 人 向 右 转 会 找到 一 条 清晰 的 路 径 。 不 幸 的 是 这 条 清晰 的 路 径 不 会 到 达 目 标 岩 石 。 这 有 点 像 前 
面 讨论 的 验证 ， 而 这 里 的 证 实意 味 着 机 器 人 已 经 到 达 正 确 的 岩石 。 在 下 一 章 ， 我 们 将 看 到 更 多 的 实用 
函数 形式 的 回报 例子 以 及 用 由 叶 斯 定理 处 理 不 确定 性 的 例子 。 

在 下 面 情 况 下 隐 马 尔 可 夫 模 型 (HMM) 非常 有 用 ，(1) 机 器 人 不 能 肯定 自己 所 处 的 位 置 ， 一 个 不 
确定 的 状态 ， 或 者 2) 走 哪 一 条 路 ， 一 个 不 确定 的 参数 。 现 在 已 有 基于 HMM 的 软件 如 HTK 工具 包 
(http: //htk.eng.cam.ac.uk/)。 这 个 软件 已 经 成 功用 于 语音 识别 、 语 音 合成 、 字 符 识 别 和 DNA 定 序 。 
一 旦 通过 基因 定 序 确定 了 生物 结构 ， 就 可 以 合成 或 者 修改 以 识别 和 治疗 疾病 。 其 他 的 软件 ， 例 如 HM- 
MER 是 一 个 免费 的 HMM 软件 ， 用 于 蛋白 质 序列 分 析 (http: //hmmer. wustl.edu/)o 

广 受 欢迎 的 Matlab 有 一 个 HMM TRA, 支持 不 同类 型 的 科学 推理 ， 特 别 适用 于 信号 分 析 
(http: //www.ai.mit.edu/~murphyk/Software/HMM/hmm.html)。 经 典 的 例子 是 决定 音素 ， 这 样 当 用 
户 对 着 麦克 风 说 话 生 成 一 个 声学 信号 给 计算 机 分 析 时 就 能 决定 其 语音 单词 。 尽 管 多 种 技术 ,如 ANSE 
经 可 以 处 理 分 段 的 或 发 音 缓 慢 的 语音 ,但 是 不 进行 训练 就 对 任何 人 发 出 的 连续 的 语音 进行 识别 (独立 
的 说 话 人 语音 识别 ) 仍然 是 一 大 难题 。 

路 径 规划 也 是 许多 视频 游戏 的 基本 问题 ， 例 如 一 个 角色 需要 从 一 个 地 方 到 另 一 个 地 方 但 是 有 墙 或 
障碍 物 阻碍 。 这 时 候 通 常 使 用 A* 算法 。 


3.18 小 结 


本 章 讨论 了 专家 系统 中 通常 使 用 的 推理 方法 。 推 理 在 专家 系统 中 尤为 重要 ， 因 为 它 是 专家 系统 解 
决 问题 的 技术 。 另 外 还 讨论 了 树 、 图 、 格 在 知识 表示 中 的 应 用 。 并 且 举 例 说 明了 这 些 结构 在 推理 中 的 
优点 。 

演绎 逻辑 的 讨论 从 简单 的 三 段 论 逻辑 开始 。 接 着 讨论 了 命题 逻辑 和 一 阶 谓词 逻辑 。 真 值 表 及 推理 
规则 被 描述 为 证 明定 理 和 语句 的 方法 。 此 外 还 提 到 了 你 辑 系统 的 一 些 特性 ， 如 完备 性 、 合 理性 和 可 判 
定性 等 。 

本 章 还 讨论 了 在 命题 逻辑 和 一 阶 谓 词 逻辑 中 证 明定 理 的 归结 方法 。 举 例 说 明了 把 一 个 合式 公式 转 
化 成 子 名 形式 的 9 SER. TEM w 芷 转化 为 子 句 形式 的 内 容 中 讨论 了 斯 柯 伦 化 、 前 束 范式 和 合 一 等 。 

本 章 还 讨论 了 推理 的 另 一 个 有 力 的 方法 一 一 类 比 法 。 尽 管 由 于 实现 上 的 困难 ， 它 并 没有 被 广泛 地 
应 用 于 专家 系统 ， 但 类 比 法 经 常 为 人 们 所 使 用 ， 在 专家 系统 的 设计 中 应 予以 考虑 。 此 外 ， 在 MYCIN 
中 讨论 了 生成 与 验证 以 及 它 的 应 用 例子 。 在 TEIRESAS 中 对 元 知识 的 应 用 以 及 它 与 专家 系统 的 验证 和 
证 实 之 间 的 关系 也 进行 了 讨论 。 
习题 
3.1 写 一 个 可 自学 习 的 判定 树 程序 。 使 用 图 3.3 的 动物 知识 对 它 进行 教学 。 

3.2 写 一 个 程序 ， 可 以 自动 把 存储 在 二 又 判定 树 里 面 的 知识 翻译 成 IF THEN 类 型 的 规则 。 用 习题 

3.1 中 的 动物 判定 树 来 测试 它 。 

3.3 通 一 个 包括 了 图 3.4 草莓 知识 的 语义 网 络 。 
3.4 画 一 个 状态 图 用 来 表示 经 典 的 农民 、 狐 狸 、 山 羊 、 白 菜 问 题 的 解决 办 法 。 在 该 问题 中 ， 有 一 个 农 

民 ， 一 只 狐狸 ， 一 只 山羊 和 一 棵 白菜 在 河 的 一 边 。 只 能 用 一 般 船 来 把 他 们 运 到 河 对 岸 。 船 一 次 只 











3.5 


3.6 


3.7 


3.8 


3.9 


可 以 运 他 们 中 的 两 样 (只 有 农民 可 以 划船 )。 如 果农 民 不 在 ， 而 狐狸 和 山羊 被 留 在 一 起 ， 狐 狸 会 
吃 掉 山 羊 。 而 如 果 出 羊 和 白菜 单独 留 在 一 起 ， 山 羊 会 吃 掉 白菜 。 
画 一 个 状态 图 解决 下 面 的 结构 化 旅行 问题 。 

(a) 有 3 种 支付 方法 : 现金 、 支 票 和 记 账 

(b) 旅游 者 的 兴趣 : 阳光 、 雪 

(c) 根据 旅游 者 的 兴趣 和 钱 有 4 个 可 能 的 目的 地 

(d) A 3 种 交通 工具 

写 出 IF…THEN 规则 ， 它 们 根据 旅游 者 的 兴趣 和 钱 来 给 出 目的 地 的 建议 。 挑选 实际 的 目的 地 并 
查 明 从 你 所 在 的 地 方 到 目的 地 所 需 的 花费 。 

判断 下 列 辩 论 是 有 效 的 还 是 无 效 的 。 

(a) p>q, ~qrr,r;..p 

(b) ~pVaq,p*(rAs),s™q;..qVr 

(c) p*(q>r),g3..per 

使 用 文 氏 图 的 判定 过 程 ， 判 断 下 列 三 段 论 是 否 有 效 。 

(a) AEE-4 

(b) A001 

(c) ORO-3 

(d) AAI-1 

(e) OAI-2 

iE TW EAEE EER, FE AH 

(a) 复杂 合并 两 难 推理 (Complex Constructive Dilemma) 


Pg 
rs 


pVr 
.gqVs 
(b) 复杂 分 离 两 难 推理 (Complex Destructive Dilemma) 


pg 

rs 
~qV~s 
.~pV ~r 


(c) 简单 分 离 两 难 推 理 (Simple Destructive Dilemma) 


“~p 
(d) 取 反 (Inverse) 推论 
| Samat 
Pp _ 
-~g 
从 下 列 前 提 中 推出 结论 。 选 自 Lewis Carroll 的 《Alice’ s Adventures in Wonderland). 
(a) 这 个 房间 中 所 有 标 有 日 期 的 信 都 是 用 蓝 色 纸 写 的 。 
(b) 除了 用 第 三 人 称 写 的 之 外 ， 没 有 一 封 信 是 用 黑色 墨水 写 的 。 
(c) 我 没有 把 我 可 以 读 的 信和 归档 。 
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(d) 没有 一 封 写 在 单独 一 页 纸 上 的 信和 是 不 标 日 期 的 。 
(e) 所 有 没有 划 过 的 信 ， 都 是 用 黑 墨水 写 的 。 
(f) 所 有 Brown 写 的 信 都 以 Dear Sir 开头 。 
(g) 所 有 用 蓝 色 纸 写 的 信 都 归档 了 。 
(h) 没有 一 封 写 在 多 于 一 页 纸 上 的 信 ， 被 划 过 。 
(i) 没有 一 封 以 Dear Sir 开头 的 信 ， 用 第 三 人 称 写 。 
提示 : 使 用 逆 否 定律 并 定义 : 
A= 以 Dear Sir 开头 ”B= 被 划 过 ”C= 标 日 期 的 
D= 已 归档 的 ”EE= 用 黑 墨 水 写 ”下 = 用 第 三 人 称 写 
G= 我 可 以 读 的 信 ” 晶 = 写 在 蓝 色 纸 上 的 信 ”I= 写 在 单 页 纸 上 的 信 
J= Brown 写 的 信 
3.10 用 谓词 逻辑 给 出 下 列 三 段 论 的 一 个 形式 证 明 。 
没有 一 个 软件 是 有 质量 保证 的 
所 有 程序 是 软件 
… 没 有 一 个 程序 是 有 质量 保证 的 
3.11 利用 下 列 定义 写 出 带 量词 的 一 阶 谓词 逻辑 公式 。 
P (x) =x 是 一 个 程序 员 
S (x) =x 是 聪明 的 
L (x, y) =x BK y 
(a) 所 有 程序 员 都 是 聪明 的 
(b) 有 些 程序 员 是 聪明 的 
(c) 没有 程序 员 是 聪明 的 
(d) 有 些 人 不 是 程序 员 
(e) 不 是 每 个 人 都 是 程序 员 
O 每 个 人 都 不 是 程序 员 
(g) 每 个 人 都 是 程序 员 
(h) 有 些 程序 员 不 聪明 
(i) 有 一 些 程序 员 
(j) 每 个 人 都 喜欢 某 人 
提示 : 利用 附录 B 
3.12 考虑 下 列 谓词 逻辑 辩论 : 
马 是 一 种 动物 
所 以 ， 一 匹 马 的 头 是 一 只 动物 的 头 。 给 出 下 列 定义 : 
H(x,y) =x 是 了 Y 的 头 
A(x) =x 是 一 种 动物 
S(x) =x 是 一 匹 马 
前 提 和 结论 是 : 
(Yx)(S(x) 一 RCx) ) 
(Vx){[(3y) (SC(y) AH(x,y))} [C4 2) (A(z) AG, 2z)) If 
用 归结 反驳 法 证 明 结论 。 写 出 结论 的 所 有 9 个 子 句 转换 步骤 。 
3.13 (a) 根据 你 的 银行 或 储蓄 信息 以 及 贷款 标准 获得 汽车 贷款 。 写 一 个 规则 的 反 向 链 系统 以 判定 一 
个 申请 者 是 否 能 获得 汽车 贷款 。 尽 可 能 写 得 详细 。 
(b) 根据 房屋 贷款 标准 ， 对 你 的 汽车 贷款 程序 作出 修改 ， 使 它 能 像 解决 汽车 贷款 那样 解决 房子 
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贷款 问题 。 
Co) 根据 商业 贷款 标准 ， 对 汽车 贷款 程序 作出 修改 以 解决 商业 贷款 问题 。 


3.14 写 一 个 因果 规则 的 产生 式 系 统 来 模拟 汽车 里 面 汽化 器 的 工作 。 你 可 以 从 你 汽车 的 维修 指南 里 获 
得 信息 。 尽 可 能 写 得 详细 。 
3.15 用 你 的 汽车 维修 指南 ， 给 定 汽 车 症状 ， 写 一 个 可 以 诊断 和 修复 汽车 电路 问题 的 产生 式 系统 。 
3.16 如 果 一 个 结论 是 错 的 ， 而 你 想 判别 由 此 推出 的 事实 ， 你 会 使 用 淹 因 法 还 是 其 他 推理 方法 ” 试 解 
Bz. 
3.17 使 用 图 3.4 中 的 部 分 判定 树 ， 写 出 识别 草莓 的 IF…THEN 规则 。 
3.18 一 个 父亲 和 他 的 两 个 儿子 待 在 河 的 左岸 ， 希 望 过 到 河 的 右岸 。 父 亲 重 200 磅 ， 每 个 儿子 重 100 
磅 ， 只 有 一 只 可 以 容纳 200 磅 的 船 提 供 。 至 少 要 有 一 个 人 划船 。 画 出 判定 树 ， 指 明 所 有 可 能 的 
过 河 方法 。 指 出 可 以 让 他 们 全 都 成 功 过 河 的 路 径 。 假 设 下 述 操 作 在 你 的 树 中 标志 为 : 
SL 一 个 孩子 从 左岸 到 右岸 去 
SR 一 个 孩子 从 右岸 到 左岸 去 
BL _ 两 个 孩子 从 左岸 到 右岸 
BR _ 两 个 孩子 从 右岸 到 左岸 
PL _ 父 亲 从 左 到 右 过 河 
PR _ 父 亲 从 右 到 左 过 河 
3.19 (a) 画 出 图 3.11 汽车 判定 树 的 “与 一 异 或 ”逻辑 图 。 注 意 要 用 标准 的 与 、 或 和 非 运算 来 实现 异 
或 。 
(b) 写 一 个 IF…THEN 规则 的 正 向 链 ， 用 米 决定 可 根据 那 一 个 假设 ， 例 如 ， 卖 或 者 修 ， 进 行 推 
理 。 
3.20 以 下 陈述 采用 了 哪 种 推理 〈 如 果 采 用 了 推理 )? 
(a)“ 我 坚持 说 在 Iraq 和 Saddam 和 al Qaeda 之 间 存 在 联系 的 原因 是 在 Iraq 和 al Qaeda 之 间 存 在 联 
z” 
(b)“ 如 果 一 个 高 级 法 院 审 判 的 公正 性 被 如 此 获 视 是 合理 的 ， 那么 国家 所 处 的 情况 比 我 想像 中 糟 
RES”. 
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第 4 章 不 确定 性 推理 


4.1 概述 


本 章 将 讨论 使 用 概率 理论 (probability theory) 和 模糊 逻辑 (fuzzy logic) 进行 不 确定 性 (uncertain- 
ty) 推理 的 各 种 方法 。 由 于 专家 系统 的 主要 功能 之 一 就 是 能 像 人 类 一 样 处 理 不 确定 性 ， 所 以 该 课题 在 
专家 系统 中 非常 重要 。 如 果 已 知 的 算法 或 判定 树 令 人 满意 ， 就 不 需要 专家 系统 了 。 比 起 必须 得 到 所 有 
事实 才能 得 到 结论 的 判定 树 ， 处 理 不 确定 性 是 专家 系统 的 主要 优势 。 概 率 理论 是 某 些 不 确定 性 理论 的 
基础 ， 因 此 本 章 将 涵盖 那些 在 专家 系统 中 与 概率 化 不 确定 性 以 及 模糊 逻辑 相关 的 内 容 。 

在 下 一 章 中 将 介绍 处 理 不 确定 性 的 其 他 理论 ， 并 更 详细 地 从 近似 推理 的 形式 化 角度 来 学 习 模 糊 脖 
辑 。 尽 管 只 用 一 种 不 确定 性 理论 (如 经 典 概率 理论 ) 来 处 理 问题 就 比较 方便 ， 但 是 每 种 理论 都 有 其 优 
缺点 。 这 一 点 类 似 于 一 个 程序 员 必 须 面 对 的 在 平常 的 计算 机 程序 中 决定 采用 什么 算法 和 数据 结构 。 通 
过 理解 不 确定 性 的 各 种 处 理 方法 的 优 缺 点 ， 可 以 构建 最 适 于 某 个 专门 领域 的 专家 系统 。 有 些 专家 系统 
工具 把 对 不 确定 性 的 处 理 嵌入 到 语言 中 ， 如 CLIPS 有 两 个 定制 的 处 理 模 糊 逻 辑 的 版 本 ， 加 拿 大 国家 研 
究 委员 会 的 FuzzyClips 以 及 Togai InfraLogic。 前 言 中 也 讨论 了 一 些 其 他 版 本 。 

在 使 用 这 样 一 个 定制 工具 前 ， 必 须 确保 这 是 处 理 不 确定 性 的 正确 方法 。 也 许 ， 你 所 需要 的 仅 是 一 
些 你 可 以 自己 编程 的 特殊 规则 ， 或 者 只 需 定义 一 个 不 确定 性 函数 而 不 是 使 用 整个 特制 工具 。 另 一 个 可 
能 性 是 你 想 要 模型 化 不 止 一 类 不 确定 性 ,但 是 没有 一 种 工具 可 以 处 理 所 有 的 可 能 情况 。 附 录 G 展示 了 
许多 处 理 概 率 的 软件 工具 和 其 他 资源 。 其 中 有 一 些 完整 的 工具 ， 也 有 一 些 是 特定 的 类 别 ， 例 如 在 C++ 
中 ,帮助 你 修改 和 重新 编译 CLIPS 使 之 更 方便 添加 不 确定 性 或 其 他 你 所 喜欢 的 特性 。 这 再 次 验证 了 
CLIPS 的 一 个 巨大 优势 ， 作 为 开放 资源 CLIPS 可 以 由 用 户 根据 自己 需要 进行 定制 而 不 是 要 用 户 去 适应 
工具 。 在 CLIPS 的 官方 网 站 上 列 出 了 使 用 Java 等 其 他 语言 的 CLIPS 版 本 。 


4.2 不 确定 性 


不 确定 性 可 以 理解 为 缺少 足够 的 信息 来 作出 判断 。 不 确定 性 是 一 个 问题 ， 因 为 它 妨碍 我 们 作出 最 
好 的 决定 ， 甚 至 导致 作出 一 个 坏 的 决定 。 在 医学 上 ， 不 确定 性 会 使 得 医生 没有 发 现 最 好 的 疗法 或 采用 
不 正确 的 疗法 。 在 商业 上 ， 不 确定 性 可 能 意味 着 经 济 上 的 损失 而 不 是 获 利 。 

为 此 ， 人 们 提出 了 许多 理论 来 处 理 不 确定 性 。 其 中 包括 经 典 概率 ， 贝 叶 斯 概率 (Bayesian probabili- 
ty) (Castillo 97)， 在 经 典 集合 论 基础 上 的 Hartley 理论 ， 在 概率 论 基 础 上 的 香农 理论 ，Dempster-Shafer 
理论 ， 马 尔 可 夫 模 型 和 Zadeh 的 模糊 理论 (fuzzy theory)。 特 别 是 ， 香 农 理论 和 模糊 理论 在 电信 方面 得 
到 了 普遍 的 证 实 并 且 已 经 被 应 用 到 生物 学 、 心 理学 、 音 乐 和 物理 学 等 多 种 领域 。 模 糊 逻 辑 也 用 于 很 多 
消费 应 用 中 ， 从 不 是 像 19 世纪 用 电子 时 间 控 制 而 是 按 衣物 的 干净 程度 判断 来 清洗 衣物 的 洗衣 机 ， 到 产 
生 美 丽 照片 的 照相 机 。 模 糊 逻 辑 ， 也 称 为 近似 推理 ， 将 在 下 一 章 中 详细 讨论 。 

所 有 生物 都 是 处 理 不 确定 性 的 专家 ， 否 则 就 不 能 存在 于 这 个 现实 的 世界 。 人 类 尤其 擅长 处 理 有 关 
交通 、 天 气 、 工 作 、 学 校 等 方面 的 不 确定 性 事物 。 过 一 会 儿 ， 读 者 将 会 看 到 ， 我 们 将 全 都 变 成 如 何在 
各 种 交通 状况 下 驾驶 、 处 理 寒冷 、 选 择 容易 的 课程 等 方面 的 专家 ， 有 些 人 会 成 为 选择 任何 事情 的 最 简 
单 处 理 方法 的 专家 。 处 理 不 确定 性 需要 不 确定 性 推理 并 需要 很 多 常识 。 常 识 的 唯一 问题 是 并 不 一 定 要 
“好 的 判断 力 ”， 而 只 是 在 正常 的 情况 下 作出 正常 的 处 理 。 但 有 时 正常 的 方法 并 不 是 最 好 的 方法 ， 这 就 
是 不 确定 性 推理 之 所 以 重要 的 原因 。 例 如 ， 如 果 你 曾经 玩 过 投 币 机 并 且 赢 了 一 些 钱 ， 然 后 开始 输 钱 ， 
常识 会 让 你 党 得 如 果 你 玩 的 时 间 足 够 长 ， 最 终 你 会 赢 。 但 不 幸 的 是 ， 常 识 不 会 告诉 你 ， 在 你 再 次 赢 钱 
之 前 你 可 能 会 用 完 你 的 钱 ， 信 用 卡 也 会 超支 ， 汽 车 会 被 卖 掉 ， 结 婚 戒指 会 被 当 掉 。 
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在 第 3 章 描述 的 演绎 推理 是 精确 推理 (exact reasoning) ， 因 为 它 处 理 的 是 精确 事实 和 由 此 得 出 的 精 
确 结论 。 回 忆 一 下 在 每 个 演绎 辩论 中 ， 结 论 必须 由 前 提 推 出 。 前 提 为 真 ， 结 论 必 为 真 ， 反 之， 前 提 为 
假 ， 则 结论 必 为 假 。 

但 是 ， 归 纳 辩 论 不 像 演绎 辩论 一 样 保证 结论 的 正确 性 。 归 纳 辩 论 的 前 提 为 结论 提供 支持 而 不 是 保 
证 。 例如， 给 出 一 个 整数 序列 ，1，2，3， 你 可 以 使 用 归纳 去 假设 下 一 个 数字 是 4。 但是， 如 果 你 被 告 
知 下 一 个 数字 是 5 呢 ? 那么 ，1，2，3 可 能 是 从 著名 的 斐 波 那 契 数 列 中 取出 的 序列 ， 其 中 ， 每 个 数字 
是 前 两 个 数字 的 和 ， 其 序列 是 0，1，1，2，3，5。 在 一 个 归纳 辩论 中 ， 支 持 结论 的 前 提 越 多 ， 结 论 为 
真 的 可 能 性 就 越 大 。 

但 是 ， 关 于 归纳 支持 结论 的 前 提 越 多 结论 就 越 真 的 解释 也 存在 问题 。 假 设 你 是 右派 乌鸦 ， 昕 到 一 
左派 乌鸦 宣称 所 有 乌鸦 是 黑 的 。 于 是 你 去 考察 乌 获 ， 一 段 时 间 后 发 现 所 看 到 的 1 000 000 RERRER 
的 。 这 时 某 些 右 派 乌 鸦 可 能 会 放弃 ， 但 既然 这 个 理论 是 左派 乌鸦 提出 的 ， 你 可 能 认为 “只 是 因为 我 没 
有 看 到 一 只 非 黑 色 的 乌鸦 ， 但 并 不 代表 它 不 存在 ， 也 许 只 是 隐藏 在 某 个 地 方 "。 这 也 许 是 正确 的 。 考 虑 
“所 有 乌鸦 是 黑 的 "， 在 逻辑 上 等 价 于 “所 有 不 是 黑色 的 东西 不 是 乌鸦 ”。 

例如 ， 一 个 红 苹 果 当 然 不 是 黑 乌 鸦 。 通 过 逐步 提高 支持 结论 的 前 提 的 数量 ， 例 如 非 黑色 的 东西 ， 
来 提高 结论 的 可 靠 性 。 所 以 你 看 到 的 红 苹果 越 多 ， 越 相信 所 有 的 乌鸦 是 黑色 的 。 这 个 愚蠢 的 故事 称 为 
乌鸦 诡 论 (Raven Paradox) ， 因 为 它 演 示 了 归纳 如 何 同 直觉 抵触 。 

现在 这 可 能 成 为 灾难 ， 因 为 有 很 多 的 红 革 果 ， 意 味 着 左派 乌鸦 说 所 有 乌鸦 是 黑色 的 是 正确 的 。 但 
是 我 们 永远 不 放弃 。 考 虑 还 有 很 多 黑色 的 黑莓 。 所 以 如 果 你 坚持 计算 不 是 黑 乌 鸦 的 黑色 的 东西 ， 那 么 
这 些 可 以 减弱 前 提 。 如 果 你 到 一 个 食品 仓库 ,开始 计算 黑莓 的 数量 ， 你 会 发 现 有 很 多 黑莓 ， 其 数量 可 
以 超过 红色 苹果 。 那 么 既然 有 比 红 苹 果 更 多 的 黑莓 ， 那 么 左派 人 士 是 错 的 ， 一 定 有 不 是 黑色 的 乌鸦 ， 
只 不 过 你 还 没 找到 而 已 。 

计算 红 苹 果 或 任何 非 黑色 的 东西 来 支持 所 有 乌鸦 是 黑色 的 论点 将 导致 错误 的 结论 。 处 理 乌鸦 施 论 
有 很 多 种 方法 ,但 最 好 的 方法 应 该 是 贝 叶 斯 理论 ， 本 章 稍 后 将 讨论 这 个 理论 。 

当 包 括 不 确定 的 事实 时 ， 精 确 推 理 就 不 再 适用 ， 尽 管 人 们 可 能 会 误 以 为 也 像 前 面 讨论 的 乌鸦 和 风 
博 问题 一 样 适用 。 不 确定 性 增加 了 可 能 的 输出 结果 ， 因 此 也 许 会 变 得 不 但 困难 而 且 可 能 找 不 出 最 优 解 。 
更 糟糕 的 是 ， 不 确定 性 还 可 能 导致 错误 的 推理 ， 而 使 我 们 花费 所 有 时 间 在 统计 黑莓 数量 上 。 

遗憾 的 是 ， 确 定 最 优 结论 并 不 是 件 容易 的 事 。 人 们 已 提出 多 种 方法 来 处 理 不 确定 性 并 帮 有 动 选 择 最 
优 结论 。 但 是 在 处 理 不 确定 性 问题 时 ， 我 们 也 许 应 该 满足 于 好 的 解 而 不 是 最 优 解 。 另 一 方面 ， 一 个 现 
实时 间 内 可 获得 的 99% 好 的 解 也 许 比 一 个 需 花 费 百 万 年 时 间 才 能 得 到 的 最 优 解 要 好 得 多 。 根 据 应 用 而 
选择 最 合适 的 方法 是 专家 系统 设计 者 的 责任 。 虽 然 有 些 专家 系统 工具 含有 不 确定 性 推理 机 制 ， 但 是 ， 
它们 在 允许 应 用 其 他 方法 方面 一 般 不 灵活 。 有 一 个 谚语 ， 如 果 你 拥有 的 唯一 工具 是 铁 锤 ， 那 么 所 有 的 
东西 看 起 来 都 像 铁 钉 。 选 择 一 个 只 在 一 个 场合 中 有 效 的 工具 ， 就 像 选 择 了 一 个 铁 锤 。 

虽然 有 很 多 能 用 精确 推理 处 理 的 专家 系统 应 用 ， 但 更 多 的 是 需要 不 精确 推理 (inexact reasoning), 
这 是 因为 事实 和 知识 本 身 不 一 定 是 精确 的 。 一 个 很 好 的 例子 是 医疗 应 用 。 为 了 获取 最 大 利益 ， 想 要 通 
过 最 少 的 测试 检验 得 到 合适 的 治疗 方案 ， 因 为 测试 检验 增加 花费 。 在 专家 系统 中 ， 可 能 存在 不 确定 的 
事实 、 规 则 ， 或 两 者 都 有 。 处 理 不 确定 性 的 经 典 成 功 专家 系统 例子 有 用 于 医疗 诊断 的 MYCIN 和 用 于 
矿产 探测 的 PROSPECTOR. 

这 些 系 统 在 文献 中 经 常 被 引述 是 因为 它们 有 完善 的 文档 ， 而 且 可 以 显示 专家 系统 能 像 人 类 专家 一 
样 思考 甚至 比 人 类 专家 处 理 得 更 好 。 

在 MYCIN fll PROSPECTOR 系统 中 ， 甚 至 可 以 在 证 明 结 论 所 必需 的 所 有 证 据 还 不 知道 的 情形 下 得 
出 结论 。 虽 然 可 以 通过 做 更 多 的 测试 来 得 到 一 个 更 可 靠 的 结论 ， 但 做 更 多 的 测试 有 一 个 时 间 和 开支 的 
问题 。 这 些 时 间 和 开支 的 限制 在 医疗 中 是 特别 重要 的 。 推 迟 治疗 而 做 更 多 测试 会 增加 相当 大 的 费用 ， 
在 这 期 间 ， 病 人 还 可 能 会 死亡 。 在 矿产 探测 的 例子 中 ， 增 加 测试 的 开支 也 是 一 个 很 重要 的 因素 。 在 你 
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有 95% 的 成 功率 时 开始 钻探 可 能 要 比 花费 几 十 万 美元 把 成 功率 提高 到 98% 时 再 钻探 更 合算 。 
4.3 误差 种 类 


许多 不 同 种 类 的 误差 〈error) 都 可 以 引起 不 确定 性 。 有 关 不 确定 性 的 不 同 理论 都 尝试 解决 其 中 的 
部 分 或 全 部 来 提供 更 可 靠 的 结论 。 图 4.1 列 出 了 一 个 误差 的 简单 分 类 表 。 


误差 


人 为 错误 设备 故障 ”错误 否定 ”错误 肯定 精度 准确 度 ”归纳 错误 ”演绎 错误 


错误 的 不 可 靠 无 输出 
输出 (TRE) 


图 4.1 误差 的 种 类 


这 个 图 严格 来 说 应 该 画 成 一 个 网 格 ， 因 为 在 许多 不 同类 型 的 误差 之 间 是 存在 联系 的 。 例 如 ， 人 为 
的 误差 就 可 以 有 歧义 、 度 量 、 推 理 等 等 的 误差 。 表 4.1 给 出 了 这 些 误差 的 一 些 例子 。 
表 4.1 常见 误差 类 型 的 例子 





例 F 误差 原 因 
将 阀门 关上 歧义 哪个 阀门 ? 
HPR 不 完全 什么 方式 ? 
ATT E 不 正确 正确 是 打开 
阀门 是 固定 的 错误 肯定 阀门 不 是 固定 的 
阀门 不 是 固定 的 错误 否定 阀门 是 固定 的 
KAN 1 调节 到 5 不 精确 正确 是 5.4 
将 阀门 值 1 调节 到 5.4 不 准确 正确 是 9.2 
将 阀门 1 调节 到 5.4 或 6 或 0 不 可 靠 设备 错误 
BUT 1 的 设置 为 5.4 或 5.5 或 5.1 随机 错误 统计 上 的 错误 
阀门 1 的 设置 为 7.5 系统 误差 刻度 错 
并 站 1 没有 固定 ， 因 为 它 以 前 从 未 因 无 效 归 纳 阀门 是 固定 的 
输出 是 正常 的 ， 所 以 阀门 无 效 演绎 阀门 处 在 开放 位 置 上 


状况 良好 


第 一 种 列举 出 来 的 误差 是 歧义 (ambiguity)， 即 对 某 事 物 的 解释 多 于 一 种 。 第 二 种 类 型 是 不 完全 
(incompleteness), ， 即 遗漏 了 某 些 信息 。 第 三 种 误差 是 不 正确 (incorrectness) ， 即 信息 是 错误 的 。 引 起 不 
正确 的 可 能 原因 是 人 为 的 错误 ， 例 如 偶然 错 读 刻 度 或 数据 、 撤 谎 或 错误 信息 、 以 及 设备 失灵 等 。 

一 个 假设 (hypothesis) 是 一 个 需要 检验 的 假定 。 零 假设 (null hypothesis) 是 指 最 初 的 假定 ， 如 
“阀门 是 固定 的 "。 不 正确 信息 的 一 种 类 型 是 错误 肯定 (false positive), 意思 是 对 一 个 不 真 假设 的 接受 。 
类 似 地 ， 错 误 否定 (false negative) 是 指 对 一 个 真 假 设 的 拒绝 。 因 此 ， 如 果 痪 门 确实 不 是 固定 的 ， 则 接 
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受 它 是 固定 的 就 是 错误 肯定 。 在 统计 学 上 称 之 为 第 一 类 误差 (Type I eror), KH, MR TMK 
是 固定 的 ， 则 拒绝 接受 阀门 是 国定 的 假设 就 是 错误 和 否定 或 叫 第 二 类 误差 (Type I error). 

表 4.1 中 接 下 来 的 两 种 误差 是 测量 误差 (errors of measurement)。 它 们 是 精度 (precision) 误差 和 
准确 度 (accuracy) 误差 。 虽 然 这 些 术 语 有 时 被 同 义 使 用 ， 但 它们 是 不 同 的 。 考 虑 两 把 尺子 ,一 把 的 刻 
度 是 毫米 ， 另 一 把 的 刻度 是 厘米 。 显 然 ， 毫米 尺子 比 厘米 尺子 有 更 高 的 精度 。 但 是 ， 假 设 毫 米 尺 子 的 
刻度 在 制造 时 有 错 。 在 这 种 情形 下 ， 毫 米 尺子 是 不 准确 的 ， 它 的 测量 也 是 不 可 信和 有 的， 除非 知道 一 个 正 
确 的 校正 因子 。 这 样 ， 准 确 是 相对 于 真实 而 言 ， 而 精确 则 相对 于 真实 的 程度 而 言 。 对 这 两 把 尺子 来 说 ， 
毫米 尺子 的 精度 是 厘米 尺子 的 10 倍 ， 但 是 如 果 不 准确 则 会 导致 严重 问题 。 

另外 一 种 类 型 的 误差 是 不 可 靠 (unreliability)。 如 果 测 量 设备 提供 的 事实 是 不 可 靠 的 ， 那 么 这 些 数 
据 就 是 不 稳定 的 (erratic)。 一 个 不 稳定 的 读数 不 是 一 个 常数 而 是 波动 的 。 它 有 时 正确 ， 有 了 时 不 正确 。 

一 个 波动 的 读数 可 能 是 由 所 研究 系统 的 随机 本 质 引 起 的 ， 如 放射 性 原子 的 衰变 。 因 为 引起 衰变 的 
原因 是 一 种 量子 现象 ， 所 以 衰变 的 速率 是 在 一 个 平均 数 附近 随机 波动 的 。 在 一 个 平均 数 附近 的 随机 波 
动 构成 了 一 个 随机 误差 (random error) ， 并 且 引 起 该 平均 值 的 不 确定 性 。 另 外 引起 随机 误差 的 可 能 原 
因 是 布朗 运动 、 由 热效应 引起 的 电子 噪音 等 等 。 不 过 ， 引 起 不 稳定 的 原因 也 可 能 是 连接 不 紧 。 

系统 误差 (systematic error) 不 是 由 随机 性 而 是 由 某 些 仿 差 引起 的 。 例 如 ， 对 一 把 尺子 的 错误 校准 
会 使 得 它 的 刻度 比 正常 的 小 ， 这 样 就 造成 了 其 读数 比 正常 高 的 一 个 系统 误差 。 


4.4 误差 与 归纳 


接 下 来 的 一 种 误差 :“ 因 为 阀门 以 前 从 不 固定 ， 所 以 是 不 固定 的 ”是 无 效 归 纳 (invalid induction). 
与 归纳 (induction) 过 程 相 对 的 是 演绎 。 习 惯 上 认为 演绎 是 由 一 般 到 特殊 ， 例 如 : 

所 有 人 都 会 死 

苏 格 拉 底 是 一 个 人 

… 苏 格拉 底 会 死 
是 推出 特殊 的 情形 苏 格 拉 底 会 死 

归纳 则 是 由 一 般 到 特殊 ， 例 如 ， 

RABE) BERR 

… 我 的 碟 片 永 不 会 跌 碎 
这 里 倒 三 角 符号 `… 代表 归纳 的 所 以 (inductive therefore) ， 对 应 于 三 角 符 号 … ， 代 表演 绎 的 所 以 (deduc- 
tive therefore) < 

虽然 你 还 会 从 一 些 书籍 中 看 到 演绎 是 从 一 般 到 特殊 而 归纳 是 从 特殊 到 一 般 的 论述 。 但 当代 逻辑 认 
为 ， 当 前 提 为 真 时 ， 演 绎 确保 结论 的 正确 性 。 而 归纳 辩论 仅 意 味 着 前 提 越 强 ， 结 论 越 可 能 为 真 。 

考虑 下 面 辩 论 : 

我 的 两 个 宠物 是 Smokey 和 Boots 

Smokey 有 尾巴 

Boots E 

… 我 的 所 有 宠物 都 有 尾巴 

这 是 一 个 有 效 演绎 辩论 的 例子 ， 其 中 ， 特 定 的 前 提 推 出 了 一 般 的 结论 。 相 反 的 ， 原 来 的 教导 是 说 
演绎 从 一 般 到 特殊 ， 并 且 仍 然 可 以 在 一 些 旧 的 辞典 中 找到 。 这 种 辩论 也 称 为 合理 的 〈sound) ， 因 为 它 
不 但 有 效 而 且 基 于 真 的 前 提 。 这 里 我 们 说 真 ， 是 指 语义 上 有 效 ， 也 就 是 在 现实 世界 中 是 真实 的 ， 我 的 
宠物 都 有 尾巴 。 

现在 考虑 一 下 辩论 : 

我 的 两 个 宠物 是 Smokey 和 Boots 
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Smokey ARA 

Boots HRA 

… 我 的 所 有 宠物 都 有 象 鼻 

这 也 是 一 个 有 效 的 辩论 但 不 再 是 合理 的 ， 因 为 Smokey 和 Boots 不 是 大 象 ， 不 应 该 有 象 鼻 。 

除了 数学 上 的 归纳 ， 归 纳 辩 论 从 来 不 能 证 明 是 正确 的 。 归 纳 辩 论 只 能 提供 一 些 结论 正确 的 可 信和 度 ， 
在 一 个 归纳 辩论 中 ， 我 们 可 能 并 不 具有 太 大 的 可 信和 度 。 下 面 是 一 个 辩论 : 

火灾 报警 响起 

… 一 场 火灾 发 生 了 
一 个 更 强 的 辩论 是 : 

火灾 报警 响起 

我 闻 到 烟雾 气味 

一 场 火 灾 发 生 了 
虽然 这 是 一 个 强 辩论 ， 但 是 它 不 能 作为 火灾 发 生 的 证 明 。 烟 雾 可 能 是 由 在 烤 架 上 的 汉堡 包产 生 且 火灾 
报警 也 可 能 是 偶然 响起 。 下 面 才 是 一 个 火灾 发 生 的 证 明 ， 

火灾 报警 响起 

我 闻 到 烟雾 气味 

我 的 衣服 着 火 了 了 

… 一 场 火 灾 发 生 了 
注意 这 是 一 个 演绎 因为 你 能 看 到 火焰 。 尽 管 是 特殊 的 前 提 条 件 ， 而 不 是 普通 情况 。 

专家 系统 可 包括 演绎 和 归纳 规则 ， 其 中 归纳 规则 是 启发 性 的 。 归 纳 法 也 被 用 于 规则 的 自动 生成 ， 
这 一 点 将 在 后 面 的 知识 获取 章节 中 讨论 。 

除了 不 确定 事实 外 ， 如 果 专 家 系统 的 规则 是 基于 启发 式 的 ， 那 么 它们 也 可 能 存在 不 确定 性 。 启 发 
式 规则 常 被 称 为 拇指 规则 ， 因 为 它 是 基于 经 验 的 (例如 ， 如 果 你 要 学 习 正确 使 用 铁 锤 杀 钉子 的 重要 规 
则 ， 首 先 锤 一 下 你 的 拇指 。 这 称 为 基于 “拇指 规则 ”的 学 习 。 这 当然 比 坐 着 听 一 个 3 DAES 
和 欲 睡 的 学 习 效果 好 多 了 )。 

有 时 候 经 验 是 一 个 好 的 向 导 。 但 是 ， 它 不 可 能 百分之百 地 适用 于 各 种 情形 ， 这 是 因为 经 验 是 启发 
性 的 。 例 如 ， 你 可 能 认为 每 个 跳 下 五 十 层 楼 的 人 都 会 死去 。 但 是 ， 人 可 以 跳 下 五 十 层 的 楼 而 不 死 
如 果 他 带 着 降落 伞 的 话 。 

人 类 专家 的 一 个 重要 特征 是 能 熟练 地 在 不 确定 性 下 推理 。 即 使 在 非常 不 确定 性 的 情形 下 ， 专 家 们 
通常 都 能 作出 很 好 的 判断 ， 否 则 他 们 就 不 会 再 被 叫做 专家 了 。 

另 一 个 特征 是 如 果 发 现 一 些 初始 事实 是 错误 的 ， 专 家 们 会 很 容易 地 修改 他 们 的 观点 。 这 就 是 第 3 
章 讨论 的 非 单调 推理 。 设 计 一 个 专家 系统 可 回溯 其 推理 过 程 非常 困难 ， 因 为 所 有 的 中 间 事 实 都 要 保存 
起 来 并 且 需 要 保留 规则 激活 的 记录 。 人 类 专家 似乎 不 需要 太 多 的 努力 就 可 以 修改 他 们 的 推理 。 

除了 归纳 上 的 错误 ， 也 存在 一 些 演绎 上 的 错误 或 廖 论 ， 如 在 第 3 章 所 讨论 的 。 一 个 在 第 3 章 讨 论 
过 的 廖 误 模式 例子 是 ; 


pq 
a- 
“ P 





例如 ， 


如 果 阀 门 状况 良好 ， 
那么 输出 是 正常 的 

输出 是 正常 的 

BRT ARS Be a 
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fe— Mae. WTRF- CFRE, PTE AY. (HE, MRRP), a 
RAB K. MRR, ， 情 况 会 更 严重 ， 例 如 一 个 核反应 堆 需 要 紧急 关闭 的 情况 。 

与 那些 我 们 已 讨论 过 的 误差 相 比 ， 归 纳 和 演绎 误差 是 推理 误差 。 这 些 类 型 的 误差 导致 了 规则 的 不 
正确 形成 。 

一 般 ， 人 们 处 理 不 确定 信息 似乎 并 不 得 心 应 手 。 即 使 专家 也 不 能 避免 犯错 误 ， 尤 其 是 在 不 确定 性 
情况 下 。 当 专家 知识 一 定 要 在 规则 中 定量 表示 时 ， 这 可 能 是 知识 获取 的 一 个 主要 问题 。 不 一 致 、 不 精 
确 和 其 他 所 有 可 能 的 不 确定 性 误差 都 会 暴露 出 来 。 此 时 ， 专 家 们 会 修正 他 们 的 知识 ,但 这 会 推迟 专家 
系统 的 完成 。 


4.5 经 典 概率 


一 个 用 于 人 工 智能 问题 求解 的 古老 但 仍然 很 重要 的 工具 是 概率 (probability) (Grinstead 97)。 概 率 
是 一 个 处 理 不 确定 性 的 量化 方法 ， 它 起 源 于 17 世纪 ， 当 时 一 些 法 国 的 赌 徒 向 一 些 顶 尖 数 学 家 ， 如 Pas- 
cal, Fermat 等 求助 。 那 时 ， 赌 博 很 流行 ， 而 且 由 于 其 中 涉及 大 量 的 金钱 ， 赌 徒 们 都 希望 找到 一 种 方法 
来 帮助 计算 赢 的 胜算 。 事 实 上 ， 经 典 的 赌 徒 破产 问题 是 就 是 赌 徒 们 根据 经 验 事实 使 用 概率 理论 的 一 个 
证 明 : 如 果 你 玩 的 时 间 足 够 长 ， 那 匹 马 最 终 会 赢 的 (Ross 02) (不 幸 的 是 正 是 这 些 以 为 可 以 通过 学 习 概 
率 得 到 成 功 的 赌 徒 输 的 最 多 )。 

经 典 概率 (classical probability) 理论 首先 是 由 Pascal 和 Fermat 在 1654 年 提出 来 的 。 自 那 时 开始 ， 
人 们 做 了 大 量 工作 ， 几 个 新 的 分 支 也 得 到 了 发 展 。 概 率 在 自然 科学 、 工 程 学 、 商 业 、 经 济 和 实际 上 其 
他 每 个 领域 的 应 用 都 显示 出 来 。 


经 典 概率 的 定义 


经 典 概率 又 叫做 先 验 概率 ， 因 为 它 处 理 的 是 理想 的 游戏 或 系统 。 如 在 第 2 章 所 讨论 的 ， 术 语 先 验 
意思 是 “超前 的 ”， 也 就 是 说 ， 不 考虑 真实 的 世界 。 

也 就 是 说 ， 当 一 个 真实 山子 的 一 面 经 过 大 量 投 撞 而 损耗 后 ， 会 显示 对 某 一 特定 的 数 存在 偏差 。 同 
样 ， 由 于 制造 的 关系 ， 一 个 真实 的 货 子 会 显示 它 更 倾向 于 更 大 的 数 ， 因 为 更 大 数 的 面 有 更 多 的 小 孔 。 
MAE BiH —TF AER FH 1 000 000 次 投 卷 数据 的 分 析 而 得 出 来 的 。 每 20 000 次 投掷 就 会 换 
一 个 新 仍 子 ， 以 避免 由 于 磨损 所 造成 的 偏差 。 从 表 4.2 中 可 以 看 到 各 个 数 的 次 数 的 比例 。 

# 4.2 1000 000 KRMRT HAR 
数 1 2 3 4 5 6 
比例 0.155 0.159 0 .164 0.169 0.174 0.179 


在 一 个 理想 系统 里 ， 所 有 数 出 现 的 机 会 都 是 相等 的 ， 这 样 使 得 分 析 起 来 更 加 容易 。 
经 典 概率 的 基本 公式 定义 为 概率 : 
W 


P=— 
N 


其 中 W 是 获胜 的 数目 ，N 是 等 可 能 性 的 事件 (event) 的 数目 ， 事件 即 一 个 实验 或 试验 (trial) 可 能 得 
HAAR. Gl, MRR KAS, PARKANA 6 种 可 能 的 事件 。 该 货 子 会 在 顶 面 是 1、2、 
3、4、5、6 其 中 之 一 停 下 来 。 在 经 典 概率 下 ， 这 6 个 事件 假定 是 等 可 能 的 ， 所 以 得 到 顶 面 是 1 的 概率 
P (1) 为 
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等 等 。 
失败 的 概率 Q 是: 





因为 概率 是 在 游戏 开始 之 前 就 计算 出 来 ， 所 以 了 的 基本 公式 是 一 个 先 验 定义 。 当 在 讨论 概率 时 术 
语 先 验 是 指 “ 超 前 的 ”或 “在 事件 之 前 ”。 先 验 概 率 假 定 所 有 可 能 事件 都 是 已 知 的 且 有 相等 的 机 会 
发 生 。 

例如 ， 在 投掷 吉 子 的 例子 中 ， 每 个 面 上 的 可 能 点 数 是 1、2、3、4、5 和 6。 所 以 ， 如 果 货 子 是 公平 
的 (fair) 不 是 灌 铝 锅子 ， 则 每 个 面 出 现 的 可 能 性 都 是 相等 的 。 类 似 地 ， 在 一 副 公平 的 纸牌 中 ， 所 
有 52 张 牌 都 是 知道 的 ， 并 且 在 公平 的 洗 牌 后 ， 每 张 牌 被 抽出 的 可 能 性 都 是 相等 的 。 般 子 的 每 一 面 的 可 
能 性 都 是 1/6， 而 每 张 牌 的 可 能 性 都 是 1/52。 | 

当 重 复试 验 而 得 出 同一 个 结果 ， 这 样 的 系统 就 是 确定 的 〈deterministic) 。 如 果 不 是 确定 的 ， 就 称 为 
不 确定 的 (nondeterministic)。 但 是 ， 不 确定 和 随机 并 不 一 样 。 随 机 (random) 是 指 可 能 有 好 的 或 不 好 
的 含义 。 例 如 ， 一 个 随机 事件 像 在 拉 斯 维 加 斯 掷 仍 子 ， 结 果 可 能 让 你 成 为 百 万 富翁 或 者 乞丐 。 相 反 的 ， 
一 个 系统 被 定义 为 不 确定 的 只 意味 着 对 于 相同 的 输入 ， 可 能 有 多 于 一 种 的 方法 得 到 多 于 一 种 的 结果 。 

对 于 一 个 不 确定 的 有 限 状态 机 ， 当 输入 一 个 数字 时 ， 可 以 得 到 状态 1 或 2。 如 果 只 有 数字 被 输入 ， 
最 终 机 器 会 识别 出 整数 。 如 果 带 有 小 数 点 或 带 有 指数 符号 的 实数 被 输入 ， 机 器 最 终 会 辨认 出 这 些 内 容 
并 结束 于 一 个 不 同 的 终 态 。 通 常 ， 一 个 不 确定 的 有 限 状态 机 所 具有 的 状态 比 确定 的 少 ， 而 且 可 以 被 转 
换 成 一 个 确定 的 有 限 状 态 机 。 

人 们 在 使 用 搜索 引擎 时 已 经 熟悉 了 不 确定 性 。 输 入 相同 的 内 容 ， 你 会 发 现 最 先 出 现 的 内 容 各 不 相 
A (除非 它 是 一 个 赞助 商 的 内 容 ， 永 远 出 现在 最 开始 )。 例 如 ， 你 在 google 中 输入 “giarratano expert 
systems” 进 行 搜索 ， 记 录 下 最 先 出 现 的 结果 。 然 后 再 次 搜索 “expert systems giarratano”"， 你 会 发 现 两 
者 的 结果 并 不 相同 。 

另 一 个 例子 是 头痛 时 的 处 理 方法 。 有 很 多 方式 治疗 头痛 ， 你 选择 哪 一 种 取决 于 你 当时 的 心情 和 条 
件 限制 。 在 有 些 专家 系统 工具 如 CLIPS 中 ， 不 确定 用 来 防止 激发 规则 时 带 有 固定 倾向 。 当 有 多 个 规则 
的 模式 符合 条 件 ， 而 且 没 有 明确 的 优先 说 明 哪 一 条 规则 被 激发 ， 推 理 机 将 从 中 任意 选 出 一 条 规则 加 以 
执行 。 这 就 防止 了 某 条 规则 因为 固定 的 倾向 被 激发 ， 例 如 倾向 于 执行 第 一 条 规则 。 类 似 的 ， 当 所 有 的 
知识 以 IF…THEN 语句 形式 输入 到 一 个 传统 的 编程 语言 中 ， 那 么 程序 会 不 断 地 按照 它们 输入 的 次 序 进 
行 尝试 。 事 实 上 ， 这 也 是 专家 系统 不 采用 传统 编程 语言 编写 的 原因 之 一 : 避免 太 多 确定 性 。 专 家 系统 
推理 机 能 够 像 人 类 一 样 操作 ， 当 具备 相同 优先 级 的 规则 满足 执行 条 件 时 ， 并 不 总 是 做 出 相同 的 选择 ， 
例如 : 我 应 该 吃 阿司匹林 还 是 Bloody Mary 治疗 头痛 ? 


样本 空间 
一 次 试验 的 结果 称 做 一 个 样本 点 (sample point) ， 而 所 有 可 能 的 样本 点 的 集合 定义 了 一 个 样本 空间 


(sample space)。 例 如 ， 如 果 投 掷 一 个 鹏 子 ， 任 一 个 样本 点 1、2、3、4、5 或 6 都 可 能 出 现 。 图 4.2 (a) 
显示 了 投 接 一 个 锅子 的 样本 空间 。 该 样本 空间 是 集合 |1, 2, 3, 4, 5, 6lo 





el e2 3 ei e2 e3 


e4 o5 06 e4 06 


(a) —TRAORASI O 一 个 简单 事件 {5} 
和 一 个 复合 事件 (3, 6) 


图 4.2 样本 空间 和 事件 
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一 个 事件 是 样本 空间 的 一 个 子 集 。 Ai, METEREN, R ;1; 发 生 。 一 个 简单 事件 
(simple event) 只 有 一 个 元 素 ， 一 个 复合 事件 (compound event) 则 有 多 于 一 个 的 元 素 ， 如 图 4.2 (b) 
所 示 。 

决定 样本 空间 的 一 个 图 形 方法 是 构造 一 棵 事件 树 (event tree)。 作 为 一 个 简单 的 例子 ,假设 有 两 台 
计算 机 ， 它 们 或 者 工作 ，、，W， 或 者 不 工作 ，D。 图 4.3 显示 的 是 一 棵 事件 树 ， 表 4.3 显示 的 是 形成 样本 
空间 的 一 个 表 。 注 意 ， 复 合 事件 以 {计算 机 1， 计算 机 21 的 顺序 列 出 。 样 本 空间 是 (WW, WD, 
DW, DDI., 





开始 表 4.3 二 元 事件 的 样本 空间 
一 人 计算 机 2 
wW D 计算 机 1 事件 wW D 
/\ /\ 计算 机 1 w WW WD 
w D w D 计算 机 2 事件 °°? DY DS 
ww WD DW DD 复合 事件 


图 4.3 复合 事件 的 事件 树 


因为 只 包含 两 种 可 能 ， 所 以 这 种 类 型 的 事件 树 是 一 棵 二 叉 树 。 也 就 是 说 ， 计 算 机 或 者 工作 或 者 不 
工作 。 很 多 其 他 的 例子 都 有 这 种 类 型 的 事件 树 。 例 如 ， 投 撕 硬 币 也 会 得 出 一 棵 二 又 树 ， 这 是 由 于 每 次 
投掷 只 会 有 两 种 可 能 情形 。 

概率 和 统计 都 是 在 其 他 理论 中 有 广泛 应 用 的 领域 。 统 计 研 究 有 关 种 群 (populations) 数据 的 收集 和 
分 析 ， 种 群 即 是 被 抽取 样本 的 一 个 集合 。 统 计 的 一 个 目标 是 从 抽取 样本 种 群 中 作出 其 父 种 群 的 推断 。 
统计 推断 的 一 个 典型 例子 是 通过 电话 投票 来 推断 某 一 个 候选 人 在 已 注册 的 选民 中 的 得 票 的 比例 。 

概率 理论 的 一 个 应 用 是 推断 投票 者 的 样本 是 否 真 正 代 表 所 有 的 投票 者 ， 或 者 是 可 能 偏向 某 一 个 党 
派 ， 虽 然 这 个 例子 与 真实 对 象 如 和 人 有关。 其 他 的 一 些 种 群 如 投掷 硬币 的 可 能 数目 ， 是 假定 的 ， 每 次 硬 
币 的 投掷 都 是 所 有 硬币 投掷 的 假定 种 群 的 一 个 样本 。 

归纳 和 演绎 是 有 关 种 群 推理 的 基础 ， 如 图 4.4 所 示 。 给 定 一 个 已 知 种 群 ， 演 绎 可 以 让 我 们 作出 有 
关 未 知 样本 的 推断 。 相 应 地 ， 给 定 一 个 已 知 样本 ,归纳 可 以 让 我 们 作出 有 关 未 知 种 群 的 推断 。 


演绎 


已 知 种 群 — 未 知 样本 
C) A 
未 知 种 群 下 一 已 知 样本 


归纳 
图 4.4 关于 种 群 和 样本 的 演绎 和 归纳 推理 














概率 理论 
概率 的 形式 理论 由 以 下 3 条 公理 组 成 : 
公理 1: OS P(E) 1 


这 条 公理 规定 了 概率 的 取 值 范围 是 0 到 1 之 间 的 实数 ， 不 能 为 负数 。 一 个 必然 事件 (certain event) 的 
概率 指定 为 1， 不 可 能 事件 (impossible event) 的 概率 指定 为 0。 


公理 2: SIP) =1 
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该 公理 阐述 了 所 有 互 不 影响 ， 即 互 斥 事件 (mutually exclusive event) 的 概率 和 为 1 互 斥 事件 没有 
公共 样本 点 。 例如， 一 台 计 算 机 不 能 同时 工作 正常 和 工作 不 正常 。 

该 公理 的 一 个 推论 是 : 

P(E) + P(E’) =1 
其 中 下 是 事件 王 的 补 。 这 一 推论 意味 着 一 个 事件 发 生 的 概率 加 上 不 发 生 的 概率 等 于 1。 即 事件 的 发 生 
与 不 发 生 是 互 斥 的 ， 旦 覆盖 整个 样本 空间 。 


公理 3: P(E, U Ez) = P(E:) + P(E2) 


APE, HE, 是 互 扩 事件。 该 公理 意味 着 : WR E ME 不 能 同时 发 生 〈 互 斥 事件 )， 那 么 它们 其 中 之 
一 发 生 的 概率 是 它们 的 概率 的 和 。 

根据 这 些 公 理 ， 可 推导 出 定理 来 计算 其 他 情形 下 的 概率 ， 如 我 们 将 在 后 面 看 到 的 相 容 事件 .虽然 
这 些 公理 是 概率 论 的 基础 ， 但 注意 到 它们 均 未 规定 基本 概率 P(E)， 因 为 事件 的 基本 概率 是 由 诸如 先 
验 概率 等 的 方法 计算 出 来 的 。 

这 些 公理 使 概率 有 了 一 个 合理 的 理论 基础 。 它 们 也 称 为 客观 概率 理论 (objective theory of probabili- 
ty)。 这 些 公理 是 由 Kolmogorov 提出 的 。 而 使 用 条 件 概率 公理 的 另 一 套 等 价 理论 则 由 Renyi 创建 。 


4.6 经 验 主观 概率 


与 具有 等 可 能 性 的 理想 游戏 不 同 ， 经 典 概率 不 能 回答 像 你 的 磁盘 驱动 器 明天 会 坏 的 概率 或 你 的 伴 
侣 的 期 望 寿命 等 问题 。 
与 先 验 概率 相反 ， 经 验 概率 (experimental probability) 用 频率 分 布 的 极限 定义 了 一 个 事件 的 概率 P〈E): 


其 中 f (E) 是 在 N 个 总 观察 结果 中 ,事件 E 出 现 的 频率 。 这 种 概率 叫做 事后 概率 ， 意 即 “ 在 事件 之 
后 ”. 事后 概率 也 称 作 后 验 概率 (posterior probability)。 其 旨 在 从 大 量 的 试验 中 测 出 事件 发 生 的 频率 ， 
并 以 此 推导 出 经 验 概率 。 

例如 ， 要 决定 你 的 驱动 器 要 坏 的 经 验 概率 ， 你 可 以 调查 一 下 其 他 用 这 种 驱动 器 的 人 。 假 定 调 查 结 
果 如 表 4.4 所 示 。 





如 果 你 的 驱动 器 已 用 过 750 小 时 ， 则 有 表 4.4 驱动 器 损坏 的 假定 时 间 
75% 的 可 能 明天 就 坏 。 注 意 75% 的 数字 是 由 归 “已 损坏 的 总 百分比 CHNS 
纳 而 不 是 由 演绎 得 到 。 与 理想 游戏 不 一 样 ， 你 10 100 
的 驱动 器 与 其 他 人 的 并 不 完全 相同 。 在 材料 使 25 250 
用 、 质 量 控制 、 环 境 条 件 及 使 用 等 方面 的 不 同 50 500 
都 会 影响 驱动 器 及 其 寿命 。 当 然 生 产 简单 的 设 75 750 
备 如 骨 子 或 纸牌 比 复杂 的 设备 如 驱动 器 具有 更 99 1000 
高 的 宽松 度 。 


人 人寿 保 险 公司 的 死亡 表 ， 以 年 龄 、 性 别 的 函数 方式 表示 一 个 人 的 死亡 概率 ， 从 这 可 得 出 另 一 类 型 
的 经 验 概 率 。 由 于 每 个 人 不 同 ， 因 而 从 表 中 计算 死亡 率 也 是 归纳 ， 对 房屋 保险 亦 然 。 除非 你 的 房子 被 
烧 了 大 片 而 被 纳入 个 别 经 验 概率 计算 ， 和 否则 就 得 按 相似 房屋 类 型 的 经 验 概率 来 计算 - 

另 一 种 概率 是 主观 概率 (subjective probability)。 若 问 你 : 在 2020 年 ， 使 用 超 导 引 擎 的 汽车 费用 为 
$ 10000 的 概率 是 多 少 ? 由 于 没有 这 些 汽车 的 费用 数据 ， 因 此 也 无 从 推断 $ 10000 的 费用 是 否 合理 . 

主观 概率 处 理 不 可 重复 且 无 历史 资料 推断 的 事件 ， 如 在 一 个 新 位 置 钴 油井 - 专家 的 主观 概率 总 比 
乱 猜 一 通 好 ， 而 且 往往 很 准确 (否则 专家 就 不 再 是 专家 了 )。 

与 其 说 主观 概率 是 基于 公理 或 经 验 度量 的 概率 ， 不 如 说 它 实际 上 是 表达 信念 或 意见 的 概率 。 信 念 
和 意见 在 专家 系统 中 扮演 着 重要 角色 ， 这 一 点 我 们 将 在 本 章 看 到 。 表 4.5 总 结 了 几 种 不 同 的 概率 : 
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ae 
R45 概率 类 型 
名 f 公式 特 T 
先 验 概率 P Œ) =Ë 可 重复 事件 
经 ， i ， 2 | 
Gan ELE MEE] 其 中 Ww 是 事件 玉 在 N 次 总 可 能 | 相同 的 可 能 结果 已 知 精确 的 数学 形式 不 以 
的 ' 结果 中 发 生 的 次 数 实验 为 基础 所 有 可 能 事件 和 结果 都 已 知 
WE 
penk ee, gm | P(E Jm “二 其 中 ，f | 。 基于 实验 的 可 重复 事件 用 有 限 次 实验 来 近 
SEMIN, MAME, AHD) | (© RARER 次 总 结果 中 发 | METRANA 
生 的 频率 f 
P (E) ~ LE) 时 
未 可 重复 事件 未 知 精确 的 数学 形式 不 可 能 
主观 概率 (个 人 的 ) 参看 第 4.12 节 有 相对 频率 基于 专家 的 观点 、 经 验 、 判 断 、 
信念 





4.7 ”复合 概率 


复合 事件 的 概率 可 由 其 样本 空间 计算 。 作 为 一 个 简单 的 例子 ,考虑 掷 出 骨 子 为 双 数 且 能 被 3 整除 
的 概率 ， 用 文 氏 图 在 仙子 的 样本 空间 表示 集合 : 


A= { 2, 4, 6 } B= { 3, 6 } 


如 图 4.5 所 示 。 








ANMB={ 6} 
因而 该 MEA BA 
P(A N B) = aga = 5 
其 中 n 为 集合 元 素 个 数 ，S 为 样本 空间 。 图 4.5 MLRF ATOKA 
彼此 互 不 影响 的 事件 ， 称 为 独立 事件 (independent 被 3 整除 的 复合 概率 


event)。 两 个 独立 事件 A 与 B 同 时 发 生 的 概率 为 它们 的 概率 之 积 ,事件 A 与 B 称 为 两 两 独立 (pairwise 


independent). 
P(A N B) = P(A) P(B} 


当 且 仅 当 上 式 成 立时 ， 两 个 事件 称 为 随机 独立 事件 (stochastically independent event)。 其 中 术语 
stochastic 源 于 希 脂 文 ， 意 思 是 “猜测 ”， 它 常用 作 可 能 、 随 机 、 机 会 等 的 同义词 。 所 以 ， 与 确定 性 实验 
有 非 随 机 结果 相反 ， 一 个 stochastic 实验 会 有 随机 的 结果 。 

对 三 个 事件 ， 你 可 能 会 猜测 其 独立 条 件 为 


P(AM BMC) = P(A) P(B) P(C) 


遗憾 的 是 ， 生 活 和 概率 并 非 如 此 简单 。N 个 事件 相互 独立 (mutual independence)， 需 要 满足 2° 个 等 
式 。 这 种 要 求 可 在 下 列 等 式 中 归结 出 ， 其 中 x 表示 事件 及 其 补 集 均 需 满足 该 等 式 : 


P(A‘, N A*, ... Ñ Aty) = P(A*1) P(A*2) ... P(A*s) 
对 3 个 事件 而 言 ， 上 述 独立 性 的 等 式 可 变 为 需要 满足 下 列 所 有 等 式 。 
P(AM BMC) = P(A) P(B) P(C) 


PIANMBMC') = P(A) P(B) P(C) 
P(AM B MC) = P(A) P(B) P(C) 
P(AMB' MC’) = P(A) P(B) P(C) 
PA'N BAC) = P(A’) P(B) P(C) 
P(A M BMC’) = P(A’) P(B) PIC’) 
P(A’ NB ' NC) = P(A’) P(B’) P(C} 
P(A’ AB Mc’) = P(A’) P(B') P(C) 
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任意 两 个 事件 相互 独立 ， 并 不 能 保证 所 有 事件 是 相互 独立 的 ， 这 可 在 习题 4.6 中 得 到 验证 。 
就 拿 刚 才 的 货 子 来 说 ， 点 数 为 偶数 与 能 被 3 整除 的 事件 相互 影响 ， 并 非 随机 实验 。 但 一 个 仍 子 的 
点 数 为 偶数 和 另 一 般 子 的 点 数 能 被 3 整除 ， 这 两 个 事件 的 概率 却 是 独立 的 。 


P(A UB) = P(A) P(B) = 2x 2a 
6 6 6 


现在 让 我 们 来 考虑 一 下 事件 的 并 的 情形 ，P (AUB)。 定 义 n 为 一 个 函数 ， 返 回 一 个 集合 的 元 素 个 
数 。 假 如 我 们 把 A 的 元 素 个 数 与 B 的 元 素 个 数 相 加 之 后 再 除 以 样本 空间 的 元 素 总 数 n (S), 


A}+ 
(1) pia Up) = PA tal) - pa) pip 
n(S) 


那么 当 集 合 有 重合 的 话 ， 结 果 将 会 很 大 。 如 果 你 观察 图 4.5， 应 用 这 个 公式 可 以 得 到 


3 十 2 
P(A U B) = -2 
6 6 


但 你 很 容易 发 现 ， 并 集 里 面具 有 4 个 元 素 ， 因 为 
AUB= { 2, 3, 4, 6} 

问题 出 在 当 n (A) 和 n (B) 相 加 时 把 同时 属于 A 和 B 的 交集 161 计算 了 两 次 。 
正确 的 公式 仅仅 需要 减 去 额外 的 交集 概率 


(2) P(A U B) = P(A) + P(B) ~ P(A N B) 
结果 减少 为 : 
3 2 1 4 2 


P(A UB) = + 一 二 = = 
6 6 6 6 3 


当 集 合 不 相交 即 没有 任何 公共 元 素 时 公式 (1) 成 立 。 它 是 公式 (2) 的 一 个 特例 。 公 式 (2) 称 为 加 法 
律 (Additive Law)。 运 用 前 面 讨论 过 的 3 个 概率 公理 ， 加 法 律 可 作为 一 个 定理 被 推出 。 对 于 3 个 事件 ， 
加 法 律 是 : 


P(AU BUC) = P(A) + P(B) + P(C) 
— P(A N B)- P(A Nc) -P(BN Cc) 
+ P(AANBNC) 


其 他 定律 如 非 A 非 B 和 AB 的 异 或 也 可 以 从 公理 中 推导 出 来 。 这 些 定律 对 于 复合 概率 的 作用 在 于 : (1) 
可 以 不 用 去 试验 概率 的 每 一 种 可 能 组 合 ; (2) 不 用 计算 大 样本 空间 的 独立 元 素 。 








4.8 条 件 概率 
不 是 互相 排斥 的 事件 可 相互 影响 。 一 个 事件 的 发 生 可 能 导致 我 们 去 更 改 另 一 个 将 发 生 事件 的 概率 。 
乘法 律 


在 事件 B 发 生 的 条 件 下 ， 事 件 A 发 生 的 概率 称 为 条 件 概率 (conditional probability), H P (AIB) 
表示 。 条 件 概率 定义 为 : 


P(AMB) 


for P(B) # 0 
P(B) 


P(A | B) = 


WEP (B) 是 在 任何 信息 被 知道 之 前 的 先 验 概 率 。 当 和 条 
件 概率 一 起 使 用 时 ， 先 验 概率 有 时 也 称 为 非 条 件 概率 (un- 
conditional probability) 或 绝对 概率 (absolute probability) o 

条 件 概 率 的 定义 可 以 作出 直观 解释 ， 如 果 你 观察 图 
4.6 的 有 8 个 事件 的 样本 空间 的 例子 。 从 图 4.6， 概 率 可 用 
事件 数 n (A) 或 mn (D 和 样本 空间 的 总 事件 数 n (S) Apa sg 两 个 相交 事件 的 样本 空间 
比率 来 计算 。 即 : 








@ 
S 
wX 
a 
tk 








_4 
“n(s) 8 
6 
P(B) = =a 


如 果 我 们 知道 事件 B 已 经 发 生 ， 减 少 的 样本 空间 仅仅 为 B: 


nn(S) = 6 
既然 B 已 发 生 ， 则 仅 需 考虑 A 中 与 BB 一 起 的 事件 


P(A | B) = 一 一 一 一 = 


要 用 概率 的 形式 来 表达 结果 ， 只 需 上 式 中 的 分 子 分 母 同 时 除 以 n (s): 
n(AMB) 

n(S) 

n(B) 

n(s) 


P(AMB 
= PAN B) for P(B) # 0 
P(B) 


于 是 两 个 事件 的 乘法 律 (Multiplicative Law) 就 被 定义 为 ， 
P(A N B) = P(A | B) P(B) 
等 价 于 : 
P(A N B) = P(B | A) P(A) 
三 个 事件 的 乘法 律 是 : 
PAN BMC) = P(A| BNC) P(B IC) PIC) 
进一步 ， 一 般 的 乘法 律 (Generalized Multiplicative Law) 为 : 
P(A. A: MN... NQ Aw) = P(A | AD. N A) . 
P(A; | Ay M2. As) - 
- P(Ay-: | As) P (An) 
作为 概率 的 一 个 例子 ， 表 4.6 给 出 了 使 用 X 品牌 的 磁盘 驱动 器 在 一 年 内 损坏 的 假设 概率 - 
表 4.6 磁盘 驱动 器 在 一 年 内 损坏 的 假设 概率 


P(A | B) = 











X 品 牌 非 义 品牌 X 行 总 和 
损坏 C 0.6 0.1 0.7 
不 损坏 C 0.2 0.1 0.3 
列 总 和 0.8 0.2 1.0 


表 中 间 部 分 的 概率 0.6、0.1、0.2 和 10.1 HA ARE (interior probabilities) ， 表 示 事 件 的 交集 。 行 和 
列 的 和 显示 总 数 ， 称 为 边际 概率 (marginal probabilities) ， 因 为 它们 位 于 表 的 边缘 。 

表 4.7 和 表 4.8 更 加 详细 地 体现 了 集合 和 概率 的 含义 。 图 4.7 给 出 了 相交 样本 空间 的 文 氏 图 。 从 
表 4.8 我 们 可 以 看 出 ， 行 和 列 的 概率 总 和 均 为 1。 








#47 集合 解释 
X x’ 行 总 和 
C CNX CNX’ C= (CNX) U (CNX) 
C CNX CNX C= (CNX) U (CNX) 
列 总 和 X= (CNX) U X= (CNX) U 样本 空间 


(CNX) (CNX) 
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A s S| 
表 4.8 两 个 集合 的 概率 解释 
X x 行 总 和 
C P (CNX) P (CNX’) P (C) 
Cc P (CNX) P (C'NX’) P (C) [xne 
列 总 和 P(X) P(X’) 1. 0 
一 一 一 一 一 一 一 一 一 一 一 一 一 图 4.7 两 个 集合 的 样本 空间 解释 


使 用 表 4.8， 所 有 事件 的 概率 都 可 以 计算 出 来 。 一 些 概 率 如 下 : 
(1) 使 用 X 品牌 和 非 和 品牌 〈 样 本 空间 ) 损坏 的 概率 


P(C) = 0.7 
(2) 对 于 样本 空间 ， 不 损坏 的 概率 
P(C) = 0.3 

(3) 使 用 X 品 牌 的 概率 

P(X) = 0.8 

(4) 不 使 用 X 品牌 的 概率 

P(X’) = 0.2 


(5) 使 用 X 品牌 ， 且 损坏 的 概率 


P(C MX) = 0.6 


(6) 在 使 用 X 品 牌 的 条 件 下 ， 损 坏 的 概率 


当 你 读 概 率 (5) 和 (6) 的 陈述 时 ， 好 像 意思 相近 ， 但 是 (5) 仅仅 是 两 个 事件 的 交集 而 (6) 是 
一 个 条 件 概率 。 交 集 (5) 的 意思 是 : 

如 果 随 机 抽取 一 个 磁盘 驱动 器 ， 那 么 有 0.6 的 可 能 是 X 品 牌 并 且 已 经 损坏 。 
也 就 是 说 ,我 们 只 是 从 磁盘 驱动 器 的 集中 抽取 样本 。 驱 动 器 有 一 些 是 X 品 牌 且 已 损坏 (0.6); 一 些 不 
是 义 品牌 并 且 已 损坏 (0.1); 一 些 是 X 品 牌 并 且 没 有 损坏 (0.2); 一 些 不 是 和 品牌 并 且 没有 损坏 
(0.1)。 

相反 ， 条 件 概率 (6) 的 意义 是 非常 不 同 的 : 

如 果 一 个 品牌 的 驱动 器 被 抽取 ， 那 么 有 0.75 的 可 能 它 是 已 经 损坏 的 。 
注意 在 条 件 概率 中 ， 我 们 是 挑选 了 那些 我 们 感 兴趣 的 项 目 〈X 品牌 )， 并 把 它们 看 作 -个 新 的 样本 空间 。 

如 果 下 列 等 式 中 有 任何 一 个 成 立 ， 则 事件 A 和 B 是 独立 的 (independent)。 


P(A | B) = P(A) or 
P(B | A) = P(B) or 
P(A N B) = P(A) P(B) 


如 果 这 些 等 式 有 任何 一 个 成 立 ， 则 其 他 的 也 同样 成 立 。 


贝 叶 斯 定理 
条 件 概率 P(A1B) 说 明了 当 事 件 B 发 生 时 事件 A 的 概率 。 相 反 的 问题 就 是 去 寻找 逆 概 率 (inverse 
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probability) ， 即 当 后 面 的 事件 发 生 时 ， 前 面 的 事件 发 生 的 概率 。 这 类 概率 经 常 发 生 ， 如 根据 表现 出 来 
的 症状 进行 医学 或 设备 诊断 时 ， 问 题 就 是 要 寻找 最 可 能 的 起 因 。 解 决 这 类 问题 的 方法 是 贝 叶 斯 定理 
(Bayes”Theorem) ， 有 时 也 称 为 贝 叶 斯 公式 、 贝 叶 斯 准则 、 贝 叶 斯 定律 ， 它 是 以 18 世纪 英国 牧师 、 数 
学 家 汤姆 斯 : 贝 叶 斯 的 名 字 命 名 的 。 

作为 贝 叶 斯 定理 的 一 个 例子 ， 让 我 们 看 一 看 它 是 如 何 应 用 在 磁盘 驱动 器 损坏 这 个 问题 上 的 。 从 条 
件 概 率 (6) BIA, X 品 牌 的 驱动 器 有 75% 的 可 能 性 在 一 年 内 损坏 ， 根 据 (7)， 非 X 品 牌 的 驱动 器 在 
一 年 内 损坏 的 概率 是 50%。 相 反 的 问题 是 ， 假 设 你 有 一 一 个 驱动 器 并 且 不 知 其 品牌 那么 如 果 它 损坏 的 
话 , 是 X 品 牌 或 非 X 品 牌 的 概率 是 多 少 呢 ? 

由 于 计算 机 厂家 其 少 生产 自己 的 驱动 器 ， 所 以 你 不 知道 驱动 器 的 品牌 这 类 事情 是 经 常 发 生 的 。 许 
多 驱动 器 是 从 原 设备 供应 厂商 (OEM) 买 来 然后 重新 包装 以 自己 的 标签 出 售 。 根 据 OEM 提供 的 最 低 
价格 ， 驱 动 器 可 能 年 年 不 同 而 只 有 计算 机 厂商 的 标签 是 一 样 的 。 

已 知 一 个 驱动 器 损坏 ， 是 X 品 牌 的 概率 可 以 用 条 件 概率 和 结果 (1) (5) 得 出 : 


p pe- PENR -0.6 .6 
Xio TEE 7 


也 可 以 通过 对 分 子 用 乘法 律 及 (1). (3). (6) 得 出 : 


P(c|X)P(X) (0.75)(0.8) _ 0.6 6 
P(x | 0) ec = 0.7 -07 7 


概率 P (XC 是 着 概率 或 后 验 概 率 ， 它 表示 了 如 果 驱 动 器 已 损坏 ， 是 X 品牌 的 概率 。 图 4.8 显 
示 了 驱动 器 损坏 问题 的 判定 树 ， 方 形 表示 行为 (act) 或 判定 ， 圆 形 表 示 事 件 。 先 验 概率 是 那些 在 判断 
损坏 的 试验 之 前 决定 的 。 后 验 或 逆 概 率 是 那些 在 试验 完成 之 后 决定 的 。 后 验 概率 允许 我 们 去 修正 先 验 
概率 以 获得 更 精确 的 结果 。 
































没有 选择 选择 先 验 概率 
Xx 品牌 XX 品牌 
P(X’) =02 PCH) 

没 损坏 损坏 没 损坏 损坏 条 件 概率 

PCIX’) =05 信人 PCIXI=05 PC'IX)=025 P(C 1X) = 075 PEIH) 
PC AX)=0 PCAX)=01 PC AX) =02 PCMX)=06 联合 概率 -PEmH) 

= P(E|H PH p) 

„on 0l ney. fl n02 __06 l 
POs groz PO Os 01+06 PXI HOT POCOS gesor MERR EnH) 
=18 =i = 273 = 6/1 PH D= SRE AH) 

了 


图 4.8 磁盘 损坏 的 判定 树 
只 叶 斯 定理 的 一 般 形 式 可 以 用 一 组 事件 三 和 假设 可 以 下 列 形 式 之 一 表示 : 


_ _P(E N H;) 
PE N 45) 
j 


P(H, | E) 
_ P(E IH) P(H:) 
DPE | H;) P(H;) 


_ P(E | Hy) PH) 
- P(E) 
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49 ”假设 推理 与 反 向 归纳 


贝 叶 斯 定理 经 常 在 商业 和 社会 科学 的 判定 树 分 析 中 使 用 。 贝 叶 斯 决策 过 程 (Bayesian decision mak- 
ing) 也 应 用 于 PROSPECTOR 专家 系统 以 确定 矿产 探测 的 最 佳 位 置 。 作 为 发 现价 值 $ 100 000 000 的 钻 
的 第 一 个 专家 系统 ，PROSPECTOR 久负盛名 。 

作为 在 不 确定 环境 下 贝 叶 斯 决策 过 程 的 一 个 例子 ， 让 我 们 看 一 看 石油 探测 问题 。 首 先 ， 
PROSPECTOR 必须 决定 发 现 石油 的 可 能 性 ， 如 果 没 有 迹象 表明 是 否 有 石油 ，PROSPECTOR 将 选 定 石 
油 的 主观 先 验 概率 : 

P(O) = PlO) = 0.5 

在 没有 任何 迹象 的 情况 下 ， 把 概率 平均 分 配给 可 能 的 结论 称 为 绝望 (in desperation) 做 法 。 术 语 
绝望 并 不 意味 着 PROSPECTOR 处 于 绝望 状况 。 它 是 一 个 技术 术语 ， 表 示 无 偏见 地 先 验 分 配 概率 。 设 
PROSPECTOR 相信 有 比 50-50 更 高 的 可 能 性 找到 石油 。 假 设 如 下 : 

PIO) = 0.6 P(O) = 0.4 

一 个 在 石油 和 矿产 探测 中 非常 重要 的 工具 是 地 震 测量 (seismic survey)。 这 种 技术 使 用 炸药 或 机 器 
产生 声音 振动 并 在 地 球 中 传播 。 声 波 被 不 同位 置 的 扩 音 器 接收 。 通 过 观察 振动 的 到 达 时 间 和 声波 格式 
的 失真 ， 就 可 能 知道 地 质 结构 和 含有 石油 、 矿 产 的 可 能 性 。 遗 憾 的 是 地 震 测试 并 不 是 百分之百 准确 。 
声波 可 能 被 某 种 类 型 的 地 质 结 构 影 响 ， 导 致 测试 报告 说 有 石油 ， 但 实际 上 没有 错误 肯定 )。 同 样 的 ， 
测试 可 能 报告 石油 不 在 某 处 而 事实 上 该 处 有 石油 (错误 否定 )。 假 设 地 震 测试 的 过 去 历史 已 给 定 了 下 列 
的 条 件 概率 ， 条 件 概率 中 “+ ”是 一 个 肯定 结论 ,“- ”是 一 个 否定 结论 。 注 意 这 些 是 条 件 概率 ， 因 为 
起 因 (有 油 或 没 油 ) 肯定 已 在 结果 (测试 结果 ) 之 前 发 生 。 后 验 概 率 将 从 结果 (测试 结果 ) 返回 起 因 
(有 油 或 没 油 )。 一 般 的 ， 一 个 条 件 概 率 在 时 间 上 是 正 向 的 而 后 验 概率 在 时 间 上 是 反 向 的 。 

P(+| 0)= 0.8 P(- | 0) = 0.2( 错 误 否 定 ) 

P(+| 0 )=0.1( 错 误 肯定 ) P(-| 0)= 0.9 
使 用 先 验 和 条 件 概 率 ， 我 们 可 以 构造 出 如 图 4.9 所 示 的 初始 概率 树 。 图 中 同时 还 列 出 了 联合 概率 ， 它 
可 通过 先 验 和 条 件 概率 计算 得 到 。 





概率 
没 油 有 油 先 验 概率 
P(O’) =0.4 P(O) = 0.6 关于 探测 点 主观 
意见 - PHY 
~ Test + Test 条 件 概率 
P(~10’ PRIO ”地 震 测 试 结果 
=09 =08 PEIH ) 
Pi- 90’) P(+ NO’) Pi- NO} Po+ AO) $ Ay HF See — P(E mH) 
= 0.36 = 0.04 =0.12 oa P A TH pl ) 


图 4.9 石油 探测 的 初始 概率 树 
然后 ， 可 用 加 法 律 来 计算 肯定 和 否定 的 总 概率 。 


P(+) = P(+ NO + P(+ NO0) = 0.48 + 0.04 = 0.52 
P(-) = P(- M0) + Pi- M0’) = 0.12 + 0.36 = 0.48 


P (+) MP (-) 不 是 条 件 概率 ， 现 在 可 用 它 来 计算 该 探测 点 的 后 验 概率 ， 如 图 4.10 所 示 。 例 
i, P (O |- ) 是 在 该 点 的 基于 否定 测试 的 没 油 的 后 验 概 率 。 接 着 ， 联 合 概率 也 可 计算 出 来 。 注 意图 
4.9 和 图 4.10 的 联合 概率 是 一 样 的 。 在 得 到 初始 概率 估计 (或 猜测 ) 之 后 的 试验 信息 ， 如 地 震 测试 结 
果 后 ， 要 获得 好 的 结果 ， 概 率 的 修正 就 非常 必要 了 。 
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非 条 件 概率 


P(E) 


后 验 概 率 

- PtH IE) 
_ P(E1H )P(H,) 
7 P(E) 








P- 40’) Pi- MO) P+ 00’) P+ 00) ”联合 概率 -P(E 和 NH) 
=0.36 =0.12 = 0.04 =048 =PUH IE)P(E) 


图 4.10 石油 探测 的 修正 概率 树 


图 4.11 显示 的 是 使 用 了 图 4.10 中 数据 的 初始 贝 叶 斯 判定 树 。 如 果 赚 钱 的 话 ， 树 中 最 底 的 收益 
(payoff) 是 正 的 ， 反 之 是 负 的 。 假 设 的 金额 见 表 4.9。 








事件 
测试 结果 + 或 - 
行为 
放弃 或 钻探 、 
表 4.9 石油 探测 问题 的 收益 表 
Agm 如 果 成 功 ， 石 油 的 收益 $1 000 000 
钻探 费用 — $200 000 
$50,000 —$1.000,000 $1.000,000 —$50,000 — $1,000,000 $1,000,000 收益 地 震 测试 ~ $50 000 


图 4.11 石油 探测 的 初始 贝 叶 斯 判定 树 


因此 ， 如 果 发 现 石油 ， 收 益 是 $1 000000- $200 000- $50 000= $750 000， 然 而 如 果 地 震 测试 
结果 给 出 - $50 000 的 收益 ， 则 应 放弃 该 决策 。 而 没有 找到 石油 的 地 震 测试 和 钻 孔 花费 是 - $ 200 000 
— $50 000= - $ 250 000. 

为 了 使 PROSPECTOR 做 出 最 好 的 决策 ， 必 须 在 事件 结 点 A 处 计算 期 望 收 益 (expected payoff). 期 
望 收益 是 PROSPECTOR 沿 着 最 好 的 行动 路 线 能 够 得 到 的 收益 的 总 数 。 在 开始 结 点 A 计算 期 望 收益 ， 
我 们 必须 从 叶子 结 点 往 回 推 。 在 概率 理论 中 ， 这 个 过 程 称 为 反 向 归纳 (backward induction)。 也 就 是 
说 ,为 了 得 到 期 望 收益 或 达到 我 们 的 目的 ， 我 们 必须 往 回 推导 ， 去 寻找 引导 我 们 达到 目的 的 原因 。 

一 个 事件 结 点 的 期 望 收 益 是 每 个 收益 乘 以 导致 该 收益 的 概 涂 后 的 总 和 。 

结 点 C 的 期 望 收益 : 

$ 673 077 = ( $ 750 000) * (12/13) - ( $ 250 000) * (1/13) 


结 点 B 的 期 望 收 益 : 

$0=( $750 000) * (1/4) - ($ 250 000) * (3/4) 

在 行为 结 点 王 ， 我 们 必须 在 期 望 收益 - $50 000 (放弃 ) MH $846 153 (钻探 ) 之 间 做 出 决策 。 
BR $ 846 153 KF - $ 50 000， 我 们 认为 这 是 较 好 的 决策 并 把 它 写 在 结 点 上面。 放弃 的 路 径 将 用 = 
来 删除 (prune) Pik (poisoned) 以 表示 该 路 径 将 不 再 继续 ， 如 图 4.12 所 示 。 同 样 的 ， 在 行为 结 点 
D， 在 收益 - $500 000 和 一 $ 50 000 中 最 好 的 选择 是 - $ 50 000， 因 此 它 被 写 在 D 上 。 

最 后 ， 开 始 处 的 期 望 收益 将 被 计算 出 来 ， 如 下 : 

结 点 A 的 期 望 收益 

$ 350 000 = ( $ 673 077) * (0.52) -( $0) * (0.48) 
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事件 
测试 结果 + 或 - 


行为 
放弃 或 钻探 


事件 
有 油 或 没 油 


POI 一 
=1/4 





-$50.000 —$1,000,000 $1,000,000 -$50,000 —$1,000,000 $1,000,000 收益 
图 4.12 使 用 反 向 归纳 的 完整 的 石油 探测 贝 叶 斯 判定 树 


该 值 被 写 在 结 点 A 上， EAR A 没有 路 径 能 被 删除 ， 因 为 我 们 已 经 决定 去 做 地 震 测试 。 如 果 要 在 地 震 
测试 上 做 决策 ， 则 判定 树 将 继续 回 推 到 结 点 A 之 前 。 注 意 在 反 向 归纳 中 ,我 们 及 时 回 推 是 为 了 使 将 来 
的 行动 是 最 优 的 。 

判定 树 是 假设 推理 或 “如 果 …… 怎 么 样 ” 情 形 的 一 个 例子 。 通 过 探究 行为 的 任 一 路 径 ， 我 们 可 以 
删除 不 能 得 到 最 优 收益 的 路 径 。 某 些 类 型 的 专家 系统 工具 和 上 贝 叶 斯 软件 就 设计 了 假设 推理 和 终止 机 制 。 
关于 更 多 的 细节 ， 可 参看 附录 G 中 列 出 的 软件 资源 。 

特别 是 ， 贝 叶 斯 工具 既 可 免费 也 可 从 商业 资源 上 得 到 ， 这 些 工具 使 得 我 们 可 以 很 容易 地 以 图 形 方 
式 根据 不 同 的 “如 果 …… 怎 么 样 ”情形 来 构建 贝 叶 斯 和 概率 树 。 电 子 报表 如 Microsoft Excel 中 有 很 多 详 
尽 的 方法 来 处 理 不 确定 性 ， 并 且 除 了 Excel 自 带 的 经 典 概率 和 统计 函数 外 ， 你 还 可 以 从 网 上 找到 大 量 
的 宏 。 电 子 报表 方便 的 图 像 功能 也 使 得 复杂 数据 可 视 化 变 得 简单 。 

图 4.12 的 判定 树 给 出 了 PROSPECTOR 的 最 优 策略 。 如 果 地 震 测试 是 肯定 结果 ， 则 该 位 置 可 以 钴 
探 。 反 之 ， 则 应 该 放弃 。 虽 然 这 是 贝 叶 斯 决策 过 程 的 一 个 非常 简单 的 例子 ,但 是 它 确实 说 明了 包括 处 
理 不 确定 情形 的 推理 类 型 。 在 吏 复 杂 的 事件 中 如 决定 是 否 做 地 震 测 试 ， 判 定 树 可 能 会 非常 庞大 。 


4.10 时 间 推 理 与 马尔 可 夫 链 


依赖 于 时 间 的 事件 推理 称 为 时 间 推 理 (temporal reasoning)， 它 对 人 来 说 非常 容易 。 但 是 ， 却 难以 
把 时 间 事 件 〈temporal event) 形式 化 以 便 计 算 机 来 进行 推理 。 然 而 能 对 时 间 事 件 如 航空 交通 控制 进行 
推理 的 专家 系统 是 非常 有 用 的 。 在 医学 上 ， 人 们 已 经 开发 出 了 能 进行 时 间 推 理 的 专家 系统 ， 如 对 帮助 
病人 呼吸 的 人 工 呼吸 机 进行 通风 管理 的 VM 系统 ， 医 治 青光眼 的 CASNET 系统 和 心脏 病 病 人 的 数字 化 
治疗 指导 系统 。 

除了 VM， 上 面 提 到 的 其 他 医学 系统 相对 于 必须 实时 (real time) 操作 的 航空 控制 系统 而 言 ， 在 时 
间 推 理 方面 容易 一 些 。 由 于 推理 机 的 设计 和 大 量 处 理 过 程 的 需要 ， 大 多 数 专家 系统 不 能 实时 操作 。 建 
立 一 个 能 实时 进行 大 量 时 间 推 理 以 探究 多 种 假设 的 专家 系统 非常 困难 。 基 于 不 同 公 理 人 们 已 提出 了 不 
同 的 时 序 逻 辑 。 不 同 的 理论 针对 不 同 的 问题 。 时 间 是 否 有 开始 和 最 后 时 刻 ? 时 间 是 连续 还 是 离散 的 ? 
是 否 只 有 一 个 过 去 而 有 许多 可 能 的 将 来 ? 

根据 如 何 回答 这 些 问题 ， 可 以 提出 许多 不 同 的 逻辑 。 时 序 还 辑 在 传统 程序 上 也 非常 有 用 ， 如 在 并 
行程 序 的 合成 与 同步 过 程 中 。 

另 一 个 处 理 时 间 推 理 的 方法 是 概率 。 我 们 可 以 认为 时 间 的 推移 就 是 系统 从 一 个 状态 发 展 到 另 一 个 
状态 。 这 个 系统 可 以 是 任何 可 能 的 东西 如 股票 、 选 票 、 天 气 、 商 业 、 疾 病 、 设 备 、 遗 传 学 等 。 如 果 它 
是 概率 化 的 ， 则 该 系统 通过 一 系列 状态 的 发 展 称 为 随机 过 程 (stochastic process)。 

用 一 个 转换 矩阵 的 形式 来 表示 一 个 随机 过 程 是 非常 方便 的 。 对 于 有 两 个 状态 S 和 So 的 简单 事件 ， 
转换 矩阵 为 : 
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Si S 


ae © [Fe Pe] 


S: Pz, Pz 
其 中 Pu 是 指 从 状态 m 转换 到 状态 n 的 概率 。 
作为 一 个 例子 ， 假 设 所 有 现在 用 X 品牌 驱动 器 的 人 中 有 10% 的 人 会 在 需要 的 时 候 购 买 另 一 个 X 品 
牌 的 驱动 器 。 同 样 ， 假 设 现在 没有 使 用 X 品牌 驱动 器 的 人 中 有 60% 的 人 会 在 需要 一 个 新 驱动 器 时 购买 
X 品 牌 的 驱动 器 (X 品牌 驱动 器 的 唯一 优点 是 它 的 广告 )。 经 过 一 段 长 的 时 间 之 后 ， 有 多 少 人 会 使 用 X 
品牌 的 驱动 器 呢 ? 
转换 矩阵 TH: 
X x’ 
oe (Be ole! 


其 中 每 个 行 之 和 必须 为 1。 各 元 素 非 负 且 和 为 1 的 向 量 称 为 概率 向 量 (probability vector), T 的 每 一 行 


就 是 一 个 概率 向 量 。 解 释 转换 矩阵 的 一 个 方法 是 用 如 图 4.13 所 示 的 01 04 
图 表 。 注意 状态 X 到 自身 的 概率 是 0.1， 状 态 X 到 自身 的 概率 是 
0.4, 从 义 到 义 的 概率 为 0.9， 从 XX 到 义 的 概率 为 0.6。 4 09 

假设 初始 有 80% 的 人 使 用 X 品牌。 图 4.14 (a) 显示 了 部 分 状 — 


态 转换 的 概率 树 ， 其 中 状态 用 状态 号 和 驱动 器 品牌 标 出 。 注 意 该 树 

是 如 何 生成 的 ， 如 有 10 个 转换 ， 则 树 将 有 20 = 1024 FOR. 另 一 图 4.13 转换 矩阵 的 状态 图 解释 
种 画 树 的 方法 是 采用 格 ， 如 图 4.14 (b) 所 示 。 格 表示 法 的 好 处 在 

于 它 不 需要 用 许多 链 来 连接 状态 。 l 





(b) 状态 的 格 图 
图 4.14 ”状态 随时 间 变 化 的 树 和 格 图 
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在 确定 状态 下 系统 的 概率 可 以 用 一 个 称 作 状态 矩阵 (state matrix) 的 行 矩阵 来 表示 。 
S={P: P, ... Pyl 
Hp P +P tee tpl; 
开始 时 ， 八 成 的 人 拥有 XX 品牌 的 商品 ， 状 态 和 矩阵 为 : 
s, =[0.8 0.2] 
随 着 时 间 的 推移 ， 这 个 数字 会 根据 人 们 购买 哪个 品牌 而 改变 。 
为 了 计算 在 状态 2 时 拥有 X 品牌 和 不 拥有 X 品牌 的 人 数 ， 我 们 只 需要 依据 算 阵 乘法 规则 用 状态 托 
阵 乘 上 转换 矩阵 就 可 以 了 : 
S: = S$, T 
得 到 


S, =[0.8 0.2] He aA 


0.6 0.4 


= [(0.8)(0.1) + (0.2)(0.6) (0.8)(0.9) + (0.2)(0.4)] 


=[0.2 0.8] 
用 转换 矩阵 乘 以 第 二 个 状态 可 以 得 到 ; 
S, =S, T 
swa oa [22 2] 


$,=[0.5 0.5] 


用 转换 矩阵 乘 以 第 三 个 状态 可 以 得 到 : 


S,= S, T 
= [0.5 0.5] o o3] 
0.6 0.4 
S, = [0.35 0.65] 
以 下 的 状态 是 : 


Ss=[0.425 0.575] 

Są = [0.3875 0.6125] 

S- =[0.40625 0.59375] 
S = [0.396875 0.602125] 


注意 到 这 些 状态 收敛 于 ; 


[0.4 0.6] 


这 称 为 一 个 稳定 状态 矩阵 (steady-state matrix)。 当 系统 处 于 稳定 状态 时 称 它 是 平衡 的 ， 因 为 它 不 再 改 
变 。 有 趣 的 是 稳定 状态 并 不 依赖 于 初始 状态 。 如 果 使 用 其 他 任何 初始 概率 向 量 ， 会 得 到 同样 的 稳定 状 
态 值 。 . 

一 个 概率 向 量 S 是 一 个 对 于 转换 矩阵 工 的 稳定 状态 矩阵 ， 如 果 

(1) S= ST 
如 果 工 是 一 个 正规 转换 矩阵 (regular transition matrix), ， 即 它 只 有 正 的 元 素 ， 则 存在 一 个 唯一 的 稳定 状 
态 S。 转 换 矩阵 的 元 素 是 正 的 这 个 事实 表明 ， 无 论 初 始 状态 如 何 ， 在 某 些 时 候 ， 达 到 任何 状态 都 是 可 
能 的 。 也 就 是 说 ， 每 个 状态 都 是 有 可 能 达到 的 。 

一 个 马尔 可 夫 链 过 程 (Markov chain process) 定义 为 具有 以 下 的 特征 : 

(1) 有 限 个 可 能 的 状态 。 

(2) 过 程 在 一 个 时 刻 有 且 仅 有 一 种 状态 。 
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(3) 过 程 随 着 时 间 从 一 个 状态 向 另外 一 个 状态 变化 或 逐步 (steps) 趋 近 。 

(4) 一 个 变化 发 生 的 概率 仅 依赖 于 当前 的 状态 。 

例如 ， 假 设 给 定 一 个 有 限 状 态 集合 1A, B, C, D, E, F, G, H, H, MRE H 后 面 过 程 的 状态 
是 I， 那么 条 件 概率 : 

Pir |H) = PIT} HNGNFNENDNACNBNA) 
注意 图 4.14 (b) 的 格 图 非常 类 似 于 一 条 链 。 

磁盘 驱动 器 的 例子 就 是 一 个 马尔 可 夫 链 过 程 ， 稳 定 状 态 矩 阵 可 应 用 等 式 (1) 求 得 。 假 设 某 个 任意 
向 量 S 由 X 和 YY 组 成 ， 应 用 等 式 (1) 计算 如 下 : 


左边 相 乘 并 令 它 的 元 素 和 右边 对 应 的 元 素 相 等 ， 则 得 到 : 


0.1 X + 0.6 Y= xX 
0.9 X¥ + 0.4 YY 


这 是 一 个 依赖 方程 。 用 Y 表 示 X 有 : 


为 了 最 终 求 出 X 和 YY， 我 们 将 应 用 概率 之 和 为 1 的 事实 ， 也 就 是 说 


X+Y=1 


则 得 


[0.4 0.6] 
这 就 是 我 们 试验 数据 的 收敛 值 。 
4.11 信任 几率 

到 目前 为 止 ， 我 们 已 经 讨论 了 作为 理想 系统 中 可 重复 事件 测度 的 概率 。 然 而 ， 人 类 擅长 于 计算 许 
多 不 可 重复 事件 的 概率 ， 例 如 医疗 上 的 诊断 和 矿产 的 探测 ， 因 为 每 个 病人 和 矿产 位 置 都 是 不 同 的 。 为 
了 在 这 样 的 领域 开发 专家 系统 ， 我 们 必须 扩大 事件 的 范围 以 便 处 理 命 题 ， 即 一 个 为 真 或 假 的 陈述 。 例 
如 ， 一 个 可 能 的 事件 是 : 

“病人 浑身 长 满 红斑 点 ” 
而 命题 是 : 

“病人 出 麻疹 ” 
设 A 是 一 个 命题 ， 条 件 概率 

P(A | B) 
在 一 般 意义 上 是 一 个 不 必要 的 概率 ， 如 果 事 件 和 命题 不 可 重复 或 者 没有 一 个 数学 上 的 依据 的 话 。 相 反 
地 ，P (AID) 可 被 解释 为 当 B 成 立时 A 为 真 的 可 信和 度 (degree of belief). 

如 果 P (AJB) =1， 那 么 我 们 相信 A 当然 是 真 的 ; WR P (AJB) =0。 那 么 我 们 相信 ，A 显然 是 
假 的 ， 而 其 他 值 0<P (AIB) <1 则 表示 我 们 不 能 完全 确定 A 是 真 还 是 假 。 从 统计 学 的 角度 来 说 ， 假 
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设 (hypothesis) 就 是 其 真 假 依据 某 些 证 据 (evidence) 还 不 能 确定 的 命题 。 于 是 ， 使 用 条 件 概 率 来 表示 
似 然 性 (likelihood)， 如 P (HIE)， 就 是 表示 在 某 种 让 据 卫 的 基础 上 ， 假 设 H 的 似 然 性 。 

BRP (HIE) 有 条 件 概率 的 形式 ， 它 实际 上 意味 着 某 些 不 同 的 意思 一 一 似 然 性 和 可 信和 度 。 概 率 
适用 于 重复 事件 ， 而 似 然 性 适用 于 表示 非 重 复 事 件 中 信任 的 程度 。 由 于 专家 系统 是 人 类 专家 的 模拟 ， 
P (HIE) 一 般 是 在 有 某 些 证 据 下 的 情况 下 ， 专 家 对 某 种 假设 为 真 的 可 信和 度 。 当 然 ， 若 事件 是 重复 的 ， 
ABA, P (CHIE) 就 仅仅 是 概率 而 已 。 

如 果 我 们 同意 P (HIE) 意味 着 似 然 性 或 可 信和 度 ， 那 么 ，50% 或 95% 这 样 的 数字 又 意味 什么 呢 ? 
例如 ， 假设 你 有 95% 的 信心 你 的 汽车 下 次 能 启动 。 一 种 表达 这 种 似 然 性 的 方式 ， 是 用 打赌 中 的 几率 
(odds)。 在 某 事件 CC 的 前 提 下 ，A 相对 于 B 的 几率 是 : 

P(A | c) 
P(B | C) 
G B=A’, WA: 


_ Ppaalc) — ralo 
odds = P(A | cc) 1 - P(A | c) 


odds = 








定义 
P = P(A | ©) 
UA: 


P ad: 
odds = 7 及 P= ves 


P 1 + odds 


用 赌博 中 几率 的 话 来 说 ， 我 们 可 把 P 解释 为 赢 的 可 能 性 ， 而 1- 了 是 输 的 可 能 性 。 于 是 : 


odds = -如 


已 知 几率 的 话 就 可 计算 概率 或 似 然 性 ， 反 之 亦 然 。 
于 是 ，P=95% 的 似 然 性 相当 于 : 


0.95 
odds = =19 : 1 
1 —0.95 


即 你 相信 汽车 会 启动 。 也 就 是 说 ， 你 应 该 不 在 乎 (indifferent) 以 19:1 的 几率 打赌 汽车 会 启动 。 如 果 有 
人 出 1 美元 赌 车 不 会 发 动 ， 而 它 又 真 的 不 动 的 话 ， 你 将 要 赔 19 美元 。 无 论 什么 时 候 ， 当 一 个 可 信 度 用 
概率 表示 时 ， 你 都 能 用 打赌 中 等 价 的 几率 来 解释 它 。 换 句 话 说 ， 你 应 该 不 在 乎 现实 环境 中 是 用 可 信和 度 
还 是 打赌 中 等 价 的 几率 。 

概率 通常 与 演绎 问题 一 起 使 用 ， 即 在 相同 的 假设 下 ， 一 系列 不 同事 件 E 均 可 能 发 生 的 问题 。 例 
如 ， 一 个 吉 子 掷 一 个 偶数 ， 有 三 种 可 能 的 事件 : 

P(2| 偶 数 ) 

P(4| 偶 数 ) 

P(6| 偶 数 ) 

在 概率 上 ， 我 们 一 般 感 兴趣 于 P (EIH), EF E 是 根据 一 个 共同 假设 得 出 的 可 能 事件 。 在 统计 和 
归纳 推理 中 ， 我 们 知道 已 经 发 生 的 事件 但 想 找 出 能 导致 E 的 假设 的 似 然 性 ， 即 P(E|H;)。 概 率 本 质 上 
是 正 向 链 或 演绎 的 ， 而 似 然 性 则 是 反 向 链 和 归纳 的 。 虽 然 我 们 对 概率 和 似 然 性 使 用 同样 的 符号 P (X| 
Y) 表示 ， 但 应 用 却 不 同 。 通 常 ， 我 们 是 指 一 种 假设 下 的 似 然 性 或 一 个 事件 的 概率 。 

基于 可 信和 度 已 发 展 起 来 的 一 个 理论 是 个 人 概率 (personal probability) 论 。 在 个 人 概率 论 中 ， 状 态 
(state) 是 可 能 的 假设 ， 而 后 果 (consequence) 是 基于 信念 的 行动 的 结果 。 


4.12 充分 性 与 必然 性 
贝 叶 斯 定理 是 ， 
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P(E | H)P(H) 


(1) PCH | E) = 
(H | E) P(E) 


MTHWBE, WA 


P(E | H’)P(H') 


(2) P(E | E) = 
| E) P(E) 


FA (1) BREA (2) 得到: 


P(H | E) _ P(E | H)P(H) 


°) ba |E) PE | WYP) 





EX 日 的 先 验 几率 为 ; 


_ POH) 
o) = By 


后 验 几率 为 : 


P(H | E) 
p(y’ | E) 





O(H | E) = 


最 后 定义 似 然 率 (likelihood ratio) 为 : 


P(E | H) 


4) LS = 
(4) LS P(E | 8B') 





于 是 (3) ZR: 


(5) O(H | E) = LS O(H) 


等 式 (5) 是 Bayer 定理 的 几率 似 然 性 形式 (odds-likelihood form). 3X # Bayes 定理 的 形式 比 等 式 (1) 
使 用 起 来 更 为 方便 。 

因子 LS 也 称 为 充分 似 然 性 〈likelihood of sufficiency), AAA LS= ce ， 则 证 据 EW HAR 
REBT. MRE MHRA, WP (HIE) =1 且 P (H| E) =0。 等 式 (5) 可 用 来 求解 LS: 








P(H | E) 

_ oO | E) P(E | E) 
(6) LS = om) OPH) 
P(H’) 


此 时 , P (H) P (H) 是 某 个 常数 C， 于 是 等 式 (6) 化 成 


ER (4) 还 表明 在 这 种 情况 下 , EWT 五 是 充分 的 。 表 4.10 列 出 了 LS 其 他 值 的 意义 。 
类 似 于 LS， 可 定义 必然 似 然 性 (likelihood of necessity) LN: 








P(H | PE) 
o(H | E') BE |8) PH | E) 
(D N=- S TE lw) PCH) 
P(H’) 
(8) O(H | E') = LN O(H) 


如 果 LN=0, 那么 P (HIE) =0 。 这 表明 当 EWAN H 必 为 假 。 也 就 是 如 果 王 不 存在 则 H 为 
假 ， 即 E 对 了 HH 来 说 是 必然 的 。 

表 4.11 列 出 了 LN, E 和 H 之 间 的 关系 。 注 意 ， 除 了 “证 据 ” 被 “无 证 据 ” 所 替代 外 ， 它 和 表 
4.10 是 完全 一 样 的 。 

似 然 值 LS 和 LN 必须 由 专家 提供 ， 以 便 计算 后 验 几率 。 等 式 (5) 和 (8) 非常 易于 人 们 理解 。LS 
因子 表明 当 证 据 存在 时 ， 先 验 几 率 的 改变 ，LN 因子 则 表明 当 证 据 不 存在 时 ， 先 验 几率 的 改变 。 这 种 形 
式 使 得 专家 更 容易 指定 LS 和 LN 因子 。 





不 确定 性 推理 141 











R410 ” 似 然 率 、 假 设 和 证 据 之 间 的 关系 表 4.11 必然 似 然 性 、 假 设 和 证 据 之 间 的 关系 
LS 对 假设 的 影响 LN 对 假设 的 影响 
0 当 玉 为 真 时 日 为 假 0 当 玉 不 存在 时 H 为 假 
或 E' 对 日 是 必然 的 或 下 对 是 必然 的 
小 (O<LS<1) E 对 得 出 H 是 不 利 的 小 (0<LN<D E 不 存在 对 得 出 H ERAIK 
l EE 对 日 无 影响 1 下 不 存在 对 HH 无 影响 
大 (XLS) E 对 得 出 H 是 有 利 的 
oo F 对 H ERER 大 (1 和 LN) EE 不 存在 对 HH 是 有 利 的 
或 观测 到 下 意味 着 H YAH oo E 不 存在 对 日 是 逻辑 充分 的 


作为 一 个 例子 ， 在 PROSPECTOR 专家 系统 里 有 一 个 规则 具体 说 明了 特定 矿藏 的 证 据 是 如 何 支 持 
假设 的 : 

IF 有 石英 硫 矿 带 

THEN 必 有 钾 带 顺 迁 
这 个 特别 的 中 间 假 设 为 其 他 的 假设 提供 了 支持 ， 而 这 些 假设 导致 了 铜 矿 存 在 的 顶层 假设 。 对 于 这 条 规 
则 来 说 ,LS 和 LN 的 值 是 : 


LS = 300 
IN = 0.2 


这 意味 着 观测 到 石英 硫 矿 带 非常 有 用 ， 而 若 不 能 观测 到 硫 矿 带 则 没有 什么 意义 。 如 果 LN<1， 那 么 缺 
乏 硫 矿 带 将 强烈 表明 假设 是 错误 的 。 一 个 例子 是 以 下 这 条 规则 : 


IF 有 玻璃 宰 铁 矿 
THEN 有 最 佳 的 矿产 结构 


其 中 


LS = 1000000 
LN = 0.01 


4.13 推论 链 中 的 不 确定 性 
不 确定 性 可 能 出 现在 规则 或 规则 所 使 用 的 证 据 中 ， 或 同时 出 现在 两 者 之 中 。 在 本 节 ， 你 将 会 看 到 
现实 世界 中 对 具有 不 确定 性 的 某 些 问题 以 及 概率 是 如 何 给 出 解答 的 。 
专家 的 不 一 致 性 
从 前 面 小 节 的 等 式 (4) 可 知 : 
如 果 LS>1 则 P(EIH )< P( ElH) 
两 边 同 时 用 1 来 减 ， 得 到 一 个 反 向 的 不 等 式 : 
1- P(E | H) > 1 — P(E | H) 
HFP (E |H) =1-P (EIH), EP (E'/H’) =1-P (EIH), WA (7) ÆR: 


1— P(E | H) 
IN = TpE|H) < 


对 值 LN 和 LS 的 规定 可 归结 为 如 下 几 种 情形 : 
情形 1: LS>1 H LN<1 

从 等 式 (4) 和 (7) 可 得 其 他 情形 : 

情形 2: LS<1 H LN>1 
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情形 3: LS= IN=1 

虽然 这 三 种 情形 在 数学 意义 上 严格 限制 了 LS 和 LN 的 取 值 范围 ， 然 而 这 些 情形 并 非 总 能 在 现实 世 
界 中 有 用 。 对 于 用 作 矿 产 探测 的 专家 系统 PROSPECTOR 来 说 ， 专 家 们 指定 LS>1 且 LN=1 并 不 少 
见 ， 这 不 是 以 上 三 种 情形 中 的 一 种 。 因 为 专家 认为 对 证 据 的 观察 很 重要 ， 而 缺少 证 据 则 并 不 重要 。 

上 面 的 情形 表明 这 种 基于 贝 叶 斯 概率 理论 的 似 然 性 理论 对 矿产 探测 问题 来 说 是 不 完全 的 。 也 就 是 
说 , 贝 叶 斯 似 然 性 理论 只 是 能 处 理 LS>1 A LN=1 情形 理论 的 一 种 近似 。 对 于 专家 意见 符合 前 三 种 情 
形 的 领域 来 说 ， 贝 叶 斯 似 然 性 理论 是 适用 的 。 


不 确定 性 证 据 


在 现实 世界 中 ， 除 了 死亡 和 税收 以 外 ， 我 们 很 少 能 绝对 确定 某 个 事物 。 虽 然 到 目前 为 止 ， 我 们 已 
集中 讨论 了 不 确定 性 假设 ， 但 是 更 为 一 般 和 现实 的 情形 是 不 确定 性 假设 以 及 不 确定 性 证 据 。 

一 般 地 ， 假 定 全 证 据 (complete evidence) E 的 可 信 度 依赖 于 部 分 证 据 (partial evidence) e , 表示 
H: 

P(E|e) 


全 证 据 就 是 所 有 证 据 ， 即 所 有 可 能 的 证 据 和 假设 ,它们 组 成 EE。 部 分 证 据 e 是 我 们 所 知 的 上 上 的 一 部 分 。 
如 果 我 们 知道 所 有 证 据 ， 则 E=e H 


P(E|e) = P(E) 


其 中 P (Œ) EIEH E 的 先 验 似 然 性 。 而 似 然 性 P (Ele) 则 是 已 知 全 证 据 王 中 不 完整 的 知识 e 后 ， 我 们 
对 王 的 信任 。 
例如 ， 假 设 你 的 邻居 因 在 他 们 的 厨房 底下 采 石 油 而 变 得 富 了 起 来 ， 你 可 能 会 考虑 下 面 假设 和 证 据 ， 
H = 我 将 富 起 来 
E = 我 的 厨房 底下 有 石油 


用 规则 表达 就 是 : 

IF 我 的 厨房 底下 有 石油 

THEN 我 将 富 起 来 P(H |E)=1 

开始 时 ， 你 并 不 确切 知道 是 否 有 石油 在 你 厨房 底下 。 确实 的 证 据 是 钻 一 个 测试 井 ， 但 这 很 费 钱 。 
于 是 你 考虑 如 下 支持 上 的 部 分 证 据 e: 

。 邻居 已 经 因此 富 起 来 了 。 

。 经 常 有 某 些 黑色 物质 从 厨房 的 火炉 边 渗 出 来 〈 直 到 现在 ， 你 的 配偶 还 在 抱怨 你 的 烹饪 和 清洁 )。 

。 一 个 陌生 人 上 门 愿意 出 20 000 000 美元 买 下 你 的 房子 ， 说 他 喜欢 那 种 环境 。 
基于 这 些 部 分 证 据 ， 你 可 能 认为 你 厨房 底下 有 石油 的 似 然 性 相当 高 ，P (E le) = 0.98。 

ERE BUDA EE AEE PH 依赖 于 下 ， 而 下 基于 某 些 部 分 证 据 e, W P (Hle) Æ H 
依赖 于 e 的 似 然 性 。 根 据 条 件 概率 的 定义 有 : 








P(H M e) 
P(H |e) = ple) La 
图 4.15 说 明了 HOT EH eR FREER: V 
P(HNENe)+P(HNE Ne) 
P(H | e) = P(e) / & 
应 用 条 件 概率 的 定律 有 : 
eu Fe = P(H N E | e)P(e) +P(H N E' | e) P(e) 


P(e) 
(1) P(H | e) = PCH ME | e) + P(H ME’ | e) 


图 4.15 H 和 e 的 交集 
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(1) 式 也 可 用 下 面 的 一 种 形式 来 表达 。 因 为 ， 


PHNEN e} 


OE = 
PH |e) P(e) 


(2) PENE | e = PELEN ©) PEN e) 





P(e) 
又 因为 
_ P(E NM e) 

P(E | e) = Fe) 
所 以 (2) 化 成 

P(H ME |e) = P(H | EQ e) P(E! e) 
同样 ， 

PUHNE | e) = P(H | E Ne) BE | e) 
于 是 ， (1) 化 成 : 

(3) P(H | e) = P(H | ENe) P(E | e) + 


P(H | E'N e) PE' | e) 


通常 ， 我 们 并 不 知道 概率 P CHIEN) 和 P (HIE Ne), 但 是 ， 如 果 我 们 假设 这 些 都 能 用 P (HI 
E) MP (HIE) 趋 近 ， 则 (3) 化 简 为 : 


(4) P(H | e) = P(H | E) P(E | e) 
+ PIR | BY) P(E | e) 


等 式 (4) 实质 上 是 P (Hle) 关于 P (Ele) 的 一 个 线性 插值 表达 式 。 端 点 是 : 

(i) EE 为 真 , 则 P(Hle) =P(H| E); 

(ii)E 为 假 , 则 P(Hle) =P(H] E). 

当 P (El e) 等 于 先 验 概率 P(E) BY, Sat (4) 的 问题 就 显现 出 来 。 如 果 系 统 服从 纯粹 的 贝 叶 斯 
概率 ， 则 


(5) P(H | e) = P(H | E) P(E) + P(H | E’) P(E’) 
(6) P(H | e) = P(H) 
哪 一 个 正确 ? 


然而 ， 在 现实 世界 中 ， 经 验 表明 专家 们 给 出 的 主观 概率 几乎 可 以 肯定 是 不 一 致 的 。 例 如 ， 如 果 专 
家 使 用 不 一 致 情形 LS>1 A LN=1， 则 





O(H | E') = LN O(H) = O(H) 

由 于 
P 
0 = 
1-P 

所 以 

(7) P(H | B’) = P(H) 
在 (5) 中 应 用 (7), A: 

P(H | e) =:P(H | E) P(E) + P(H) P(E‘) 


= P(H | E) P(E) + P(H) (1 — P(E)) 
(8) P(H | e) = P(H) + P(E | E) P(E) — P(H) P(E) 


此 时 ， 


O(H | E) = LS O(H) 
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如 果 LS=1， 则 


OtH | E) = O(H) 
P(H | E) = P(H) 


由 于 专家 已 经 说 明 LS>1, 所 以 P (HIE) >P (H) ， 于 是 在 等 式 (8) 中 , 项 
P(H | E) P(E) — P(H) P(E) 


>0. HY, 0 是 当 LS=1 时 的 下 界 。 于 是 由 (8), 4 LS>1 A LN=1fẸt, 


P(H | e) > P(H) 
这 与 当 P (Ele) =P (E) 时 , P (Hie) 应 和 P (H) 相等 的 事实 巴 盾 。 由 于 P (Hle) >P (H) ， 概 率 
比 它 应 有 的 要 大 ， 并 且 有 可 能 在 把 它 作 为 某 一 规则 的 推论 应 用 到 推理 链 中 的 另 一 规则 时 被 进一步 放大 。 


修正 不 确定 性 | 
© PHIE) 
修正 上 述 问题 的 一 个 方法 是 , 假设 P (Hle) 是 一 个 分 段 线 三 





形 函 数 。 这 是 一 个 在 PROSPECTOR 中 应 用 得 很 好 但 不 是 基于 传 pute” 
统 概 率 理论 的 特别 假设 。 这 个 线形 函数 为 了 简化 运算 而 选 定 。 a 

该 函数 通过 图 4.16 中 的 三 点 。P (HI e) 的 计算 使 用 以 下 线 P(E) 1 
性 插值 式 P(Ele) 

DP | | 图 4.16 PROSPECTOR 中 部 分 和 证据 
PH | EY) + ea PE e 的 分 段 线性 插值 函数 
for 0< P(E | e) < P(E) 
P(H | e) = 


p(H | E) — P(H) 
PE | 2) ~ P(E)] 


for P(E) s P(E | e) <1 
使 用 该 公式 ， 先 前 讨论 的 LS>1 且 LN=1 的 不 一 致 情形 也 能 很 好 地 符合 。 AP (E | e) <P (E), 
WP (Hlo 的 值 不 变 , BP (Ele) SP (ŒE), MP (H) ©) 的 值 增 加 。 选 择 该 分 段 函数 而 不 选 一 条 直 
线 是 为 了 保证 当 P (Œ |e) =P (Œ) 时 ，P (Hle) =P (H); 


4.14 证 据 组 合 
最 简单 的 规则 是 如 下 形式 : 
IF E THEN H 


其 中 下 是 单个 已 知 证 据 ， 由 它 我 们 可 得 出 旦 为 真 。 遗 憾 的 是 ， 不 是 所 有 的 规则 都 如 此 简单 ， 因 此 有 必 
要 对 不 确定 性 作 补 充 说 明 。 
不 确定 性 证 据 的 分 类 

如 果 规 则 具有 不 确定 性 ， 便 会 出 现 许多 复杂 的 情形 。 根 据 我 们 处 理 的 是 可 重复 事件 还 是 主观 可 能 
性 ， 这 些 不 确定 性 可 用 概率 或 者 似 然 性 来 表达 。 为 了 简便 ,我 们 使 用 概率 一 词 来 表达 这 种 不 确定 性 。 

根据 证 据 是 确定 的 还 是 不 确定 的 、 是 简单 证 据 (simple evidence) 还 是 复合 证 据 (compound evi- 
dence) ， 可 把 各 种 不 同 的 情形 分 类 。 简 单 证 据 由 单个 证 据 组 成 ， 例 如 ， 

IF 变速 器 坏 

THEN 修 车 
而 复杂 证 据 则 由 多 个 证 据 组 成 ， 它 们 通常 用 AND 连结 ， 例 如 ， 

发 动机 坏 


P(H) + 
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THEN 卖 车 
或 者 形式 地 表示 为 : 
IF E, and F; then H 


我 们 可 以 为 这 个 规则 指定 一 个 概率 ， 例 如 P (HIENE) = 0.80， 它 意味 着 基于 这 些 证 据 ， 我 们 
有 80% 的 把 握 确 信和 车 子 应 被 卖 掉 。 

对 证 据 的 进一步 精炼 是 确定 其 概率 。 例 如 ， 变 速 嚣 坏 了 的 概率 依赖 于 下 面 两 种 征兆 : 

(a) 变速 器 漏 油 

(b) 不 能 倒车 

根据 这 些 观 测 可 得 出 变速 器 证 据 的 概率 。 例 如 ， 基 于 征兆 (a) 与 (b)， 可 断定 

P(Ele) = 0.95 

HP E= 变速 器 坏 

e= 上 述 征兆 (a) 与 (b) 

现在 ， 汇 总 各 种 不 同情 形 ， 以 便 详尽 地 探讨 概率 。 

情形 1: 由 一 个 已 知 证 据 得 出 H 

这 是 最 简单 的 情形 ， 规 则 具有 形式 : 

IF E THEN H 


在 没有 证 据 前 ，H 的 先 验 概率 为 P (H)。 当 知道 证 据 后 ，H 的 概率 根据 贝 叶 斯 定理 变 为 : 





pin |p = PAH OE) - P(H N E) 
P(E) P(ENMH)+P(ENMH') 
piu E) = P(H | E)P(H) 





P(E | H)P(H) + P(E | H’)P(H’) 


其 中 P(E) 为 下 的 观测 概率 。 
情形 2: 由 两 个 已 知 证 据 得 出 H 
这 种 情形 比 情形 1 复杂 ， 其 规则 形式 为 : 
IF E, and E: then H 
当 观 测 到 Ei SE, 之 后 ，H 的 概率 由 先 验 概率 P(H) BA: 


P(H N E, N E) 


P +O = 
(TE OB) = Tene) 


i P(H N E N E) 
= P(E, N E, N H) + P(E, N E NH’) 





(1) P(H | E N Ez) 


E P(E, N E, | H) P(H) 
~ P(E, N E, | H) P(H) + P(E, N E, | H’) P(H’) 


除非 作出 简化 假设 ， 否 则 上 式 将 不 能 再 化 简 。 如 果 假 定 证 据 E 与 E 彼此 条 件 独立 ， 则 ; 


P(E: N Ez | H) = P(E: | H) P(E | H) 
P(E; N E | H) = P(E. | H’) P(E, | H') 


于 是 (参看 习题 4.12 的 条 件 独立 问题 ): 


(2) P(H | BE; N Ez) 





_ P(E, | H) P(E | HB) 
~ P(E, | H) P(E, | H) + O(H’) P(E, | H')P(E, | H') 


st (2) 是 式 (1) 的 简化 ， 其 概率 都 具有 单一 的 概率 形式 ， 而 不 存在 诸如 P (ENEH) 的 联合 
概率 。 这 种 条 件 独 立 假定 会 出 现 一 些 问题 ， 稍 后 我 们 将 讨论 。 
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R (2) 虽 已 简化 ， 但 仍 须 知道 先 验 概率 P (E) 与 P(E )。 指 定 先 验 概率 对 专家 来 说 往往 很 困 
难 ， 因 为 他 们 不 用 这 种 方式 推理 。 比 如 ， 某 人 去 看 医生 ， 医 生 不 能 因为 感冒 是 常见 病 ， 发 病 率 高 而 假 
设 那 人 患 感冒 的 先 验 概 率 。 

然而 指定 先 验 概 率 的 主要 问题 是 难以 确定 其 似 然 性 。 对 于 诸如 掷 骨 子 之 类 的 可 重复 事件 ， 当 然 很 
容易 通过 经 验 或 理论 研究 得 到 其 概率 。 但 当 处 理 寻找 矿藏 之 类 的 事件 时 ， 便 不 可 能 准确 地 确定 其 似 然 
性 。 比 如 ， 你 的 房子 下 有 大 金 矿 的 先 验 似 然 性 是 多 少 ? 是 0.0000001, 0.000 00001, 还 是 其 他 数值 ? 
这 并 不 是 先 验 概率 不 能 确定 的 唯一 情形 。 

情形 3: 由 N 个 不 确定 性 证 据 得 出 H 

这 是 证 据 以 及 依赖 于 证 据 的 规则 中 具有 不 确定 性 的 一 般 情形 。 跑 着 证 据 数 目的 增加 ， 将 不 可 能 确 
定 所 有 复合 和 先 验 概率 (或 似 然 性 )。 对 N 个 证 据 的 一 般 情形 ， 人 们 使 用 了 不 同 的 近似 方法 来 计算 。 
通过 模糊 逻辑 组 合 证 据 

证 据 的 合 取 

设 有 规则 


IF E THEN H 


其 中 下 为 证 据 的 合 取 ， 即 

IF E. AND E; AND ... Es THEN H 
要 使 前 件 为 真 ， 所 有 的 E 都 必须 以 某 个 概率 为 真 。 在 一 般 情况 下 ， 每 个 证 据 都 基于 部 分 证 据 e， 证据 
的 概率 为 : 


P(E | e) = P(E. NEM... Ey | © 


_ P(E, ME, 1... By Ne) 
P(e) f 
车 证 据 Ei 全 部 条 件 独立 ， 则 联合 概率 变 成 单独 概率 的 积 ， 这 可 由 一 般 的 乘法 律 推 得 。 以 两 个 证 据 为 例 ， 
P(E, NE, N e) 
P(e) 
_ P(E: | E, N e) P(E, | e) P(e) 
7 P(e) 





P(E: N E | e) = 





使 用 独立 性 假设 ， 

P(E: | e) = P(E: | E: N e) 
HFE 与 已 无关 ,得 

P(E: N E, | e) = P(E: | e) P(E. | e) 


一 般 ， 


N 
P(E, NEM... E | e) = [JP | e) 
i=l 


虽然 理论 上 该 式 是 正确 的 ， 但 应 用 到 现实 问题 上 却 有 两 个 困难 。 首 先 ， 在 现实 世界 中 单独 概率 P 
(Eile) 往往 并 不 独立 。 其 次 ， 各 因子 的 乘积 通常 也 比 P (Ele) 小 很 多 。 

该 问题 的 一 个 近似 解法 是 用 模糊 逻辑 〈fuzzy logic) 来 计算 P (Ele): 

P(E | e) = min [P(Ei | e] 
其 中 min BBA P (Ele) 中 最 小 值 。 在 PROSPECTOR 系统 中 ， 上 式 取 得 了 令 人 满意 的 效果 。 而 
且 一 旦 P (Ele) 确定 ， 便 可 用 分 段 线性 公式 计算 P (Hle) Te 

模糊 逻辑 公式 的 主要 问题 是 : RTP (Ele) 的 最 小 值 之 外 ,概率 P〈Ele) 与 其 他 的 P (Ele) 无 
关 。 这 意味 着 只 要 最 小 值 不 变 ， 即 使 其 他 所 有 的 P (Ele) 增 大 ， 也 不 能 使 P (Ele) 发 生变 化 。 即 其 
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fh P (Ele) 通过 推理 链 所 传播 的 变化 ， 均 被 最 小 P (Ele) 所 堵 住 。 而 该 式 的 好 处 ， 则 是 计算 简便 。 


证 据 的 析 取 
若 规则 是 证 据 的 析 取 
IF E, OR Ez OR ... Ey THEN H 


则 当 假设 每 个 下 独立 之 后 ， 有 (参看 习题 4.13) 


nN 
PEle =1 - [J -Pe@, |e) 
i=l 


该 式 的 问题 是 计算 出 的 概率 太 高 。 在 PROSPECTOR 中 基于 模糊 逻辑 改 为 : 
P(E | e) = max {P(Ei | e)] 

其 中 max ARP (Ele) 中 最 大 值 。 

证 据 的 逻辑 组 合 
若 规则 前 件 是 证 据 的 逻辑 组 合 ， 则 可 用 模糊 逻辑 与 否定 法 则 来 计算 。 例 如 
IF E, AND (E; OR E;’) THEN H 


则 


E = E, AND (Ez OR &;') 
E = min (P(E | e), max (P(E: | e), 1 — P(E; | e)]) 


虽然 这 些 模糊 逻辑 公式 已 在 许多 系统 上 成 功 使 用 ， 但 也 可 为 组 合 证 据 定义 其 他 函数 。 比 如 ， 下 面 
就 是 代替 析 取 max 函数 的 另 一 种 定义 : 

P(E, UE, | H) = min [1, P(E, | H) + P(E: | H)] 
有 效 似 然 性 


一 般 情 况 下 ， 具 有 不 确定 证 据 与 不 一 致 先 验 概 率 的 复杂 规则 可 能 会 得 出 一 个 特殊 假设 。 假 定 条 件 
独立 性 成 立 ， 且 所 有 对 HH 起 作用 的 证 据 E BAR, WA: 








OH | BL ME: AM... Ex) = pi cs] O(H) 
其 中 
_ _ P(E; |H) 
“Si = BCE, m) 
如 果 所 有 对 HH 起 作用 的 证 据 都 为 假 ， 则 有 男 一 相似 式 子 : 
O(H | EB) N BY OM... Ey’) = p tm] O(H) 
其 中 
(Œ; | H) 
mi = Be TH) 


在 具有 不 一 致 先 验 概率 与 不 确定 证 据 的 一 般 情况 下 ， 有 效 似 然 率 (effective likelihood ratio) LE 定 
义 为 
ow | e) 
oO ŒH) 





LE, = 


其 中 6 为 第 i 个 对 互 起 作用 的 部 分 证 据 。 基 于 不 确定 与 不 一 致 证 据 ， 类 似 前 面 情况 可 修改 HA: 
对 于 一 个 使 用 不 确定 证 据 与 不 一 致 先 验 概率 的 专家 系统 来 说 ， 上 式 可 采用 以 下 方式 使 用 : 
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十 





Fx 
oH leNeN... ex) = IIl rs, | O(H) 


(a) 存储 每 条 规则 的 先 验 几 率 以 及 每 个 对 规则 起 作用 的 LE。 
(b) FSP (Ele) 被 更 新 时 ， 计 算 新 的 LE, 及 后 验 几率 。 


条 件 独 立 性 的 困难 


尽管 条 件 独立 性 假设 对 简化 贝 叶 斯 定理 有 用 ， 但 却 存在 一 些 问题 . 在 专家 系统 建造 的 初始 阶段 ， 
该 假设 是 有 用 的 ， 因 为 此 时 系统 的 一 般 行为 要 比 正确 的 数值 结果 重要 许多 . 因此， 在 开始 ， 知 识 工程 
师 可 能 更 感 兴趣 于 建立 正确 的 推理 链 而 不 是 正确 的 数值 结果 。 也 即 ， 在 某 些 系统 中 将 会 出 现 ， 中 间 假 
设 10 由 证 据 23 与 34 激活 ,假设 10 与 证 据 8 又 可 激活 假设 52 与 96， 假 设 15 不 能 由 证 据 23 与 24 激 
活 ， 等 等 。 

正如 本 节 等 式 (2) 所 示 的 那样 ， 在 条 件 独立 性 下 ,计算 P (H| ENE) 只 需 $ 个 概率 ， 它 们 是 : 

P(E. | H), P(E: | H), P(E;., H), P(E; | H'), P(H) 
而 计算 OQ (H) 所 需 的 P (H) 则 不 需 单独 列 出 。 这 是 因为 ， 

P(H*) = 1 — P(H) 
.在 习题 4.12 b) 中 给 出 了 另 一 个 计算 P (HIENE) 的 公式 ， 它 涉及 另外 4 个 概率 : 


P(H | E), P(H | E:), P(H’ | E), P(H’ | E;) 


因此 总 共有 9 个 概率 可 用 于 计算 P (HI ENE), 但 是 实际 上 只 须 指 定 其 中 5 个 ,给 出 5 个 后 剩 下 的 4 
个 可 由 其 导出 。 

这 种 对 独立 概率 个 数 的 要 求 在 专家 系统 开发 后 期 将 成 为 一 个 实际 的 问题 。 一 旦 推理 链 功 能 正确 了 ， 
知识 工程 师 必须 确信 能 给 出 正确 的 数值 输出 。 而 由 于 条 件 独立 性 假设 ,知识 工程 师 不 能 完全 自由 地 调 
整 9 个 概率 值 ， 以 使 其 输出 期 望 结果 。 

条 件 独立 性 假设 决定 了 联合 概率 P(E 站 E,)， 这 是 因为 ， 


P(E: N E:) = 





pierce) [2 Lede Ce). pe LERE E) 


P{H) P(H’) 
这 意味 着 先 验 概率 P (E), P (E), P (H) 已 限定 了 联合 概率 P (ENE), 这 与 人 类 专家 分 别 得 知 
P (E), P (Œ), P (ŒE NE) 相 久 盾 。 因 此 ， 条 件 独 立 性 限制 了 人 类 专家 所 有 知识 的 应 用 。 

尽管 条 件 独 立 性 假设 看 起 来 是 合理 的 ， 但 它 毕 竟 依 赖 于 专家 系统 所 模拟 的 现实 情况 ， 因 而 不 是 在 
所 有 情形 下 都 成 立 。 此 前 已 有 理论 宣称 条 件 独立 性 往往 是 错误 的 ， 另 一 理论 则 宣称 条 件 独立 性 暗含 严 
格 独立 的 意思 ， 而 这 就 证 明证 据 与 假设 的 更 新 无 关 ! 不 过 ， 这 一 论断 已 被 另 一 理论 所 推翻 。 

另 一 应 用 主观 贝 叶 斯 概率 的 方法 显示 了 条 件 独 立 性 假设 可 被 削弱 ， 以 致 不 再 是 严格 的 独立 。 


4.15 推理 网 


到 目前 为 止 ， 你 所 见 的 正 向 和 反 向 推理 链 例子 都 很 小 ， 只 包含 几 条 规则 。 但 在 现实 世界 问题 中 ， 
支持 一 个 假设 或 得 出 一 个 结论 所 和 需 的 推理 数目 却 非常 大 ， 而 且 这 些 推 理 中 的 许多 或 全 部 都 是 在 不 确定 
性 证 据 与 规则 下 进行 的 。 概 率 推理 与 贝 叶 斯 定理 已 成 功 地 运用 在 这 类 现实 系统 中 。 

对 专家 系统 来 说 ， 推 理 网 是 依赖 于 知识 分 类 学 的 一 个 好 的 结构 。 分 类 学 是 一 种 分 类 方法 ， 它 常 党 
应 用 于 诸如 地 理 、 生 物 之 类 的 自然 科学 中 ,在 第 2 章 的 不 同 种 类 黑莓 问题 分 类 网 中 ,你 已 经 见 到 了 一 
个 简单 的 分 类 法 。 

基于 两 个 目的 ， 分 类 学 是 有 用 的 。 在 把 对 象 分 类 并 显示 它们 与 其 他 对 象 之 间 的 联系 时 ， 分 类 学 有 
助 于 组 织 知 识 。 一 些 重要 特性 如 继承 性 可 以 通过 分 类 而 弄 得 很 清楚 。 

分 类 学 有 用 的 另 一 个 原因 是 它 能 指导 证 明 一 个 假设 的 搜索 ， 如 “该 位 置 有 铜 矿 ” 的 假设 。 由 于 地 
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球 表面 有 矿藏 的 直接 证 据 很 少 ， 所 以 在 矿产 探测 这 样 的 领域 ， 分 类 学 对 证 明 或 否定 假设 的 帮助 是 非常 
重要 的 。 在 决定 投资 时 间 、 金 钱 开始 钻探 之 前 ， 地 质 学 家 必须 尽力 搜集 证 据 以 支持 其 假设 。 


PROSPECTOR 


使 用 概率 推理 的 经 典 专家 系统 是 PROSPECTOR， 它 用 来 辅助 采矿 学 家 决定 一 个 位 置 是 否 具有 某 种 
矿产 的 良好 结构 。 其 基本 思想 是 把 地 质 学 家 的 专业 实用 知识 编码 成 不 同 的 矿产 模型 (model)。 矿 产 模 
型 是 支持 某 种 矿产 在 一 位 置 的 一 组 证 据 与 假设 。 除 了 辅助 识别 矿产 外 ，PROSPECTOR 还 可 建议 最 佳 采 
矿 点 。 随 着 更 多 的 模型 被 创建 ，PROSPECTOR 的 能 力也 随 之 增强 。 

每 个 模型 的 数据 均 以 推理 网 (inference net) 的 形式 组 织 。 图 4.17 总 结 了 曾 讨论 过 的 各 种 类 型 的 
网 ， 且 在 图 4.17 (d 中 显示 了 一 个 很 简单 的 推理 网 。 推 理 网 中 的 结 点 可 表示 证 据 ， 它 支持 其 他 表示 
假设 ， 如 存在 矿产 之 类 的 结 点 。PROSPECTOR 有 22 种 矿产 模型 ， 表 4.12 中 列 出 了 几 种 。 








结构 
关系 
对 象 
(a) 语义 网 
quarter quarter press 
( ) ; ( ) y ( ) button ©) receive 
< ~ item Q 
行为 
half-dollar 
太 
fb) 状态 图 状态 
IF B THEN C, D IF C THEN... 
行为 
规则 
{c) 判定 网 或 规则 网 
0.5 0.5 
a 






充分 、 必 然 似 然 性 4 假设 的 先 验 


10000, 0.00005 LS, LN | 几率 0 (H) 
tie 
(9) 推理 网 


图 4.17 一 些 网 络 类 型 
表 4.12 某 些 PROSPERCTOR 模型 


200. 0.001 


Rust on Body 











模 型 名 模型 描述 结 点 数 可 询问 结 点 数 规 则 数 
PCD RAH 200 97 135 
RFU BUA aH 185 147 169 


SPB DARA 35 21 32 
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在 表 4.12 中 ， 结 点 数 是 模型 中 所 有 结 点 的 数目 ， 可 询问 结 点 (askable nodes) 是 指 那些 询问 用 户 
以 获取 观测 证 据 的 结 点 ， 规 则 数 是 概率 推理 规则 的 数目 。 可 见 ， 模 型 中 有 很 多 不 确定 性 ， 而 概率 在 支 
持 假设 中 起 着 重要 作用 。 


推理 网 


PROSPECTOR 中 的 每 个 模型 均 编码 成 一 个 证 据 与 假设 之 间 的 联系 或 者 关系 网 络 ， 因 此 推理 网 就 是 
一 种 语义 网 。 观 测 事实 ， 如 由 地 层 探测 所 获得 的 岩石 结构 等 ， 组 成 了 支持 中 间 假 设 的 证 据 ， 而 多 组 中 
间 假 设 又 用 来 支持 顶层 假设 (top-level hypothesis) ， 即 我 们 想 要 证 明 的 。 如 果 不 是 很 有 必要 区 分 证 据 与 
假设 的 话 ， 我 们 以 术语 断言 (assertion) 统称 这 两 者 。 图 4.18 E7 T RAR PR Bi eB 
分 推理 网 。 


缩写 代码 一 > PCD ”1.0E -5~«— 先 验 概 率 









Porphyry 
文字 描述 Copper 顶层 假设 
Deposit 
在 证 据 E 下 假设 为 真一 
的 确定 性 值 (CHE) T 
缺乏 证 据 E 时 假设 为 真 


的 确定 性 值 (CHNE) 
0.1 









FCPCD 既 是 PCD 
的 证 据 ， 又 是 其 

证 据 FRE, FLE 和 
FSYSTEM 的 假设 






Favorable 
Combination of Regional 





and local evidence suggesting 3 
Porphyry Copper Deposit 






3, -4.5 
FSYSTEM 





1 -4 1.5, 一 4 
FLE 
; Favorable : Favorable ' Favorable 
: Regional 1 Local 1 System 
; Environment i Environment : 
MERE ALBERS (在 其 他 地 方 定 义 ) 


图 4.18 使 用 确定 性 因子 表示 的 PROSPECTOR 顶层 斑 岩 铜 假设 


经 验 表明 ， 专 家 们 难以 指定 先 验 概率 或 者 似 然 率 ， 因 此 ，PROSPECTOR 中 使 用 了 确定 性 因子 
(certainty factors) CHE 与 CHNE。 在 诊断 血液 疾病 的 MYCIN 系统 中 也 有 类 似 情形 ， 医 生 不 习惯 指定 
概率 ， 于 是 就 使 用 了 确实 性 因子 。 与 MYCIN 一 样 ，PROSPECTOR 中 确实 性 因子 从 一 5 到 +5 分 为 11 
个 等 级 ，- 5 表示 “肯定 不 ”， 而 + 5 表示 “肯定 是 ”。 

由 于 PROSPECTOR 采用 了 模糊 逻辑 与 确实 性 因子 来 表示 证 据 ， 所 以 它 不 是 纯 概 率 系统 。 在 第 $ 
章 ， 我 们 将 详细 讨论 确实 性 因子 与 模糊 逻辑 。 

图 4.19 更 详细 地 显示 了 图 4.18 中 的 FRE 结 点 。 

该 详细 图 中 ， 每 个 结 点 上 均 有 两 个 用 去 号 隔 开 之 数 ， 分 别 为 似 然 率 LS 与 必然 性 测度 LN， 比 如 左 
下 方 结 点 RCBB 的 LS，LN 值 为 20，1。 每 个 结 点 的 缩写 名 代表 其 描述 ， 如 RCIB 代表 (该 地 带 含 角 炼 
4) the Region Contain Instrcitive Bseclas。 在 每 个 结 点 上 还 有 一 单个 数值 ， 它 是 先 验 概率 ， 如 对 RCIB, 
该 值 为 0.001。 


推理 关系 
在 推理 网 中 , 证 据 支 持 或 否定 假设 用 箭头 表示 。 例 如 RCS、RCAD、RCIB、RCVP 与 SMIRA 均 支 
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图 4.19 PROSPECTOR 中 斑 岩 铜 推理 网 的 一 小 部 分 


持 或 否定 中 间 假 设 SMIR， 而 中 间 假 设 SMIR 则 是 假设 HYPE 的 证 据 ，HYPE 又 是 FLE 的 证 据 ， 如 此 
下 去 。 

地 质 学 家 在 模型 定义 中 要 求 以 两 种 一 般 方 式 来 组 合 证 据 之 间 的 关系 : 

。 BAS (logical combinations)， 如 AND MOR. EW Arik, 在 这 种 结 点 上 可 用 模糊 逻辑 计 





VOLCANIC 
PLUGS 









BAR. 
。 加 权 组 合 (weighted combinations), ， 用 似 然 率 LS 与 必然 率 LN。 当 证 据 为 真 时 ， 后 验 几率 可 通 
过 


o(H | E) = LS O(H) 
WH, ME 为 假 时 ， 可 通过 
O(H | E') = LN O(H) 


计算 。 当 下 不 能 确定 时 ， 如 前 面 小 节 所 讨论 的 ， 可 用 线性 插值 法 计算 P (H | E). 
术语 加 权 组 合 (weighted combination) 源 于 多 个 证 据 对 假设 起 作用 时 的 一 般 情 形 。 如 上 节 所 述 ， 


N 
OHI EE MEM... Ey) = be is, | O(H) 
i=1 


152 RAF 





取 对 数 得 : 
N 
log O(H | E: N BN -+ Ey) = log O(H) + [[1og LS; 
i=i 


这 可 解释 为 每 个 LS 通过 log LS, 对 假设 “投票 "。 每 个 log LS MMM — AAE 

由 于 具有 加 权 组 合 的 规则 形式 为 : 

IF E, AND E: AND ... Ex THEN H 
FELL, PROSPECTOR 有 时 被 称 为 基于 规则 的 系统 。 但 虽然 如 此 ，PROSPECTOR 却 不 如 一 个 真正 基于 
规则 的 产生 式 系统 灵活 。 其 局 限 之 一 是 缺乏 约束 变量 的 完整 机 制 。PROSPECTOR 是 一 个 针对 用 户 设计 
的 系统 ， 它 强调 效率 与 地 质 应 用 控制 ， 而 不 注重 产生 式 系统 的 一 般 性 。 

加 权 组 合 也 是 合 情 关 系 (plausible relations) 的 一 个 例子 。 术语 合 情 指 有 部 分 证 据 用 来 证 实 可 信 性 。 
PROSPECTOR 就 是 一 个 用 合 情 推 理 来 支持 或 否定 假设 的 系统 例子 ，PROSPECTOR 的 合 情 推理 基于 贝 
叶 斯 概率 ， 其 LS、LN 值 由 人 类 专家 给 出 。 

合 情 与 其 他 不 同 的 可 信 度 如 图 4.20 中 的 模糊 图 形 所 示 ， 这 些 术 语 的 一 般 意 义 在 表 4.13 中 说 明 。 





真 
表 4.13 某 些 用 于 事件 的 术语 


术语 与 假设 相关 的 证 据 


不 可 能 断然 否定 
可 能 不 全 然 否定 
B = 合 情 有 些 证 据 存在 
不 可 能 可 能 aat 大 概 Mk Je eee 
确实 完全 肯定 


图 4.20 用 于 描述 证 据 的 一 些 术语 的 相关 含义 


4.20 的 图 形 故 意 画 得 模糊 ， 就 是 为 了 描述 出 这 些 术 语 的 模糊 面 角 ， 以 及 从 一 个 转化 到 另 一 个 时 
的 模糊 性 。 注 意图 中 我 们 对 假设 的 信任 是 如 何 从 不 可 能 变 到 确实 的 。 确 实 信任 (certain belief) 意味 着 
真 ， 而 不 可 能 信任 (impossible belief) 意味 着 假 ， 没 有 一 种 不 确定 性 能 同时 包含 确实 与 不 可 能 信任 ， 它 
们 相当 于 逻辑 真 与 逻辑 假 。 术 语 certain evidence 有 时 含糊 使 用 ， 它 可 逻辑 真 或 假 。 也 就 是 说 ，certain 
evidence 不 具有 不 确定 性 ， 这 意味 certain evidence E HKA CHA) 也 可 不 可 能 信任 GES) 

可 能 信任 (possible belief) 意味 着 无 论 可 能 性 如 何 小 ， 也 不 能 就 此 否定 假设 。 例 如 ， 在 月 球 表面 的 
科学 分 析 之 前 ， 可 说 月 球 是 由 青 乳 酪 组 成 的 ， 虽 然 可 能 性 非常 小 ， 但 还 是 可 能 的 。 由 于 没有 明确 证 明 ， 
因此 可 能 性 仍然 存在 。 

合 情 信任 (plausible belie) 意味 着 有 点 可 能 。 术 语 合 情 常 常用 于 法 律 场合 表示 合理 而 缺乏 硬 证 。 
因此 ， 即 使 在 科学 研究 之 前 ,说 月 球 是 由 青 乳 酪 组 成 也 是 不 合 情 的 。 

大 概 信 任 (probable belief) 意味 着 ， 存 在 某 些 证 据 支持 假设 ， 但 不 足以 完全 证 明 这 个 假设 。 

在 没有 矿 场 证 据 的 情况 下 ， 比 如 说 ， 没 有 RCIB， 那 么 图 4.19 中 矿产 点 的 关系 仅仅 是 合 情 的 。 随 
着 证 据 的 积累 ， 这 种 合 情 关 系 可 能 变 成 大 概 ， 随 后 变 成 确实 。 

大 概 信任 (probable belief) 意味 着 ， 存 在 某 些 证 据 支 持 假设 ， 但 不 足以 完全 证 明 这 个 假设 。 例 如 ， 
如 果 你 玩 仍 子 一 直 在 赢 ， 但 当 你 的 朋友 提出 使 用 他 们 的 “幸运 ” 般 子 时 ， 你 突然 开始 输 起 来 ， 你 可 能 
会 大 概 信任 他 们 开始 转运 了 。 

在 没有 矿 场 证 据 的 情况 下 ， 比 如 说 ， 没 有 RCB, 那么 图 4.19 中 矿产 点 的 关系 仅仅 是 可 能 的 。 随 
着 证 据 的 积累 ， 这 种 可 能 关系 将 会 变 成 合 情 ， 接 着 大 概 ， 最 后 如 果 样 本 确定 了 假设 ， 则 变 为 确实 关系 。 
当 和 其 他 人 玩 骨 子 时 ， 如 果 你 输 了 你 赢 的 所 有 钱 ， 这 是 合 情 的 ， 你 的 运气 不 好 。 如 果 你 输 了 所 有 的 钱 
以 及 你 的 赌 本 ， 那 么 可 以 确认 你 运气 不 好 。 但 不 管 你 抛 多 少 次 仍 子 ， 甚 至 一 百 万 次 ， 都 只 是 统计 上 的 
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一 个 机 会 ， 因 为 只 有 抛 无 数 次 仍 子 才能 达到 100% 的 概率 。“0% 的 可 能 性 ”和 “100% 的 可 能 性 ”实际 
上 是 自 相 了 矛盾 的 。0% 或 100% 都 是 确实 的 ， 对 于 确实 的 东西 不 存在 可 能 性 ， 因 为 在 现实 世界 中 ， 确 实 
就 是 信念 。 如 果 有 人 说 :“ 我 看 到 和 别人 一 样 的 证 据 ， 但 仍然 确信 有 不 是 黑色 的 乌鸦 "， 他 们 是 在 表达 
一 种 信念 ， 真 正 的 信念 不 能 被 事实 改变 。 

当 你 建立 一 个 专家 系统 ， 尝 试 把 专家 的 知识 以 规则 和 事实 形式 表达 的 时 候 ， 这 是 一 个 需要 重点 考 
虑 的 问题 。 当 你 和 专家 面谈 获取 知识 时 ， 你 可 能 听 到 一 些 似乎 是 知识 但 实际 上 是 信念 的 内 容 。 在 把 这 
些 内 容 放 进 专家 系统 时 ， 你 必须 十 分 小 心 ， 因 为 它们 可 能 导致 错误 结论 。 另 一 方面 ， 假 如 专家 雇用 你 
就 是 基于 这 一 点 的 话 ， 如 果 系 统 不 能 如 预期 所 料 ， 他 们 会 不 高 兴 。 

另 一 个 关于 可 能 性 的 自 相 矛盾 是 你 昕 天 气 预 报 说 下 雨 的 可 能 性 是 50%。 一 个 50% 的 可 能 性 意味 着 
完全 不 知道 。 要 么 下 十 要 么 不 下 。 你 不 需要 概率 理论 或 者 天 气 预 报 员 预测 下 雨 还 是 不 下 。 事 实 上 , 下 
雨 不 下 雨 是 一 个 常识 。 同 样 地 ， 可 能 在 下 着 殊 泌 大 雨 的 时 候 你 听 到 天 气 预 报 员 说 有 100% 的 可 能 会 下 
雨 。 这 不 是 概率 ， 这 是 确实 。 

在 推理 网 中 除了 决策 结 点 与 它们 的 可 能 行为 之 间 的 关系 外 ， 还 有 一 个 值得 注意 的 特性 是 前 后 关系 
(contexts) ， 它 会 阻 断 信息 的 传播 ， 直 到 适当 时 候 。 使 用 前 后 关系 可 启动 或 中 止 推理 网 的 一 部 分 直到 确 
知 某 个 部 分 是 否 存 在 、 缺 乏 或 未 知 。 前 后 关系 的 一 个 目的 在 于 避免 在 所 需 的 证 据 建 立 之 前 ， 系 统 询问 
使 用 者 关于 某 些 证 据 的 问题 。 这 一 点 非常 重要 ， 如 果 人 们 被 问 到 一 些 似乎 无 关 的 问题 ， 他 们 会 觉得 很 
苦恼 。 任 何 一 个 系统 的 目标 都 应 该 是 获取 最 少 的 信息 得 到 一 个 有 效 的 或 至 少 是 可 接受 的 结论 。 例 如 ， 
如 果 你 去 看 医生 ， 第 一 个 前 后 关系 的 内 容 是 :“ 你 有 医疗 保险 吗 ?” 从 时 间 和 金钱 考虑 ， 问 更 多 不 是 必 
需 的 信息 是 昂贵 的 ,例如 “你 有 什么 问题 ?你 不 舒服 么 ? 你 有 挑选 好 的 太平 间 么 ?” 

推理 网 中 的 第 三 种 关系 是 前 后 关系 (contexts)， 它 会 阻 断 信息 的 传播 ， 直 到 适当 时 候 。 使 用 前 后 
关系 可 启动 或 中 止 推 理 网 的 一 部 分 直到 确 知 某 个 部 分 是 否 存在 或 未 知 。 前 后 关系 的 一 个 目的 在 于 避免 
在 所 需 的 证 据 建 立 之 前 ， 系 统 询问 使 用 者 关于 某 些 证 据 的 问题 。 

前 后 关系 的 基本 思想 是 控制 系统 追踪 断言 的 顺序 。 前 后 关系 说 明了 在 使 用 一 个 断言 前 必须 证 明 其 
所 需 的 条 件 。 前 后 关系 用 其 下 带 有 确定 性 范围 的 虚线 箭头 表示 ， 如 FMGS 和 PT. PT 结 点 被 阻 断 除非 
有 确定 性 在 0 到 + 5 之 间 的 证 据 表明 有 小 到 中 等 颗粒 大 小 的 斑 岩 石 组 织 。 斑 岩石 是 一 种 火山 岩 ， 其 组 
织 或 外 观 是 由 嵌 有 小 水 唱 的 岩石 组 成 ， 这 些 岩 石 称 为 母体 。 火 出 岩 是 由 地 球 深 处 的 熔 石 即 岩 浆 凝 固 而 
成 的 。 某 些 延 伸 到 地 面 上 的 火山 岩 ， 即 播 角 砾 岩 ， 是 矿物 构成 物 如 斑 岩 铜 的 证 据 。 

因此 ， 斑 岩 铀 是 由 府 有 小 铜 水 晶 的 岩石 母体 组 成 的 。 斑 岩 铜 是 铜 最 普遍 的 存在 形式 。 除 非 至 少 有 
小 到 中 等 颗粒 大 小 的 小 水 晶 存 在 ， 否 则 询问 斑 岩 组 织 是 没有 必要 的 ， 因 此 专家 系统 应 该 足够 聪明 不 问 
这 个 问题 。 问 没有 必要 问题 的 专家 系统 是 无 效率 的 且 很 快 就 会 使 用 户 苦 恼 。 

对 应 于 确定 性 因子 为 0， 或 者 不 超过 + 5 的 正 数 ， 其 中 +5 RN ARE”. 前 后 关系 中 确 





定性 范围 0 到 + 5 的 意思 是 PT 结 点 不 会 被 追问 ， 除 非 用 户 O 
指明 缺乏 证 据 。 
所 有 这 3 种 方法 组 合 或 者 容许 的 证 据 ， 都 可 是 结 点 之 R © 
间 的 实际 关系 。 它 们 指明 了 -个 断言 在 概率 上 的 变化 是 如 Gb 
何 影响 其 他 断言 的 。 (a) # 
推理 网 的 结构 N 
形式 地 ， 一 个 推理 网 可 以 定义 为 一 个 有 向 无 环 图 ， 其 
中 结 点 表示 断言 ， 弧 表示 不 确定 性 测度 如 LS ALN. A se SRS 
4.21 (a), (b) 和 (c) 就 是 合法 的 推理 网 结构 ， 因 为 它们 Oa care mma o PORIE 


都 没有 回路 。 注 意 ， 在 推理 树 中 箭头 指向 假设 ， 而 在 数据 
结构 树 中 箭头 却 是 从 根 发 出 。 正 如 第 3 章 所 述 那 样 ， 在 无 图 4.21 图 的 一 些 类 型 
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环 图 中 ,， 沿 着 箭头 是 无 法 返回 出 发 结 点 的 。 在 图 4.21 (d) 中 有 一 个 包含 4 个 结 点 的 环 。 禁止 有 环 的 原 
因 是 在 建立 假设 时 防止 循环 推理 。 在 基于 规则 的 系统 中 ， 一 个 合法 的 例外 是 通过 两 个 相互 触发 的 规则 
建立 一 个 循环 ， 该 循环 直到 满足 某 个 终止 条 件 为 止 。 

图 4.21 (c) 是 推理 网 的 一 种 不 期 望 类 型 。 问 题 在 于 当 有 许多 证 据 对 一 个 假设 起 作用 时 ， 在 证 据 之 
间 很 容易 产生 不 必要 的 相互 影响 。 一 般 说 来 ， 最 好 把 这 种 类 型 转化 为 一 种 带 有 中 间 假 设 的 更 象 树 型 的 
结构 。 

PROSPECTOR 推理 网 也 是 一 个 分 段 语义 网 (partitioned semantic net) ， 网 的 每 一 段 都 形成 一 个 有 意 
义 的 单元 。 分 段 语 义 网 是 由 Hendrix 提出 的 ， 以 便 允 许 功 能 强大 的 谓词 演算 ， 如 量化 、 蕴 含 、 否 定 、 
析 取 、 合 取 。 回 忆 一 下 第 2 章 的 普通 语义 网 ， 它 实际 上 是 为 通过 联系 来 表达 描述 性 的 知识 而 设计 的 。 
这 种 结构 适合 于 因果 关系 的 知识 ， 但 却 难以 表达 逻辑 关系 。 

分 段 语义 网 的 基本 思想 是 将 抽象 空间 (spaces) 中 的 结 点 集 和 弧 集 分 类 ， 其 中 的 抽象 空间 定义 了 关 
系 的 范围 。 一 个 空间 就 好 比 是 结构 化 语言 中 的 模块 或 软件 包 的 范围 。 例 如 ， 图 4.18 中 的 FRE 结 点 就 
可 认为 是 图 4.19 所 示 结 构 的 一 个 空间 。 

语义 网 的 能 力主 要 体现 在 建 模 语句 。 实 际 上 ，Hendrix 在 他 的 博士 论文 中 首先 设计 它们 用 来 表示 自 
然 语言 。 语 句 就 好 像 组 成 推理 网 结 点 的 证 据 和 假设 命题 一 样 。 作 为 分 段 语 义 网 中 语句 的 一 个 简单 例子 ， 
考虑 语句 “有 一 台 带 彩 显 的 计算 机 ”。 注 意 ， 这 是 一 个 存在 句 ， 因 为 它 含 有 量词 “有 ”。 

图 4.22 用 三 个 空间 显示 了 表示 这 一 语句 的 分 段 语义 网 。 空 间 -1 包含 一 些 关 于 计算 机 的 一 般 有 关 
概念 。 空 间 -2 包含 我 们 所 讨论 的 特定 计算 机 ， 它 被 标识 为 计算 机 -1。 空 间 -3 包含 特定 关系 
COMPONENTS.OF-1， 它 以 特定 彩 显 -1， 即 我 们 所 谈 到 的 彩 显 ， 作 为 其 对 象 。 每 条 标 有 “元 素 ”的 弧 
表示 一 个 状态 是 另 一 状态 的 元 素 。 而 标 有 “实体 ”的 弧 表示 其 所 指 特定 计算 机 是 带 有 特定 彩 显 的 
实体 。 


空间 -1 计算 机 的 一 些 有 关 概 念 


: gna, 
of-1 


空间 -2 具体 计算 机 实例 空间 -3 ”具体 彩 显 实例 
图 4.22 一 个 关于 计算 机 的 简单 分 段 语义 网 





分 段 语 义 网 的 优点 可 通过 图 4.23 来 说 明 。 图 4.23 显示 的 是 PROSPECTOR 中 关于 结 点 STIR 的 一 
条 规则 ， 结 点 STIR 使 用 了 证 据 FMGS。 该 规则 可 描述 为 “如 果 有 实体 E-1， 其 基数 值 为 ABUNDANT 
(丰富 ) Hh INTRUSIVE ROCKS (ARA) AR, WA STR (表明 有 火山 岩 组 织 )”。 注 意 ， 图 表 
已 经 被 简化 了 ， 因 为 没有 包含 前 件 中 还 必须 有 小 到 中 等 颗粒 大 小 的 条 件 。 

注意 ,在 图 4.23 中 ， 一 个 分 段 语义 网 组 成 了 规则 的 前 件 ， 另 一 个 组 成 了 后 件 。 虽 然 该 规则 的 后 
件 比 较 简 单 ， 但 其 他 规则 会 有 更 复杂 的 结构 。 分 段 语义 网 的 优点 在 于 系统 可 以 推断 出 没有 直接 相连 的 
结 点 之 间 的 关系 。 这 样 系统 的 知识 就 比 浅 知识 深 了 。 
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图 4.23 PROSPECTOR 分 段 语义 网 中 使 用 了 证 据 FMGS 的 结 点 STIR 的 简化 规则 


4.16 概率 的 传播 


推理 网 ， 比 如 PROSPECTOR 具有 静态 知识 结构 (static knowledge structure)。 也 就 是 说 ， 结 点 和 
它们 之 间 的 联系 是 固定 的 ， 以 便 保 持 知 识 结构 中 结 点 之 间 的 关系 。 这 与 基于 规则 的 系统 不 同 ， 其 模式 
与 事实 匹配 的 规则 被 放 入 议程 中 ， 进 行 冲突 归结 ， 然 后 执行 具有 最 高 优先 级 的 规则 。 因 此 ， 基 于 规则 
的 系统 是 一 个 动态 知识 结构 (dynamic knowledge structure) ， 因 为 不 像 推 理 网 结 点 之 间 那 样 ， 在 规则 之 
间 没 有 固定 的 联系 。 

尽管 推理 网 的 结构 是 静态 的 ,但 是 与 每 个 假设 结 点 关联 的 概率 会 随 着 证 据 的 获取 而 改变 。 事 实 上 ， 
这 种 概率 的 改变 是 推理 网 中 唯一 改变 的 东西 。 推 理 网 的 基本 特征 就 是 随 着 证 据 的 积累 ， 概 率 从 先 验 概 
率 变 为 后 验 概率 。 这 种 概率 的 改变 向 着 最 终 支 持 或 否定 顶层 假设 ， 如 斑 岩 铜 的 存在 一 PCDA 一 一 的 方 
向 移动 。 

基于 某 些 证 据 ， 让 我 们 来 看 看 PCDA 中 概率 传播 的 几 个 阶段 。 这 可 作为 你 所 见 过 的 许多 公式 的 一 
个 清晰 例子 。 参 看 图 4.19， 我 们 将 从 证 据 结 点 Region Contains Intrusive Breccias (该 地 区 含有 丰富 的 插 
Atha), ， 简 记 为 RCIB 开始 ， 跟 踪 概 率 的 传播 。 

如 果 用 户 说 ， 确 实 存在 丰富 的 插 角 砾 岩 ， 那 么 


P(E | e) = P(RCIB | e) = 1 


从 图 4.19 可 以 看 出 ，SMIR 的 其 他 证 据 的 LN 值 都 为 1。 也 就 是 说 ， 如 果 用 户 对 stocks ( 岩 株 )、 
dikes 〈 岩 脉 ) 、 和 volcanic plugs (KIE) 等 证 据 没 有 什么 补充 的 话 ， 那 么 这 些 对 SMIR 没有 什么 作用 ， 
因此 在 概率 的 传播 中 可 以 被 忽略 。 

所 有 这 些 证 据 可 以 被 忽略 的 原因 源 于 第 4.14 节 讨论 的 复合 证 据 公 式 : 


O(H | e) = fis] O(H) 
其 中 ， 对 所 有 已 知 为 真 的 证 据 ，Li = LS;， 对 所 有 已 知 为 假 的 证 据 ，Li = LN;。 如 果 没有 已 知 证 据 ， 则 
P(Eile) 还 原 为 证 据 的 先 验 概率 P(E;), 同样 P(HIE;) 还 原 为 先 验 概率 P(H)。 于 是 


OH | e) OUH) 





且 这 些 Li X OHIE) 没有 什么 作用 。 例 如 ， 当 只 有 RCIB 已 知 是 真 时 ，SMIR 的 几率 为 ; 
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O(H | E) = LSpovp Lge LSe LSawcaa LS pcre 
=1xix ix 1x 20 
O({SMIR | RCIB) = 20 


SMIR 证 据 的 另 一 个 有 趣 特 性 是 标记 为 SMIRA 的 OR 结 点 。 注 意 SMIR 的 所 有 证 据 也 连 向 SMIRA。 
如 果 有 任何 对 SMIR 起 作用 的 证 据 ， 如 RCS, RCAD, RCIB 3 RCVP, 那么 SMIRA 中 的 或 结 点 对 SMIR 
不 起 任何 作用 ， 因 为 SMIRA 的 LS 是 1。 然 而 ， 如 果 没 有 RCS, RCAD, RCB 和 RCVP 这 些 证 据 ， 那 么 
SMIRA 中 值 为 0.0002 的 LN 值 会 使 得 SMIR 的 概率 实质 上 为 零 。 从 根本 上 这 意味 着 ， 虽 然 对 SMIR 来 说 ， 
缺乏 一 个 或 多 个 证 据 并 不 重要 (LS= 1)， 但 是 对 推断 出 SMIR， 缺 乏 所 有 证 据 是 很 重要 的 。 

OR 结 点 、AND 结 点 、LS 值 和 LN 值 使 得 模型 设计 者 可 以 灵活 地 利用 证 据 来 影响 假设 。 然 而 ， 在 
某 些 复杂 的 情况 下 ， 为 适应 证 据 要 求 而 添加 的 许多 OR 和 AND 结 点 会 使 推理 网 变 得 星 涩 ， 以 致 让 人 难 


以 理解 。 这 些 特殊 结 点 的 增加 也 需要 对 模型 进行 更 多 的 测试 。 
从 图 4.20%, SHEERS RCIB， 有 LS=20, P (SMIR) =0.03。 
由 于 


P 
odds = O = 


于 是 SMIR 的 先 验 几 率 为 : 


0.03 
7 = 9.0309 
1— 0.03 


如 果 证 据 王 是 确实 的 ， 则 后 验 几 率 为 : 


o(H | E) = LS O(H) 
O(SMIR | RCIB) = 20 x 0.0309 = 0.618 


且 后 验 概率 可 由 基本 几率 公式 来 计算 。 





OQ!SXIR) = 











o 
P = 
1+0 
O(HIE) 
P(H | B) = 1+ O(HIE) 
0.618 
E) = = 0.382 
PH | E) 1+0.618 





因此 ， 在 证 据 RCIB 确实 的 条 件 下 ，SMIR 的 后 验 概 率 为 ; 


P(SMIR | RCIB) = 0.382 





而 HYPE 的 先 验 几率 为 ; 
O(HYPE) = <n = 0.0101 


此 时 ， 你 可 能 会 用 
OIH | E) = LS O{H) 
O(HYPE | SMIR) = LSsMTR O(SMIR) 
0.0101 


= —— = 3.00 
300 * 79.0101 


作为 HYPE 在 SMIR 下 的 几率 ,但 这 是 错误 的 。 只 有 当 证 据 上 E 确 实时， 公式 
O(H | E) = LS O(H) 

才 是 正确 的 。 该 公式 表示 了 在 证 据 是 确实 的 假定 下 ， 假 设 概 率 的 改变 。 然 而 

上 ,在 证 据 插 角 砾 岩 确 实 的 条 件 下 ，SMIR 的 概率 是 : 


P(SMIR | RCIB) = 0.382 


，SMIR 并 未 确实 。 事 实 
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这 意味 着 只 有 38.2% 的 似 然 性 SMIR 为 真 。 
我 们 真正 需要 的 是 基于 不 确定 性 证 据 SMIR 的 假设 HYPE 的 概率 ， 即 P (HYPE|RCIB)。 计 算 这 
个 概率 的 一 种 方法 是 用 在 第 4.14 节 讨论 的 P (Hle) AR, B 


P(H) — P(H | £) 
P(E) 
for 0 £ P(E | e) < P(E) 


P(H | E) + P(E | e’) 


P(H | E) — P{H) 
1 ~ P(E) 
for P(E) = P(E | e) S12 


其 中 ，SMIR 证 据 的 不 确定 性 为 ; 

P{E | e) = P(SMIR | RCIB) = 0.382 
而 我 们 所 需 的 概率 为 : 

P(H | e) = P(HYPE | SMIR) 
其 中 我 们 所 知 的 是 : 


om | E) 3.00 
H = = = 0.75 
PlH | £) 1+0 | £) 1+ 3.00 


从 图 4.19 可 知 先 验 几率 是 : 


P(H) = P(HYPE) = 0.01 


P(H) + [P(E | e) - P(E)] 





P(E) = P(SMIR) = 0.03 


由 于 P (Ele) >P (E)， 用 公式 P (E) <P (Ele) <1 Kit# P (HIE), MF: 


(0.75 — 0.01)(0.382 ~ 0.03) 
1- 0.03 





P(H | e) = 0.01 + 


P(HYPE | RCIB) = 0.279 
这 就 是 HYPE 的 后 验 概率 。 

概率 的 这 种 传播 构成 了 推理 网 。 现 在 概率 P (HYPE|RCIB) 就 是 FLE 的 不 确定 性 证 据 。 利 用 换 成 
了 FLE 值 的 同样 公式 可 以 算出 后 验 概率 P (FLE|RCIB)。 


P(E) = P(HYPE) = 0.01 
P(E | e) = P(HYPE {RCIB) = 0.279 
P(H) = P(FLE) = 0.005 
O(H | E) = O(FLE | HYPE) = LSwre O(FLE) 
= 200 x 0.005 = 1 
P(H | E) = P(FLE | HYPE) 
H F P=odds/ (1+ odds), 


PIH | E) = O(FLE|HYPE)/(1 + O(FLE|HYPE) ) 





= 1/(1 +1) 
= 0.5 


P(H | e) = P(FLE | RCIB) 


(0.5 — 0.005)(0.279 ~ 0.01) 
1-0.01 


= 0.005 + 





P(FLE | RCIB) = 0.140 
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4.17 小 结 


在 这 一 章 ， 我 们 首先 讨论 了 不 确定 性 推理 的 基本 概念 ， 以 及 由 不 确定 性 导致 的 误差 的 可 能 类 型 。 
然后 回顾 了 经 典 概率 理论 的 基本 内 容 。 讨 论 了 经 典 概 率 理论 和 其 他 理论 ， 如 经 验 概率 和 主观 概率 的 差 
别 。 也 讨论 了 组 合 概率 的 方法 和 贝 叶 斯 定理 。 本 章 还 描述 了 信任 与 概率 的 关系 ， 以 及 似 然 性 。 

分 析 了 经 典 的 专家 系统 PROSPECTOR 以 说 明 这 些 概率 概念 是 如 何 应 用 于 实际 系统 的 。 同 时 ， 以 
PROSPECTOR 系统 为 例 介 绍 了 推理 网 和 分 段 语义 网 。 

尽管 经 典 概 率 论 在 理想 系统 中 运用 和 良好， 但 它 并 不 总 是 适用 于 现实 系统 ， 如 PROSPECTOR 矿产 
探测 。 虽 然 最 初 是 用 概率 来 处 理 不 确定 性 ， 但 直到 引入 信任 因子 和 模糊 逻辑 到 概率 理论 中 ， 专 家 系统 
才 正 确 预测 出 已 知 模型 并 发 现 了 某 些 矿产 。 随 后 PROSPECTOR 被 用 于 未 知 特征 的 探测 ， 并 成 功 预 测 
出 价值 100 000 000 美元 的 钥 矿 。 

注意 ,在 探测 其 他 类 型 矿产 时 需要 用 到 不 同 的 地 质 特征 模型 、 不 同 的 确定 性 因子 以 及 模糊 逻辑 。 
这 样 做 并 没有 不 对 的 地 方 ， 因 为 这 只 不 过 是 反映 了 现实 世界 中 不 同 的 矿产 形成 方式 不 同 ， 所 以 探测 它 
们 的 证 据 和 理论 也 就 不 同 。 因 此 ,不同 领域 的 专家 知识 非常 重要 。 擅 长 发 现 钥 的 专家 不 必 擅 长 发 现 
石油 : 

另 一 个 重要 的 事情 是 你 必须 使 你 的 专家 系统 适应 现实 世界 ， 而 不 是 试图 让 现实 世界 符合 你 的 专 
家 系统 ， 否 则 会 导致 失败 。 所 有 的 理论 最 终 都 是 基于 不 需 证 明 的 公理 ,例如 欧 几 里 德 的 两 条 平行 线 
永 不 相交 的 公理 。 尽 管 这 一 点 在 欧 几 里 德 平面 中 是 正确 的 ,但 是 在 球 行 空间 或 者 其 他 非 平面 空间 中 并 
不 成 立 。 不 确定 性 理论 也 基于 公理 。 我 们 需要 引入 其 他 因素 如 信任 因子 和 模糊 逻辑 仅仅 是 因为 我 们 不 
了 解 百 万 年 前 矿物 质 是 如 何 发 展 ， 以 及 地 球 上 那个 位 置 的 特殊 化 学 结构 ， 所 以 不 能 确定 适用 哪 一 个 
公理 。 

我 们 同时 讨论 了 术语 不 可 能 、 可 能 、 合 情 、 大 概 、 确 实 的 含义 。 理 解 这 些 术 语 对 与 专家 沟通 时 从 
信任 中 分 离 出 概率 非常 重要 。 你 需要 特别 注意 一 些 理所当然 的 内 容 ， 因 为 这 些 可 能 是 由 常识 伪装 而 成 。 
例如 ， 常 识 告诉 我 们 如 果 一 丐 马 是 活 的 ,那么 它 跑 完 比赛 的 条 件 概率 是 100% ，P (Finish| Live) = 
100% 。 注 意 ,我 们 不 是 说 它 会 赢 而 只 是 说 它 会 跑 完 比赛 。 常 识 告诉 我 们 要 赢得 比赛 ， 竟 争 者 必须 活 
着 。 这 是 理所当然 的 ， 对 么 ? 所 以 你 就 因此 把 赌注 压 在 这 上 ? 

正如 前 面 所 提 到 的 ， 政 治 逻 辑 与 其 他 任何 类 型 的 逻辑 都 不 同 。2000 年 10 月 ， 密 苏 里 州 州 长 Mel 
Carnahan 在 竞选 旅行 时 死 于 飞机 失事 。 他 的 对 手 ，Sen.John Ashcroft (R-Mo), 仍然 在 11 月 份 竞选 失 
败 。 投票 人 选 出 了 一 个 死去 的 参议 员 ， 并 由 Carnahan 的 遗 妃 担任 这 个 职位 (http: //www. specialed- 
news.com/washwatch/washnews/election111000.html)。 这 是 一 个 很 好 的 例子 ， 死 亡 在 今天 也 不 能 成 为 
常识 推理 中 的 确定 因素 。 
习题 
4.1 (a) 只 用 概率 的 三 个 公理 ,证 明 概 率 的 加 法 律 。 

P(A U B) = P(A) +(B)-P(A N B) 
(提示 : 任意 事件 XU YY 可 以 写成 XU OX NY) 的 形式 ， 其 中 X 和 X myY 不 相交 。 同 样 ， 
B 也 可 以 写成 两 个 不 相交 集合 的 并 ) 
(b 已 知 两 台 计算 机 ， 它 们 或 者 正常 工作 或 者 不 正常 ， 根 据 概 率 的 加 法 律 ， 问 至 少 有 一 台 计 算 机 
正常 工作 的 概率 是 多 少 ? 
4.2 已 知 可 能 重合 的 两 事件 A 和 B， 根 据 概率 公理 ， 从 集合 的 角度 求 以 下 概率 : 
(a) 非 A 非 B 
(b) 或 A 或 B, 但 不 同时 发 生 ( 异 或 ) 
4.3 ”有 三 个 箱子 装着 一 些 好 的 和 一 些 坏 的 元 件 ， 如 下 : 
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4.4 


4.5 


4.6 


4.7 


箱子 好 的 坏 的 


1 8 2 
2 3 1 
3 2 2 


经 过 一 段 很 长 的 时 间 后 ， 有 20% 的 元 件 从 箱子 1 拿 走 ，30% 的 元 件 从 箱子 2 拿 走 ，50% 的 元 件 从 

箱子 3 拿 走 。 

(a) FR 

(b) 如 果 拿 走 的 是 一 个 坏 的 元 件 ， 问 它 来 自 每 个 箱子 的 概率 是 多 少 ? 画 一 个 显示 结果 及 先 验 概 
率 、 条 件 概率 、 联 合 概率 和 后 验 概率 的 表 。 

某 人 打算 购买 一 个 磁盘 驱动 器 ， 准 备 在 三 个 品牌 中 挑选 。 下 面 这 张 表 列 出 了 他 的 偏好 和 在 一 年 内 

驱动 器 损坏 的 概率 〈 偏 好 是 价格 、 速 度 、 大 小 和 可 靠 性 的 一 个 函数 ) 

品牌 ”选择 的 概率 ”损坏 的 概率 


X 0.3 0.1 
Y 0.5 0.3 
Z 0.2 0.6 


(a) 画 一 个 显示 结果 、 先 验 概 率 、 条 件 概 率 、 联 合 概率 和 后 验 概 率 的 表 。 
(b) 在 一 年 内 ， 每 种 驱动 器 损坏 的 概率 是 多 少 ? 
(c) 在 一 年 内 ， 任 一 种 驱动 器 损坏 的 概率 是 多 少 ? 
(d) 已 知 一 年 内 已 经 损坏 ， 问 是 X 品 牌 X，Y，2Z 的 概率 各 是 多 少 ? 
筛选 测试 是 为 大 群 人 检查 某 种 疾病 的 一 种 低 成 本 方法 。 一 种 花费 更 多 但 更 准确 的 测试 显示 ， 所 有 
人 和 群 中 1% 有 该 疾病 。 而 筛选 测试 显示 ， 那 些 确实 有 该 疾病 的 人 中 90% 测 试 有 疾病 〈 测 试 肯定 )， 
而 那些 确实 没有 该 疾病 的 人 中 20% 测 试 有 疾病 GRA). 
(a) 画 一 个 显示 结果 、 先 验 概率 、 条 件 概 率 、 联 合 概率 和 后 验 概率 的 表 。 
b) 有 百 分 之 几 的 人 ,测试 肯 定 但 实际 没有 该 疾病 ? (错误 肯定 ) 
(c) 有 百 分 之 几 的 人 ,测试 否定 但 实际 有 该 疾病 ?( 错 误 否 定 ) 
证 明 两 两 独立 不 一 定 意 味 着 相互 独立 。 定 义 以 下 投掷 两 个 假 子 的 事件 : 
A=F—-TRF ABR 
B= BO MRF RB 
C= 和 是 偶数 
(a) 画 出 两 个 角 子 的 样本 空间 。 画 出 A，B，AmmB。 
(b) 写 出 A 站 Bp，C，AN 站 MC， 和 B 门 C 的 元 素 。 
(c) P (C) 为 多 少 ? 
(d) 证 明 两 两 独立 

P(A N B) =P(R)P(B) 

P(A N C) = P(A)P(C) 

P(B N C) = P(B)P(C) 
(e) 证 明 

P(A N BN C) = P(AMB) # P(A N B)P(C) 


这 说 明 两 两 独立 并 非 意味 着 相互 独立 。 
对 不 相交 的 两 集合 A 和 B 
(a) 用 A 与 B 的 概率 来 表示 P (AIB) EZS? (PEH A, B) 
(b) P (A'|B) 的 值 为 多 少 ? 
(c) P (AIB) 的 值 为 多 少 ? 
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d) 用 A 与 B 的 概率 来 表示 P(A'|B') BBD? (KEHA, B) 
e) 计算 
(i) P(A|B) + P(A’ |B) 
(ii) P(A|B’) + P(A’ |B) 
a) 证 明 
P(AM BMC) = P(A|BIC)P(B/C)P(C) 
b) 证 明 


P(A BC) =P(RAB 站 C)P(BIC) 


4.9 一 个 磁盘 驱动 器 可 能 会 由 于 毛病 Fi 或 F 发 生 故 障 , F，F 不 会 同时 发 生 。 可 能 的 症状 有 : 
A= |} 写 错误 ， 读 错误 | 
B= | 读 错误 | 
MA F 发 生 的 可 能 性 是 Pi 的 3 倍 。 对 这 种 类 型 的 驱动 器 有 
P(AIF,)=0.4 P(BIF,)=0.6 
P(AIF,)=0.2 P(BIF,)=0.8 


一 个 磁盘 驱动 器 有 毛病 F 的 概率 是 多 少 ? 有 毛病 F 的 概率 是 多 少 ? 


4.10 


4.11 


4.12 


给 定 一 个 每 年 更 换 磁 盘 驱动 器 品牌 的 转换 矩阵 : 
下 一 年 
xX xX Z 
Xr0.5 0.5 0 
今年 roa 0.5 0.25 
xLo 05 054 
(a) 假设 开始 有 50% 的 人 用 X 驱 动 器 ，25% 的 人 用 站 驱动器，25% 的 人 用 Z 驱 动 器 ， 问 一 年 、 
两 年 和 三 年 后 使 用 各 驱动 器 的 百分比 分 别 为 多 少 ? 
(b) 求 稳定 状态 矩阵 。 
(a) 给 定 N 个 随机 选取 的 人 ， 没 有 两 人 有 相同 生日 的 概率 是 多 少 ? 
(b) 对 30 个 人 ， 该 概率 是 多 少 ? 
E E A E 条 件 独立 下 ， 对 一 个 含有 合 取证 据 的 规则 , 
IF E AND E, THEN H 证 明 


P(E, |H)P(E, |H) 
(a) P(HIE NN Eo) = BE aea) + OCH PCE, IF ECE) 


P(HIE, )P(HIE,) 
(b) PCHIELA Eo) = ECHTE, JPTE) + O(H)PCH [E PE TE) 
给 定 一 个 含有 析 取 证 据 的 规则 : 
IF E, ORE, OR... Ey THEN H 
基于 概率 理论 ， 并 且 假 定 证 据 是 条 件 独 立 的 ， 证 明 
N 


P(Eie) = 1- ][(1- P(E, /e)) 


i=l 


其 中 下 是 证 据 ，e 是 王 的 相关 观测 。 

给 定 以 下 证 据 作 为 规则 : 

IF E THEN H 

的 前 件 。 写 出 P (Ele) 的 模糊 逻辑 表达 式 。 


(a) E= E OR (E, RDE3) 








不 
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4.16 


(b) E= (E, AND E,)OR(E; AND E4) 
(c) E= ( E, ANDE’,) ORE, 
(d) E= E AND (E’, ORE;) 
(e) E= E, OR (E; AND E;) 


对 斑 岩 铜 的 推理 网 ， 假 定 已 知 RCS 为 真 ，RCAD 为 假 。 那 么 此 时 FRE 的 概率 是 多 少 ? 
考虑 以 下 问题 ， 应 用 语义 归纳 确定 数列 2，8，8，… 接 下 来 的 3 个 数 是 什么 ? 在 语义 归纳 中 需要 


一 个 线索 来 找 出 数列 次 序 (提示 : 考虑 “交换 ”) 
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第 5 章 不 精确 推理 


5.1 概述 


本 章 继续 讨论 从 第 4 章 开 始 的 不 确定 性 推理 。 在 第 4 章 中 不 确定 性 推理 的 主要 范例 是 概率 推理 和 
贝 叶 斯 定理 ， 本 章 我 们 将 讨论 其 他 几 种 处 理 不 确定 性 的 方法 。 特 别 地 ， 模 糊 逻 辑 已 经 有 许多 成 功 的 应 
用 ， 例 如 图 像 处 理 和 控制 ， 基 于 模糊 规则 的 机 器 学 习 分 类 、 聚 类 以 及 函数 逼近 (Ibrahim 03) (Chen 01) . 

CLIPS 有 两 个 版 本 用 来 开发 具有 很 多 模糊 推理 的 专家 系统 。 一 个 是 NRC 的 fuzzyCLIPS (http: // 
ai.iit.nrc.ca/IR _public/fuzzy/)。NRC 也 有 为 JAVA 平台 准备 的 工具 包 FuzzyJToolkit 和 Fuzzyjess (4 
于 JAVA 的 CLIPS 版 本 )。 另 一 个 是 Togai InfraLogic 的 模糊 CLIPS, (http: //www.ortech-engr.com/ 
fuzzy/togai. html) 提供 了 很 多 到 其 他 模糊 资源 的 连接 。 模 糊 专家 系统 已 经 得 到 广泛 应 用 ， 你 可 以 很 容 
易 地 从 网 站 和 书籍 中 得 到 信息 (Siler 04), 

正如 第 4 章 所 述 ， 概 率 原本 是 为 研究 理想 状况 下 游戏 胜算 而 发 展 起 来 的 ， 概 率 中 的 试验 可 被 无 限 
次 重复 。 事 实 上 ， 概 率 论 被 数学 家 称 作 是 处 理 可 重复 不 确定 性 (reproducible uncertainty) 的 一 种 理论 。 
昕 起 来 像 是 一 个 矛盾 修饰 法 ， 因 为 ， 如 果 一 个 事物 是 不 确定 的 ， 为 什么 还 可 以 重复 ? 术语 可 重复 意味 
着 在 统计 意义 上 ， 大 数量 级 地 经 过 多 次 试验 ， 结 果 都 是 平均 的 。 

除了 第 4 章 所 述 的 主观 概率 理论 已 成 功 应 用 到 PROSPECTOR 上 外 ， 还 有 其 他 一 些 理论 也 成 功 运 
用 在 许多 其 他 应 用 上 。 这 些 理论 主要 用 于 处 理 有 关 信 任 的 问题 ， 而 不 是 有 关 概 率 的 经 典 解释 一 一 频率 
方面 的 问题 。 所 有 这 些 理论 都 是 关于 不 精确 推理 (inexact reasoning) 的 。 在 不 精确 推理 中 ， 规 则 前 件 、 
结论 、 甚 至 规则 本 身 在 某 种 程度 上 都 是 不 确定 的 。 


5.2 不 确定 性 与 规则 


本 节 将 概述 规则 以 及 不 确定 性 ， 随 后 的 小 节 将 全 面 介绍 处 理 规则 中 和 智能 系统 中 不 确定 性 的 具体 
方法 。 智 能 系统 这 个 词 在 今天 已 经 有 广泛 的 应 用 ,严格 地 讲 ， 是 任何 使 用 人 工 智能 的 系统 。 在 实际 上 ， 
经 常用 来 描述 可 以 操作 不 确定 信息 的 系统 。 


规则 中 不 确定 性 的 来 源 


图 5.1 所 示 的 是 一 个 基于 规则 的 系统 中 不 确定 性 的 高 层 视图 。 这 些 不 确定 性 可 能 来 源 于 单个 规则 、 
冲突 归结 和 规则 后 件 间 的 不 相 容 。 知 识 工 程 的 目标 就 是 尽 可 能 地 减少 或 消除 这 些 不 确定 性 。 





规则 的 不 确定 性 


单个 规则 | 溃 突 归结 | 规则 间 的 不 兼容 性 | 


图 5.1 基于 规则 的 专家 系统 的 主要 不 确定 性 


减少 单个 规则 的 不 确定 性 属于 规则 验证 的 一 部 分 。 如 第 3.15 节 所 述 ， 验 证 与 系统 构成 单元 的 正确 
性 有 关 ， 对 一 个 基于 规则 的 系统 来 说 ， 构 成 单元 就 是 规则 。 

单个 规则 是 正确 的 并 不 意味 着 系统 将 给 出 正确 的 答案 。 因 为 规则 间 的 不 兼容 性 ， 推 理 链 可 能 不 正 
确 ， 因 此 有 必要 进行 证 实 。 对 一 个 基于 规则 的 系统 来 说 ， 证 实 工作 的 一 个 部 分 就 是 减少 推理 链 中 的 不 
确定 性 。 验 证 可 看 作 是 减少 局 部 不 确定 性 ， 而 证 实 是 减少 整个 专家 系统 的 不 确定 性 。 比 如 一 个 土木 工 
程 学 上 的 粗略 分 析 ， 验 证 是 从 好 的 材料 及 施工 角度 来 问 桥 建 好 没有 、 而 证 实 是 问 这 桥 是 否 能 处 理 所 需 
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要 的 交通 负载 问题 ， 最 重要 的 ， 桥 是 否 建 在 合适 的 位 置 ? 验证 与 证 实 对 于 保证 高 质量 的 专家 系统 来 说 
都 是 必需 的 ， 这 将 在 随后 的 第 6 章 中 讨论 。 

图 5.1 中 单个 规则 的 不 确定 性 可 被 更 详细 地 扩展 ， 其 顶层 视图 如 图 5.2 所 示 。 除 了 包括 如 第 4.3 
节 中 所 描述 的 ， 规 则 创建 时 可 能 发 生 的 错误 之 外 ， 还 有 与 似 然 性 值 的 指定 有 关 的 不 确定 性 。 对 概率 推 
理 而 言 ， 正 如 第 4 章 中 所 述 的 ， 这 些 不 确定 性 与 充分 似 然 性 LS 及 必然 似 然 性 LN 的 值 有 关 。 由 于 LS 
和 LN 的 值 基于 人 们 的 估计 ， 因 此 存在 不 确定 性 。 此 外 ， 也 有 规则 后 件 似 然 性 的 不 确定 性 。 对 概率 推 
理 来 说 ， 确 定 的 证 据 记 作 P (H| E)， 不 确定 的 证 据 记 作 P (H | e)。 


ES { 见 误差 证 据 的 
ES nee aco Aan | 似 然 性 | 


图 5.2 单个 规则 的 不 确定 性 
另 一 个 不 确定 性 的 来 源 是 证 据 组 合 。 证 据 应 按 哪 种 方式 组 合 ， 是 


E, AND E AND Ez 
或 是 E, AND E, ORE, 
或 是 E, AND NOT E, OR E; 


还 是 其 他 使 用 AND，OR，NOT 等 连接 符 的 任意 一 种 可 能 的 逻辑 组 合 ? 
缺乏 理论 基础 


正如 第 4 章 所 述 ， 在 对 概率 论 中 模糊 逻辑 等 公式 的 介绍 中 提出 了 一 个 问题 ， 专 家 系统 没有 一 个 基 
于 经 典 概率 论 的 合理 的 理论 基础 。 所 以 ， 它 只 是 一 个 适用 于 受 限 情形 下 的 “特别 ”方法 ,“ 特 别 ” 方 法 
的 危险 性 在 于 没有 一 个 完备 的 理论 去 指导 应 用 ， 在 不 适宜 条 件 下 使 用 时 ， 也 没有 出 错 警 告 。 

你 已 见 过 的 “特别 ”方法 的 另 一 个 例子 是 推理 网 中 LS 和 LN 的 使 用 。 理 论 上 ， 一 个 有 个 结 点 的 
推理 网 是 一 个 事件 空间 有 N 个 可 能 事件 的 概率 系统 ， 因 此 ， 有 2 种 可 能 概率 。 实际 上 ， 在 现实 世界 
中 ,这 些 概 率 只 有 很 少 是 已 知 的 。 作 为 罗列 所 有 可 能 情况 的 昔 代 ， 我 们 用 LS 和 LN 值 来 标识 弧 ， 这 样 
大 大 减少 了 网 络 的 复杂 度 。 

然而 ，LS LN 的 简化 使 用 也 有 不 利 的 影响 ， 这 就 是 不 能 从 理论 上 来 保证 ， 网 中 每 种 假设 的 条 件 
概率 之 和 为 1。 如 果 只 是 想 获得 网 中 所 有 假设 的 相对 级 别 ， 那么， 这 并 不 重要 。 例 如 ， 当 一 个 对 斑 岩 
铜 感 兴趣 的 用 户 得 知 该 结 点 表明 有 铜 的 似 然 性 非常 大 ， 即 使 它 不 是 1， 用 户 也 可 能 会 相当 满意 。 不 过 
绝对 概率 也 很 重要 ， 即 使 有 钢 的 假设 排 在 第 1， 但 如 果 发 现 铜 的 概率 非常 小 ， 比 如 0.00000001， 那 么 
是 否 也 值得 钻探 呢 ? 


规则 间 相 互 影响 


不 确定 性 的 另 一 个 来 源 是 冲突 归结 的 不 确定 性 。 如 果 知 识 工程 师 指定 了 规则 的 显 式 优先 级 
(explicit priority) ,那么 将 有 一 个 潜在 的 误差 来 源 ， 因 为 优先 级 未 必 是 最 优 或 正确 的 。 而 如 果 规 则 有 隐 
式 优先 级 (implicit priority) ， 则 又 会 发 生 冲突 归结 

不 确定 性 的 一 个 主要 来 源 是 由 规则 间 的 相互 作用 而 引起 的 。 冲 突 归 结 是 其 中 一 部 分 。 规 则 和 间 的 相 
互 作用 依赖 于 冲突 归结 和 规则 的 兼容 性 (compatibility of rules)， 如 图 5.3 所 示 ， 与 规则 的 兼容 性 有 关 
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的 不 确定 性 来 自 5 个 主要 因素 。 


规则 的 兼容 性 | 
| | | 
se 规则 包含 | 规则 宛 余 | RU | want | 


图 5.3 与 规则 的 兼容 性 有 关 的 不 确定 性 


不 确定 性 的 一 个 原因 是 规则 间 的 潜在 矛盾 (potential contradiction of rules)。 规 则 将 产生 矛盾 的 结 
果 ， 如 果 前 件 没有 适当 说 明 的 话 ， 就 可 能 会 产生 这 种 情况 。 举 一 个 非常 简单 的 例子 ， 假 设 知识 库 中 有 
两 条 规则 : 

(1) IF 有 火灾 THEN Berk 

(2) IF 有 火灾 THEN 不 要 泼水 
规则 (1) 对 普通 火灾 是 适用 的 ， 比 如 本 头 着 火 ， 规 则 2 对 油脂 类 火灾 是 适用 的 ， 问 题 在 于 前 件 没有 明 
确 给 出 火灾 的 类 型 。 如 果 存 在 “有 火灾 ”的 事实 ， 那 么 两 条 规则 都 将 执行 ， 并 产生 了 矛盾 结果 ， 于 是 产 
生 了 不 确定 性 。 

不 确定 性 的 第 二 个 来 源 是 规则 的 包含 (subsumption of rules)， 如 果 一 个 规则 的 前 件 是 另 一 个 的 子 
集 ， 那 么 它 被 另 一 个 规则 包含 。 例 如 ， 假 设 两 条 规则 有 同样 结论 : 


{3) IF E, THEN H 











(4) IF E, AND E: THEN H 

如 果 仅 E 存在 ， 那 么 不 会 有 问题 ， 因 为 只 有 规则 (3) 被 激活 。 然 而 ， 如 果 Ei SE, 同时 存在 ， 
那么 两 条 规则 都 会 被 激活 ， 它 们 中 间 必 然 要 发 生 冲突 归结 。 
冲突 归结 

对 火灾 问题 的 优先 级 ， 在 冲突 归结 中 存在 不 确定 性 ， 该 不 确定 性 依赖 于 一 些 因素 ， 如 图 5.4 所 示 。 


规则 有 显 规则 有 隐 
式 优 先 级 式 优先 级 


定 模式 | ca 
| 


图 5.4 与 冲突 归结 有 关 的 不 确定 性 
第 一 个 因素 是 所 使 用 的 外 壳 和 工具 。 在 使 用 Ree 算法 的 专家 系统 工具 中 ， 越 特定 的 规则 具有 越 高 
的 优先 级 . 这 一 点 的 意义 在 于 : 当 多 条 规则 可 能 被 引发 执行 时 ， 信 息 越 多 越 能 增加 我 们 的 信心 。 
例如 ， 如 果 有 人 说 “我 觉得 热 "， 有 一 条 规则 是 : IF 热 THEN 服用 阿司匹林 。 另 一 方面 ， 有 一 条 















规则 录入 
ATA FF 






手段 -目的 
分 析 (MEA) 
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规则 是 : IF 热 AND 在 沙滩 上 穿着 外 套 THEN 脱 下 外 套 。 如 果 有 更 多 的 信息 可 以 判断 这 个 人 在 沙滩 穿 
着 外 套 ， 则 这 个 规则 更 特定 。 通 常 ， 符 合 规则 左 侧 模式 个 数 多 的 规则 会 比 符合 模式 少 的 规则 得 到 更 多 
的 信任 。CLIPS 规则 的 特定 性 (specificity) 依赖 于 模式 的 数目 以 及 每 个 模式 的 内 部 复杂 度 。 例 如 模式 

(ball ellipsoidal) 

比 另 一 模式 

(ball) 更 加 特定 。 
因为 一 个 椭圆 形 的 球 可 能 是 橄榄 球 ， 而 球 可 能 是 网 球 、 乒 乓 球 、 篮 球 、 棒 球 或 其 他 任何 类 型 的 球 。 

对 于 前 面 的 两 条 规则 ， 规 则 (4) 更 特定 ， 因 为 它 的 前 件 有 两 个 模式 ， 这 样 它 有 较 高 的 隐 式 优先 
级 。 在 CLIPS 系统 中 ,规则 (4) 首先 被 执行 。 

然而 ,在 CLIPS 中 ,还 有 其 他 一 些 纠纷 。 除 了 特定 性 外 ， 还 必须 考虑 事实 的 最 近 性 (recency of 
facts)。 每 当 一 个 事实 输入 到 工作 存储 区 中 时 ， 它 将 获得 一 个 唯一 的 时 间 标 识 (timetag)， 表 明 它 是 什 
么 时 候 进 入 的 。 这 样 规则 


(5) IF Es THEN H 


将 比 规则 (3) 有 较 高 级 别 的 优先 级 ， 如 果 事 实 E E E 后 输 和 人 的话。 

在 一 条 规则 中 模式 的 次 序 也 会 有 很 大 关系 。OPS5 允许 两 种 不 同 的 控制 策略 (control strategy), A 
做 词典 (LEX, lexicographic) 和 手段 目的 分 析 (MEA, means-ends analysis) ， 这 些 控 制 策略 决定 了 推理 
机 如 何 去 解 释 规则 模式 ， 当 输入 一 条 策略 命令 给 专家 系统 解释 器 时 ， 就 选 定 了 一 种 控制 策略 。 在 词典 
(LEX) 方式 下 ,模式 次 序 没有 关系 ， 只 是 对 效率 可 能 有 影响 。 这 样 在 词典 方式 下 ， 下面 规则 在 本 质 上 
是 相同 的 : 

IF E, AND E, THEN H 


IF E, AND E, THEN H 


手段 目的 分 析 是 另 一 种 策略 方式 ， 它 被 用 于 第 1 章 中 所 讨论 的 Newell-Simon 通用 问题 求解 器 。 它 
的 基本 思想 是 不 断 减少 开始 状态 与 成 功 状态 之 间 的 差异 。 在 OPS5 的 MEA 方式 下 ， 第 一 个 模式 非常 重 
要 ， 因 为 它 控制 着 模式 匹配 过 程 。MEA 的 目的 是 帮助 系统 持续 执行 某 个 任务 ， 以 免 被 最 近 输 入 工作 存 
储 区 的 事实 于 扰 。MEA 根据 第 一 个 ， 即 IF 之 后 的 模式 来 决定 优先 级 。 如 果 基 于 第 一 个 模式 某 条 规则 
优先 于 其 他 规则 ,那么 它 将 被 选 定 。 这 种 优先 可 以 依据 特定 模式 或 者 事实 的 最 近 性 。 如 果 优 先 的 第 一 
个 模式 有 多 个 ,那么 MEA 将 根据 它们 后 面 的 模式 来 决定 优先 级 。 如 果 没 有 优先 规则 ， 可 任 选 一 条 规 
则 执行 。 

规则 输入 进 专 家 系统 的 次 序 也 可 能 是 产生 冲突 归结 的 因素 之 一 。 如 果 推 理 机 不 能 确定 规则 的 优先 
级 ,那么 将 任 选 一 个 执行 。 然 而 ， 除 非 推 理 机 的 设计 者 非常 仔细 ， 否 则 就 某 种 意义 上 来 说 ， 选 择 次 序 
已 经 确定 ， 因 为 它 依赖 于 规则 的 进入 次 序 。 由 于 推理 机 设计 者 使 用 栈 或 队列 去 存储 议程 中 的 规则 ， 因 
此 这 种 情况 是 可 能 发 生 的 。 对 具有 优先 级 的 规则 进行 任意 选择 ， 实 际 上 应 该 是 从 栈 或 队列 中 随机 选择 。 
然而 , 设计 者 可 能 只 是 简单 地 从 栈 项 或 队列 的 下 一 位 置 中 取出 规则 。 这 种 选择 方法 虽然 容易 但 却 给 系 
统 带 来 一 个 已 知 的 人 为 机 制 ， 因 为 选择 并 不 是 任意 的 。 


包含 与 不 确定 性 
如 果 存 在 与 规则 有 关 的 似 然 性 ， 那 么 包含 问题 将 更 加 不 确定 。 如 
(6) IF E, THEN H with LS, 
(7) IF E, AND E, THEN H with LS, 

例如 ， 考 虑 以 下 规则 ; 


I 严 ”启动 马达 不 工作 
THEN 检查 电池 with LS, = 5 
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IF 启动 马达 不 工作 AND 灯 不 亮 
THEN 检查 电池 withL S, = 10 

REBELS 大 于 LS, 值 ， 因 为 有 更 多 的 证 据 支持 结论 。 
由 第 4 章 可 知 ， 后 验 几 率 


N 
(8) OH | E) = (Hrs, oun 


BRA. URE, 与 已 都 存在 的 话 ， 那 么 积 为 5x10= 50。 

然而 ，(8) 实际 上 是 对 那些 证 据 组 合 是 独立 的 规则 而 言 的 。(6)、(7) 的 前 件 并 不 是 真正 独立 的 ， 
因为 它们 共享 E, 证 据 。 这 样 ， 由 于 单个 EE BE, ANDE, 的 一 个 特例 ， 所 以 El ANDE 包含 El。 因此 ， 
由 于 前 件 条 件 不 独立 ,使 得 似 然 率 LS, 和 LS 的 积 非常 大 。 一 个 解决 方法 是 用 LS,/ LS, 去 替换 LS, 
以 便当 El ME, 都 存在 时 ， 可 得 到 正确 的 积 LS,。 在 一 个 大 型 的 知识 库 中 ， 手 工 发 现 包含 是 非常 困 
难 的 。 

不 确定 性 的 第 3 个 原因 是 具有 同样 后 件 和 证 据 的 宛 余 规则 (redundant rules)。 一 般 ， 这 种 情况 由 知 
识 工程 师 偶然 输入 或 由 于 修改 一 条 规则 时 模式 的 删除 而 引发 。 例 如 : 


IF E, AND Ez THEN H 
IF E, AND E AND E; THEN H 


如 果 E 被 删除 的 话 ， 由 于 前 件 条 件 相 同 ， 上 面 的 规则 将 是 元 余 的 。 决 定 那 条 宛 余 的 规则 被 删除 并 
不 简单 。 如 果 稀有 的 模式 被 首先 列 出 的 话 ， 一 个 完 余 的 规则 会 大 大 提高 系统 效率 。 如 果 第 一 个 模式 不 
匹配 ， 推 理 机 不 必 去 检查 第 二 个 模式 是 否 匹配 。 此 外 在 专家 系统 外 过 ， 如 OPS 中 还 会 产生 一 个 复杂 
的 问题 ， 因 为 其 规则 激活 的 次 序 依赖 于 用 户 所 选择 的 控制 策略 。 因 此 如 包含 一 样 ， 宛 余 规则 也 将 给 出 
一 个 很 大 的 似 然 率 积 。 

不 确定 性 的 第 4 个 原因 是 遗漏 规则 ， 这 发 生 在 人 类 专家 忘记 或 者 没有 注意 的 情况 下 ， 比 如 规则 

IF E, THEN H 

如 果 证 据 E 被 忽略 ， 那 么 HORA BEG. HEBER], iW PROSPELTR 的 一 个 优点 是 清楚 明了 ， 这 
使 得 确定 一 个 假设 不 可 能 或 者 很 难 达 到 非常 容易 。 如 果 遗 漏 规则 ， 推 理 网 将 会 表明 需要 这 些 规则 。 
不 确定 性 的 第 5 个 原因 是 由 于 数据 融合 (data fusion) ， 这 一 术语 指 与 从 不 同类 型 信息 中 融合 数据 有 关 
的 不 确定 性 。 例 如 ,在 进行 诊断 时 ， 医 士 可 能 会 考虑 不 同 来 源 ， 如 体检 、 化 验 、 病 史 、 社 会 经 济 环境 、 
精神 情感 状况 、 家 庭 、 工 作 问 题 等 方面 的 证 据 ， 这 些 都 是 不 同类 型 的 证 据 ， 必 须 融 合 它们 以 支持 最 终 
假设 。 融合 这 么 多 不 同 来 源 的 证 据 要 比 融 合 某 一 领域 ， 比 如 地 质 方面 的 证 据 要 困难 的 多 。 

同样 地 ， 一 个 商业 决策 也 依赖 于 商品 市 场 、 经 济 条 件 、 外 贸 、 接 收 意图 、 公 司 政策 、 个 人 问题 、 
工会 和 其 他 许多 因素 ， 如 同 医学 问题 一 样 ， 指 定 所 有 这 些 因素 的 似 然 率 并 选择 一 个 合理 的 组 合 函 数 是 
相当 困难 的 。 


5.3 确定 性 因子 


另 一 个 处 理 不 确定 性 问题 的 方法 是 用 确定 性 因子 (certainty factors) ， 这 一 方法 最 初 是 为 MYCIN 
专家 系统 设计 的 。 


贝 叶 斯 方法 的 困难 


如 同 由 PROSPECTOR 提出 的 地 质问 题 一 样 ， 医 疗 诊断 问题 也 常常 具有 不 确定 性 。 主 要 的 不 同 是 
关于 矿物 的 地 质 假设 数目 是 有 限 的 ， 因 为 自然 界 中 只 有 92 种 天 然 元 素 。 但 是 ， 由 于 有 更 多 的 微生物 ， 
因而 可 能 的 疾病 假设 也 更 多 。 

虽然 贝 叶 斯 定理 在 医学 上 有 用 ， 但 它 的 准确 使 用 依赖 于 知道 多 少 种 可 能 。 例 如 ， 给 定 确 定 的 症状 ， 
可 用 贝 叶 斯 定理 来 确定 某 一 特定 疾病 的 概率 
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ptp | E) = PE | D) PO) | _PE | Di) PO) 


P(E) > Pe | D) Pw.) 





这 里 j 是 对 所 有 疾病 求 和 ， H 

D 是 第 i 种 病 ， 

E 是 证 据 ， 

P (D) 是 在 已 知 任何 证 据 之 前 病人 得 这 种 病 的 先 验 概率 ， 

P (EID) 是 在 已 知 患 有 Di 疾病 的 情况 下 ， 病 人 呈现 下 证 据 的 条 件 概率 。 

对 一 般 的 人 群 来 说 ， 要 确定 所 有 这 些 概率 一 致 的 、 完 全 的 值 常常 是 不 可 能 的 。 

实际 上 , 证据 趋 向 于 一 点 一 点 的 积累 ， 这 种 积累 需 一 定时 间 且 花费 昂贵 ， 尤 其 是 在 需要 医学 检验 
时 。 时 间 、 花 费 、 检 验 时 潜在 的 危险 这 些 因素 常常 使 得 检验 的 项 目 被 限制 在 一 个 好 的 诊断 所 需 的 最 少 
数目 。 

贝 叶 斯 定理 表达 证 据 逐 步 增 加 积累 的 一 个 便利 形式 如 下 (参见 习题 5.1): 
P(E, | D; NE) P (D; | Ei) 


> Pe, | D; NE) P (D; | E,) 
3 


这 里 E, 是 已 存在 证 据 E 上 的 新 增 证 据 ， 于 是 得 到 新 证 据 

E = EM E2 
昌 然 该 公式 是 准确 的 ， 但 所 有 这 些 概率 一 般 并 不 知道 。 而 且 ， 随 着 证 据 的 积累 ， 要 求 更 多 的 概率 ， 情 
况 会 越 来 越 精 。 


信任 与 不 信任 (Belief and Disbelief) 


除了 贝 叶 斯 定理 要 求知 道 所 有 的 条 件 概率 问题 外 ， 另 一 个 与 医学 专家 一 起 出 现 的 主要 问题 是 信任 
与 不 信任 的 关系 问题 。 乍 看 起 来 这 似乎 是 个 小 问题 ， 因 为 显然 不 信任 仅仅 是 信任 的 相反 情况 。 但 事实 
上 ， 概 率 理论 是 如 下 描述 的 
P(H) + P(H’) = 1 
TH, 
P(H} = 1 — P(H’) 
SKM IEE EM, A 
(1) P(H | E) = 1 — P(H’ | E) 
然而 ， 当 MYCIN 工程 师 访问 医学 专家 时 ， 他 们 发 现 医生 非常 反对 把 他 们 的 知识 转化 成 式 〈1) 的 
形式 。 
例如 ， 考 虑 如 下 的 一 个 MYCIN 规则 ; 
IF 1) 生物 体 的 染色 呈 革 兰 氏 阳性 ,并 且 
2) 生物 体 的 形态 是 球形 ,并 且 
3) 生物 体 生长 构造 是 链 状 
THEN 有 证 据 表明 (0.7) 这 种 生物 是 链球 落 
简单 地 说 ， 这 个 规则 是 指 : 如 果 一 种 细菌 生物 体 在 革 兰 氏 染 色 中 呈现 颜色 ， 并 且 生物 体 是 旦 球状 
链 式 排列 ， 则 有 70% 的 似 然 性 确定 它 是 一 种 链球 菌 。 用 后 验 概率 可 写 为 : 


(2) P(H | EnBE:zmnmBE) = 0.7 
其 中 E, 对 应 着 前 件 的 3 个 模式 。 
MYCIN 知识 工程 师 发 现 ， 尽 管 专家 同意 式 〈2)， 但 他 们 不 乐意 且 拒 绝 同 意 下 面 的 概率 结果 : 


(3) PCH’ | ENENE) =1 一 0.7 = 0.3 





P(Di | E) = 
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专家 们 不 愿 接受 式 (3) 说 明了 这 些 数字 如 0.7 和 0.3 是 信任 的 似 然 性 而 不 是 概率 。 

为 了 充分 说 明 信 任 和 不 信任 的 不 一 致 问题 ， 考 虑 下 面 的 例子 ， 假 设 这 是 你 拿 到 学 位 所 需 的 最 后 一 
门 课 ， 假 定 你 的 平均 分 数 (GPA) 不 是 很 好 ， 你 需要 在 这 门 课 中 得 “A” 以 提高 你 的 GPA， 下 面 这 个 
公式 表达 了 你 要 毕业 的 信任 似 然 性 : 

(4) PCEk hX JiR A) = 0.70 

注意 到 该 似 然 性 不 是 100% ， 这 是 因为 你 所 修 的 课程 和 分 数 要 由 学 校 作 最 后 审查 。 下 面 的 一 系列 
原因 仍 会 阻止 你 毕业 : 

. 课程 目录 的 改变 使 得 你 所 修 的 课程 中 不 是 所 有 的 都 是 学 位 要 求 必修 课 。 
. 你 忘记 了 修一 门 必 修 课 。 

. 不 承认 副 修 课 程 。 

, 不 承认 你 所 学 的 某 些 选 修 课程 。 

. 你 从 学 费 或 图 书馆 的 罚款 筷 了 交 。 

. 你 的 平均 分 比 你 想像 的 还 要 低 ， 即 使 得 了 “A” 也 拉 不 上 来 。 

.“ 他 们 ”企图 为 难 你 。 

假设 你 同意 (4) 式 的 结果 ，( 或 者 你 自己 选 一 个 似 然 性 值 ) 则 由 (1) 式 
(5) FP( 不 能 毕业 | 这 门 课 得 A) = 0.3 


尽管 从 概率 的 角度 看 ，(5) 式 是 正确 的 , 但 直觉 似乎 觉得 它 是 错 的 。 如 果 你 真 的 很 努力 ， 且 在 这 
门 课 中 得 了 “A”， 而 你 却 有 30% 的 可 能 毕 不 了 业 ， 仅 这 一 点 就 不 对 。 如 同 那些 相信 


OAU FW N= 


~ 


PIH | Ei Nn E:N E) = 0.70 
但 不 相信 概率 结果 
P(H | E: O E: A E) = 0.30 


的 医学 专家 一 样 ，(5) 式 令 你 难以 接受 。 
根本 问题 在 于 ， 尽 管 P (HIE) 暗示 着 上 和 H 存 在 一 种 因果 关系 ,但 下 和 开 可 能 没有 因果 关系 。 
可 是 , A 


P(H | E) = 1 ~ PH | E) 


却 瞳 示 着 ， 如 果 下 和 下 有 因果 关系 , 则 下 和 HH 也 有 因果 关系 。 

概率 论 上 的 这 些 问题 使 得 Shortliffe 去 寻求 找 表达 不 确定 性 的 另外 途径 。 他 在 MYCIN 中 所 使 用 的 
方法 是 基于 从 Carnap 的 证 实 论 中 得 来 的 确定 性 因子 。Camap 把 概率 分 为 两 种 类 型 。 

一 种 类 型 是 与 重复 事件 出 现 频率 有 关 的 普通 概率 ， 第 二 类 叫做 认 知 概率 (epistemic probability) 或 
确认 度 (degree of confirmation) ， 因 为 它 是 基于 某 些 证 据 去 证 实 假设 。 第 二 类 概率 是 信任 似 然 度 的 另 一 
个 例子 。 


信任 与 不 信任 的 测度 
在 MYCIN 中 ， 确 认 度 最 初 定 义 为 确定 性 因子 ， 它 是 信任 与 不 信任 二 者 的 差 ， 


CF(H,E) = MB(H,E) — MD(H,E) 
其 中 ， 
CF 是 由 证 据 玉 得 到 假设 HH 的 确定 性 因子 。 
MB 是 由 证 据 玉 得 到 假设 H 的 信任 增加 测度 (measure of increased belief) 。 
MD 是 由 证 据 下 得 到 假设 H 的 不 信任 增加 测度 (measure of increased disbelief) o 
确定 性 因子 是 把 信任 和 不 信任 组 合成 单个 数字 的 一 种 方式 。 
把 信任 与 不 信任 测度 组 合成 单个 数字 有 两 个 好 处 。 第 一 ， 确 定性 因子 可 以 用 来 把 假设 按 重 要 性 排 
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序 。 例 如 ， 如 果 一 个 病人 表现 出 好 几 种 病 都 有 可 能 的 某 些 症状 ， 那 么 具有 最 高 CF 值 的 那 种 疾病 将 被 
首先 安排 检验 。 
用 概率 来 定义 信任 与 不 信任 的 测度 为 : 








如 果 PH)}=1 
MB(H,E) = 4max[P(H | E), PH)]- PUH) 
max[1,0] ~ P (H) 否则 
1 如 果 P(H)=0 
MD(H,E) = (min[P(H | E), P(H)]- PH) 
min{l, 0]— P) 否则 


此 式 中 max [1, 0] 总 是 取 1，min [1, 0] 总 是 取 0， 之 所 以 这 样 写 是 为 了 体现 MB Al MD 间 的 一 
种 形式 对 称 性 。MB 和 MD 公式 之 间 的 不 同 之 处 只 是 把 max 替换 为 min， 反 之 亦 然 。 

根据 这 些 定义 ， 表 5.1 列 出 了 它们 的 一 些 特征 : 

确定 性 因子 CF 是 指 基于 某 些 证 据 的 假设 的 纯 信 表 5.1 MB, MD 和 CF 的 一 些 特征 
i£ 正 的 CF 意味 着 证 据 支 持 假设 这 是 因为 | Zp °°» HS ~ 


MB>MD.CF = 1 意味 着 证 据 一 定 可 以 推出 假设 。 # a — 
CF=0 则 有 两 种 可 能 性 , 第 一 ，CF=MB - MD=0 ”范围 0<MD<1 
可 能 意味 MB 和 MD 都 为 0， 即 是 说 ,没有 证 据 第 -1I<CF<I 
二 ，MB = MD 了 0， 即 是 说 ,信任 被 不 信任 所 抵消 。 “ESAT MB = 1 
不 幸 的 是 ， 由 不 信任 所 取消 的 强 信任 并 不 是 简单 忽 。 PCIE 1 MD = 0 
略 ， 而 是 一 种 混淆 状态 。 例 如 ， 更 糟糕 的 情况 是 在 CF=1 
一 个 路 口 转向 哪 一 边 ， 或 者 你 车 上 的 乘客 说 着 右边 nae MB = 0 
却 指向 左边 。 = 

CF 为 负 意 味 着 证 据 有 利于 否定 假设 ， 这 是 因为 C =-1 
MB< MD。 换 言 之 ， 有 更 多 的 理由 使 我 们 不 信任 这 SOF MB = 0 
个 假设 多 于 信任 它 。 例 如 ，CF= - 70% 表 明 , 不 信 PS POD aan 


任 比 信任 多 70%， 而 CF= 70% 表 明 信 任 比 不 信任 多 
70%。 注 意 ， 有 了 确定 性 因子 后 ，MB 和 MD 的 各 自 
取 值 可 不 限定 ， 重 要 的 是 MB 和 MDA. PON: 


CF = 0.70 = 0.70 — 0 
= 0.80 — 0.10 


等 等 。 
确定 性 因子 允许 一 个 专家 在 无 须 设 定 一 个 值 给 不 信任 的 情况 下 去 表达 一 个 信任 。 正 如 习题 5.2 
所 示 ， 


CF(H,E) + CF(H’,E) = 0 


意味 着 如 果 证 据 是 以 某 个 CF (HIE) 值 去 证 实 假设 的 话 ， 它 并 不 像 概率 论 中 所 说 的 是 以 1- CF CHIE) 
的 确认 度 去 否定 假设 ， 即 是 说 

CF(H,E) + CF(H’,E) #1 
事实 上 ,CF(H|E)+ CF (H| E)= 0 意味 着 证 据 以 相同 的 数量 值 支持 一 个 假设 和 不 支持 这 个 假设 的 否 
定 。 因 此 ,二 者 之 和 总 是 为 0。 

对 学 生 毕 业 的 例子 来 说 ， 如 果 给 定 课 程 A， 

CF(H,E) = 0.70 CF(H’,E) = —0.70 


意思 是 : 
(6) 如 果 我 这 门 课 得 了 A, 我 就 有 70% 的 把 握 我 会 毕业 。 
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(7) 如 果 我 这 门 课 得 了 ,我 就 有 - 70% 的 把 握 我 毕 不 了 业 。 
注意 到 可 以 出 现 -70% 。 这 是 因为 确定 性 因子 是 定义 在 区 间 

—1 < CF(H,E) € +1 
上 ， 其 中 0 表示 无 证 据 。 因 此 ， 确 定性 因子 的 值 大 于 0 则 支持 假设 ， 小 于 0 则 支持 假设 的 和 否定。 如果 
使 用 确定 性 因子 去 分 析 的 话 ， 语句 (6) 和 (7) 是 等 价 的 , 这 相当 于 “是 = 不 是 不 ”。 

以 上 的 CF 取 值 可 能 会 引发 下 面 的 疑问 : 

如 果 证 据 是 支持 假设 的 话 ， 

你 对 得 了 A 将 有 助 于 你 毕业 ,有 多 少 程度 的 相信 ? 
或 者 

你 对 得 了 A 将 有 助 于 你 毕业 ,有 多 少 程度 的 不 相信 ? 
对 每 个 问题 回答 70%，, 将 使 CF(HIE)= 0.70 和 CF(H |E)= -0.70。 在 MYCIN 中 ,不 是 用 百分比 去 
询问 确定 性 因子 ， 而 是 要 求 专家 用 1 ~ 10 的 数 来 表示 ， 其 中 10 表示 肯定 。 用 户 可 以 用 表示 不 知道 的 
UNK 来 回答 ， 这 相当 于 CF = 0, 


确定 性 因子 的 计算 
尽管 CF 的 原始 定义 是 : 


CF = MB — MD 
但 这 个 定义 有 一 些 困难 之 处 。 因 一 反面 的 证 据 会 支配 很 多 正面 证 据 。 如 : 对 可 能 产生 MB=0.999 #9 10 
个 正面 证 据 和 MD=0.799 的 一 个 反面 证 据 ， 会 得 出 : 

CF = 0.999 — 0.799 = 0.200 
在 MYCIN 中 ,一 个 规则 前 件 的 CF 值 必须 >0.2， 才 能 认为 该 前 件 为 真 并 激活 这 条 规则 。 在 CF 理论 
中 ,0.2 3X ATA (threshold value) 不 是 作为 一 个 基本 公理 ， 而 是 作为 一 个 “特别 ”方法 来 减少 所 激 
活 的 对 假设 仅仅 弱 支 持 的 规则 数目 。 如 果 没 有 这 个 浆 值 ， 许 多 CF 值 很 小 甚至 没有 值 的 规则 都 将 被 激 
活 ， 这 将 大 大 降低 系统 的 效率 。 

1977 Æ, MYCIN 中 的 CF EMEA: 


MB — MD 


CF = — 
1 — min (MB,MD) 


以 削弱 一 个 反面 证 据 对 多 个 正面 证 据 的 影响 。 基 于 这 个 定义 ,， 若 MB=0.999, MD=0.799, Ill 


0.999 — 0.799 0.200 
CF = 7 = = 0.995 
1 — min (0.999,0.799) 1— 0.799 


这 个 结果 与 由 原始 定义 得 到 的 0.999 - 0.799 = 0.200 有 很 大 的 不 同 ， 原 先 由 于 CF 不 大 于 0.2 而 不 能 
激活 规则 ， 现 在 CF 为 0.995 将 激活 规则 。 

MYCIN 计算 规则 前 件 中 组 合 证 据 CF 的 方法 如 表 5.2 所 示 。 注 意 ， 这 些 方法 与 基于 模糊 逻辑 的 
PROSPECTOR 规则 中 所 使 用 的 方法 是 一 样 的 。 











例如 ， 给 定 一 个 组 合 证 据 的 逻辑 表达 式 : 表 5.2 MYCIN 中 计算 组 合 前 件 证 据 的 确定 
E = (E AND Ez AND E;) OR (E, AND NOT Es) 性 的 基本 表达 式 规则 
证 据 下 的 确定 性 可 如 下 计算 : 证 据 ,E 前 件 确定 性 
E = max[min (E, E2, E») min (Es, —Es) ] E AND E min[CF(H, E,),CF(H, F2)] 
给 定 值 ， E; OR F max[CF(H, E,),CF(H, Es)] 
E= 0.9 & = 0.8 E = 0.3 NOT E -CF(H,E) 
Ea = -0.5 Es = —0.4 
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E = max[min(0.9,0.8,0.3),min(-0.5,-(-0.4)] 
= max[0.3,-0.5] 
= 0.3 


规则 
IF E THEN H 
的 CF 基本 公式 可 表示 为 : 


(8) CF(H,e) = CF(E,e) CF(H,E) 


其 中 ， 
CF (ŒE, e) 是 证 据 玉 基于 不 确定 证 据 e 而 构成 规则 前 件 的 确定 性 因子 。 
CF (H, E) 是 假定 证 据 已 知 确 定时 ， 即 当 CF (E, e) = 1 时 ， 假 设 的 确定 性 因子 。 
CF (H, e) 是 基于 不 确定 证 据 e 的 假设 的 确定 性 因子 。 
因此 ， 如 果 前 件 里 所 有 证 据 都 是 已 知 确定 的 ， 由 于 CF (E, e) = 1， 则 假设 的 确定 性 因子 公式 为 : 


CF(H,e) = CF(H,E) 


作为 这 些 确定 性 因子 的 一 个 例子 ， 考 虑 前 面 已 讨论 过 的 链球 菌 规则 : 


TF 1) 生 物体 的 染色 呈 革 兰 氏 阳性 ,并 且 
2) 生 物体 的 形态 是 球形 ,并 且 
3) 生 物体 生长 构造 是 链 状 
THEN 有 证 据 表 明 (0.7) 这 种 生物 是 链球 菌 


这 里 ， 在 确定 证 据 支 持 下 假设 的 确定 性 因子 是 : 


CF(H,E) = CF(H,E, O E: A E) = 0.7 


XP AFL ASMAF (attenuation factor). 
衰减 因子 是 基于 这 样 的 假设 ， 所 有 证 据 El，E。，Es 都 是 已 知 确定 的 。 即 是 说 ， 


CF(Ei,e) = CF{(E2,e) = CF{E;,e) = 1 


其 中 e 是 观测 证 据 ， 由 它 可 得 出 结论 E; 是 确定 的 。 这 些 CF 值 类 似 于 PROSPECTOR 中 证 据 的 条 件 概率 
P (Ele)。 衰 减 因子 表达 了 在 给 定 确定 证 据 下 ， 假 设 的 确信 和 度 。 

与 PROSPECTOR 中 一 样 ， 如 果 不 是 所 有 证 据 都 是 已 知 确定 的 ， 则 情况 将 变 得 复杂 。 在 PROSPEC- 
TOR 中 ， 对 于 不 确定 证 据 是 用 插值 公式 P (Hie)。 在 MYCIN 中 , 由 于 CF (H, ENENE) = 0.7 对 
于 不 确定 证 据 已 不 再 有 效 ， 因 此 必须 用 公式 (8) 去 决定 CF 的 值 。 


例如 ， 假 设 
CF(E,,e) = 0.5 
CF(E2,e) = 0.6 
CF(E3,e} = 0.3 
则 
CF(E,e) = CF(E, A E: N E;,e) 
= min[CF (E1, e),CF (E2, e),CF(E;,e)] 
= min[0.5,0.6,0.3] 
= 0.3 
又 因为 前 件 条 件 的 CF (ŒE, e) > 0.2， 所 以 前 件 被 认为 是 正确 的 。 因 此 规则 被 激活 ， 结 论 的 确定 性 因 
FA: 
CF(H,e) = CF(E,e) CF(H,E) 
= 0.3 x 0.7 
= 0.21 


假设 有 另外 一 个 规则 也 得 出 相同 的 假设 , 但 有 不 同 的 确定 性 因子 。 得 出 相同 假设 的 规则 的 确定 性 
因子 可 通过 如 下 定义 的 确定 性 因子 的 组 合 函数 (combining funciton) 来 计算 : 





不 精确 推理 173 





CF, + CF, (1-CF,) both>0 


CF, + CF, 


i -2 <0 
1 — min (leF,|, ler!) 0 


(9) CPoompane (CF1, CF3, ) = 


CF, + CF, (1+CF,) both<0 


其 中 CFcovars 中 各 公式 的 使 用 取决 于 各 确定 性 因子 的 正 负 ， 多 于 两 个 确定 性 因子 的 组 合 函 数 要 和 迭代 应 
用 ， 即 是 说 ， 先 计算 出 两 个 CF 值 的 CFcowemE， 然 后 再 用 这 个 CFcoverE 和 第 三 个 CF ERA (9) 式 计 
算 ， 依 此 类 推 。 图 5.5 总 结 了 基于 不 确定 证 据 和 得 出 相同 假设 的 两 规则 的 确定 性 因子 的 计算 。 注 意 ， 
这 不 是 一 棵 与 或 树 ， 因 为 CFcoverE 同 与 或 无 关 。 

在 我 们 所 举 的 例子 里 ， 如 果 另 外 一 个 得 出 链球 菌 的 规则 具有 确定 性 因子 CF = 0.5， 则 利用 (9) 
中 第 一 个 式 子 可 得 组 合 确 定性 因子 : 





CFooxpznE (0.21,0.5) = 0.21 + 0.5 (1 — 0.21) = 0.605 
假设 第 三 个 规则 也 有 相同 的 结论 , 但 CF3= -0.4， 则 利用 (9) 中 第 二 个 式 子 可 得 出 : 
CFom (0.605,-0.4) = 0.605 — 0.4 
1 — min (/0.605],{ - 0.4]) 
-2205 4g 34 
~1-0.4 °° 


CFoovene SAA ESE AY FT CRATE, BD 

CFoomarne (X,Y) = CFeomme (Y, X) 
因此 证 据 的 次 序 并 不 影响 结果 。 

在 MYCIN F, 并 不 是 在 每 个 假设 中 分 别 存放 MB 和 MD 的 值 ， 而 是 保存 每 个 假设 的 当前 
CEFcover 值 ， 当 需要 时 ， 再 将 它 和 新 的 证 据 进 行 组 合 。 


CF, + CF, (1 一 CF,) ------- CF, ,CF, 都 大 于 0 
CF, + CF, 
CF CF., = (— -一 一 一 一 一 ------ — 
comme (CF, CF3} 1 — min (|CFi|, [CF| ) CF, .CF2 其 中 之 一 小 于 0 
CF, + CF, (L+CF,) ------ CF, CF, 都 小 于 0 
假设 ，H 
规则 1 规则 2 
CF}(H, e) = CF,(E, e) CF, (H, E) CFH, e) = CF(E, e) CF2(H, E) 
AND OR NOT AND OR NOT 
(min) (max) (-) (min) (max) (-) 
图 5.5 基于 不 确定 证 据 的 有 相同 假设 的 两 个 规则 的 CF 


尽管 MYCIN 在 诊断 中 是 成 功 的， 但 确定 性 因子 的 理论 基础 仍 有 困难 。 虽然 确定 性 因子 部 分 基于 
概率 理论 和 证 实 理论 ,但 CF 也 有 部 分 是 “特别 ”的 。CF 的 主要 优点 是 : 通过 简单 的 计算 ， 不 确定 性 
可 以 在 系统 中 传播 。CF 也 容易 理解 ， 并 且 将 信任 与 不 信任 清楚 地 区 分 开 来 。 

然而 CF 也 有 问题 存在 。 一 个 问题 是 ，CF 值 可 能 与 条 件 概率 得 出 的 值 相 驳 。 例 如 ， 若 


P(H:) = 0.8 P (H2} = 0.2 
P(H: | E) = 0.9 P(H | E) = 0.8 





174 SF 





则 
CF(H:,E) = 0.5 and CF(H:,E) = 0.75 


因为 CF 的 一 个 是 的 就 是 像 诊 断 一 样 ， 把 假设 归 类 ， 故 若 有 一 种 疾病 有 很 高 的 条 件 概率 P (HIE) 但 却 
有 很 低 的 确定 性 因子 CF (HIE)， 则 会 产生 矛盾。 
CF 的 第 二 个 主要 问题 是 ， 通 常 


PIH | e) # P(H | i) P(i | e) 


其 中 i 是 基于 证 据 e 的 某 些 中 间 假 设 ， 然 而 在 一 个 推断 链 中 的 两 条 规则 的 确定 性 因子 却 是 作为 独立 概率 
计算 的 : 

CF(H,e) = CF(H,i) CF(i,e) 

上 式 只 有 在 下 面 的 特殊 情况 下 才 成 立 ， 即 具有 属性 日 的 统计 种 群 包含 在 具有 属性 i 的 统计 种 群 中 ， 
县 它们 又 包含 在 具有 属性 e 的 统计 种 群 中 。 尽 管 存在 这 些 问 题 ，MYCIN 仍然 是 成 功 的 ， 这 可 能 是 由 于 
推理 链 短 且 假 设 简单 的 缘故 。 如 果 把 确定 性 因子 应 用 到 其 他 不 具有 短 推理 链 和 简单 假设 的 领域 ， 就 有 
可 能 出 现 问题 了 。 事 实 上 ，Adams 证 明了 确定 性 因子 理论 实际 上 是 标准 概率 理论 的 一 个 近似 。 


5.4 Dempster-Shafer 理论 


在 这 一 节 里 ， 我 们 将 讨论 一 个 称 之 为 Dempster-Shafer (或 Shafer-Dempster) 理论 (theory) 的 不 精 
确 推理 方法 ， 它 基于 最 早 由 Dempster 所 做 的 工作 。Dempster 曾 试 图 用 一 个 概率 范围 而 不 是 单个 的 概率 
值 去 模拟 不 确定 性 。Shafer 在 1976 年 出 版 的 《Mathematical Theory of Evidence》 一 书 中 延 拓 并 改进 了 
Dempster 的 工作 。 一 个 进一步 的 扩展 称 之 为 证 据 推理 (evidential reasoning)， 它 用 来 处 理 那些 不 确定 、 
不 精确 、 间 或 不 准确 的 信息 。Dempster-Shafer 理论 有 良好 的 理论 基础 。 确 定性 因子 可 以 看 作 是 Demp- 
ster-Shafer 理论 的 一 个 特例 ，Dempster-Shafer 理论 给 了 确定 性 因子 一 个 理论 性 的 基础 而 不 是 “特别 ” 基 
fil (Gardenfors 04), Dempster-Shafer 理论 也 被 用 于 智能 数据 库 中 ， 被 数据 挖掘 用 来 做 模式 抽取 (Berti- 
no Ol). 


识别 框架 

Dempster-Shafer 理论 假设 了 一 个 不 变 的 两 两 互 斥 的 完备 元 素 集合 ， 称 作 环境 (environment)， 用 希 
腊 字 母 ORR. 

O= i 98 

环境 是 集合 论 中 所 述 的 论 域 的 另 一 种 说 法 。 即 是 说 ， 环 境 是 一 个 我 们 感 兴趣 的 对 象 集合 。 例 如 ， 
环境 的 一 些 例 子 : 

O= | 客机 ,又 炸 机 ,战斗 机 ! 


O= |{ 红 , 绿 , 蓝 , 橙 , 黄 ! 
O= 1! 谷 仓 , 草 , 人 , 牛 , 车 | 


注意 ， 这 里 的 元 素 是 两 两 互 斥 的 。 例 如 ， 客 机 不 是 钞 炸 机 或 战斗 机 ， 红 不 是 绿 ， 草 不 是 牛 等 等 。 
如 果 宇 宙 间 所 有 可 能 的 元 素 都 包括 在 一 个 集合 中 ， 就 说 这 个 集合 是 完备 的 。 为 了 讨论 的 简单 起 见 ， 假 
设 日 是 一 个 有 限 集 。 但 是 ， 对 Dempster-Shafer 环境 中 元 素 是 连续 变量 ， 如 时 间 、 距 离 、 速 度 等 方面 的 
工作 ， 人 们 也 已 经 做 了 。 

一 个 考虑 日 的 方式 是 从 问题 与 答案 的 角度 。 假 定 

O= (EUL, IEHL, RHL 
问题 是 ,“ 哪 些 是 军用 飞机 ?”， 答 案 是 @ 的 一 个 子 集 : 

{lhl = EREL ARE BLY 
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同样 地 ， 问 题 “ 哪 些 是 民用 飞机 ?”， 答 案 是 集合 : 
{9.1 = {客机 | 
该 子 集 称 为 单子 集 (singleton set) ， 因 为 它 只 有 一 个 元 素 。 
@ 的 每 一 个 子 集 都 可 解释 为 一 个 问题 的 可 能 答案 。 由 于 元 素 是 互 扩 的， 环境 是 完备 的 ， 因 此 只 有 
一 个 子 集 是 问题 的 正确 答案 。 当 然 ， 并 不 是 所 有 的 问题 都 是 有 意义 或 值得 回答 的 。 不 过 ， 重 要 的 一 
点 是 ,环境 的 子 集 在 所 讨论 的 论 域 中 全 都 是 可 能 的 有 效 答案 。 每 个 子 集 都 可 以 看 作 是 一 个 隐 含 的 命题 ， 如 
正确 答案 是 [6,0,,0,! 


正确 答案 是 18 , | 
等 对 所 有 的 子 集 都 适用 。 在 这 样 的 语句 里 “正确 的 答案 是 ”是 隐 合 在 子 集 中 的 。 

飞机 环境 的 所 有 可 能 子 集 如 图 5.6 所 示 ， 线 条 表示 子 集 闻 -AR 
的 关系 ，A、B 和 下 分 别 是 客机 、 奏 炸 机 和 战斗 机 的 缩写 。 图 画 a 
成 一 个 层次 格 ，9 在 顶部 ， 空 子 集 O= |) 在 底部 。 通 常 ， 空 子 A 








集 并 不 明确 标 出 ， 因 为 它 总 是 对 应 着 答案 假 。 又 因为 O 不 含 “N Bn 
元 素 , 当 与 环境 是 完备 的 假设 相 矛 盾 时 ， 就 选择 O 作为 一 个 管 


R, Bp (Bj 
“正确 的 答案 是 没有 元 素 ” 和 一 





注意 ， 图 是 一 个 格 而 不 是 一 个 树 ， 这 是 因为 子 集结 点 可 以 asa 
有 多 于 一 个 的 父 结 点 。 又 因为 画 的 时 候 是 从 大 子 集 到 小 子 集 画 Poet 
出 ， 故 格 是 分 层 的 。 例 如 ; AOR O 的 一 条 路 径 表示 了 连接 父 
子 结 点 的 子 集 的 层次 关系 ， 如 图 5.6 飞机 环境 的 所 有 子 集 


Ø c {A} c {A,B} Cc {A,B,F} 


正如 第 2.10 节 所 讨论 的 ， 两 个 集合 X 和 YY 的 关系 ， 比 如 


X ESEY 
RR X 中 所 有 的 元 素 都 是 Y 中 的 元 素 ， 写 得 更 形式 一 点 就 是 : 
Xocvs={x | xeX->xe Y} 


这 说 明 如 果 x 是 集合 X 的 一 个 元 素 ， 则 蕴含 着 x 也 是 集合 Y 的 一 个 元 素 。 如 果 XEY, (AXAY, WE 
少 有 一 个 元 素 属于 Y 但 不 属于 X, XRAY 的 真子 集 ， 记 作 

XCY 

当 一 个 环境 的 元 素 可 以 解释 为 可 能 答案 , 但 只 有 一 个 答案 正确 时 ， 这 个 环境 称 为 识别 框架 (frame 
of discernment)。 术 语 “ 识 别 ” 的 意思 是 说 有 可 能 从 一 个 问题 的 所 有 可 能 答案 中 分 辨 出 一 个 正确 答案 。 
如 果 这 个 答案 不 在 框架 里 ， 则 必须 扩大 这 个 框架 以 容纳 增加 的 知识 元 素 O11， 人 h+2， 等 等 。 一 个 正确 
的 答案 要 求 集合 是 完备 的 ， 且 子 集 是 不 相交 的 。 

一 个 含有 N 个 元 素 的 集合 有 2 个 子 集 ， 包 括 它 本 身 ， 这 些 子 集 定义 了 雷 集 (参看 习题 2-11)， 记 
作 P (8)。 因 此 ， 对 飞机 环境 ， 


F (0) = {0, {A}, {B}, {F}, {A,B}, {A,F}, {B,F}, {A,B,F}} 


环境 的 寡 集 中 的 元 素 可 作为 识别 框架 中 可 能 问题 的 所 有 答案 ， 这 意味 着 P (0) 的 元 素 与 @ 的 子 集 
间 存 在 一 一 对 应 关系 。 


Mass 函数 与 未 知 


在 贝 叶 斯 理论 中 ， 后 验 概率 随 证 据 的 获取 而 改变 。 同 样 地 ， 在 Dempster-Shafer 理论 中 ,证 据 的 
信任 也 可 以 变化 。 在 Dempster-Shafer 理论 中 ， 习惯 于 考虑 证 据 的 信任 度 ， 这 就 好 像 考 虑 物体 的 
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质量 (mass) 一 样 ， 即 是 说 ,证据 的 质量 支持 信任 。 把 证 据 的 测度 (evidence measure) 记 为 m， 类 似 于 
质量 的 总 量 。mass 的 另 一 个 说 法 是 基本 概率 分 配 (basic probability assignment，bpa) ， 或 者 有 时 简称 为 
基本 分 配 (basic assignment) ， 它 出 自 对 概率 密度 和 质量 的 公式 分 析 。 然 而 由 于 与 概率 论 之 间 的 潜在 的 
混淆 性 ， 我 们 不 用 这 些 术 语 ， 而 简单 地 称 为 mass。 之 所 以 类 比 为 对 象 的 质量 ， 是 因为 这 样 可 把 信任 看 
成 一 个 可 以 移动 、 分 离 、 合 并 的 量 来 考虑 。 这 有 助 于 我 们 把 对 象 考虑 成 是 由 黏土 组 成 的 ， 于 是 其 各 部 
分 可 以 移 去 也 可 以 重新 组 合 。 

Dempster-Shafer 理论 和 概率 论 之 间 的 基本 区 别 在 于 对 未 知 (ignorance) 的 处 理 。 正 如 第 4 章 所 讨 
论 的 ， 即 使 在 未 知 时 ， 概 率 论 也 必须 按 等 量 概率 分 配 。 例 如 : 如 果 没 有 先 验 知识 ， 你 会 假设 各 种 可 能 
性 的 概率 


1 
Pe 
N 


其 中 N 是 可 能 性 的 个 数 ， 如 第 4 章 所 述 ，P 的 这 种 分 配 是 在 绝望 时 用 的 ， 用 一 个 比较 形象 的 术语 
称 之 为 无 差别 原理 (principle of indifference)。 

当 只 有 两 种 可 能 性 时 ， 应 用 无 差别 原理 会 发 生 极端 情况 。 例 如 : AAC, iD HAH, RR 
种 情况 ， 即 使 无 任何 知识 ， 由 概率 论 

P(H) + P(H’) = i 
都 有 P = 50% ， 即 是 说 : 由 于 不 允许 未 知 ， 只 要 不 支持 就 必定 是 否定 。 

如 果 不 加 思索 地 这 样 应 用 ， 将 会 导致 荡 雇 的 结果 。 例 如 : 在 你 的 房子 里 要 么 有 油 要 么 没 油 ， 根 据 
无 差别 原理 ， 若 你 完全 没有 其 他 知识 ， 则 在 你 的 房子 里 有 50% 的 概率 是 有 油 的 。 试 想 一 下 ，50% 的 机 
会 有 油 是 多 么 诱 人 ， 这 提供 了 一 个 可 以 比 任何 合法 投资 更 好 的 快速 致富 机 会 ， 既 然 有 50% 的 机 会 有 
油 ， 你 还 不 赶快 拿 出 所 有 的 积蓄 ， 租 一 套 钻探 设备 ， 在 你 的 厨房 中 开始 钻探? 

根据 同样 的 推理 ， 应 用 无 差别 原理 和 概率 论 ， 有 50% 的 机 会 有 ;: 

钻石 

和 海盗 一 样 多 的 财富 

BRK 

新 鲜 奶 酷 

你 的 下 一 次 家 庭 作业 
和 其 他 任何 你 能 想 出 的 你 房子 内 的 东西 (事实 上 ， 你 可 以 这 样 就 发 财 一 一 上 电视 并 告诉 每 个 人 只 要 花 
9.95 美元 买 你 的 关于 概率 论 的 书 就 能 致富 。 这 也 是 不 作 清洁 的 最 好 理由 。 如 果 不 知 道 那 儿 是 什么 ， 它 
就 可 以 是 任何 东西 ， 并 同样 有 50% 的 可 能 性 通过 发 现 值钱 的 东西 而 变 得 富有 )。 

即使 不 使 用 无 差别 原理 ， 规 定 ， 


P(H) + P({H’) = 1 


也 使 得 必须 为 反面 假设 分 配 一 个 概率 ， 即 使 没有 任何 证 据 支持 它 。 正 如 在 第 5.3 节 中 讨论 的 那样 ， 对 
像 医学 知识 那样 有 很 多 种 信任 的 情况 ， 这 不 是 一 个 好 的 假定 。 然 而 ， 概 率 论 所 要 求 的 就 是 这 样 的 证 据 ， 
不 是 支持 假设 就 是 否定 假设 。 

Dempster-Shafer 理论 并 不 强迫 为 未 知 或 者 反面 假设 分 配 一 个 信任 。 相 反 ， 你 只 需 为 那些 你 想 分 配 
信任 的 环境 中 的 子 集 分 配 一 个 mass。 没 有 分 配 信任 的 特殊 子 集 被 认为 是 无 信任 的 (no belief or nonbe- 
lief)， 它 们 只 是 仅仅 与 环境 8 有关。 和 否定 一 个 假设 的 信任 是 不 信任 ， 而 不 是 无 信任 。 

例如 ， 假 设 一 个 识别 友 机 或 敌 机 的 传感器 〈Identification Friend or Foe, IFF) 从 飞机 雷达 收发 器 上 
没有 获得 任何 回应 。IFF 是 一 个 向 飞机 发 射 无 线 电 信息 的 无 线 电 收发 器 ， 如 果 该 飞机 是 友 机 ， 它 的 收 
发 器 就 会 发 加 自己 的 身份 代码 作为 回应 。 没 有 作出 回应 的 飞机 因 违 背 约 定 而 被 认为 是 敌 机 。 一 个 飞机 
未 对 IFF 作出 回应 可 能 由 于 各 种 原因 ， 如 

。 IFFR 
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© 飞机 的 收发 器 失灵 

。 飞机 上 没有 IFF 

。 IFF 信号 阻塞 

。 飞机 被 命令 不 要 回复 无 线 电 信号 

假设 IFF 未 能 得 到 回应 表明 有 0.7 的 证 据 信 任 说 明 目 标 飞 机 是 敌 机 。 这 里 ， 敌 机 仅 指 尿 炸 机 和 战 
斗 机 。 于 是 ， 只 须 给 子 集 |B, Fi 分 配 mass, 

ml({B,F}) = 0.7 
这 里 m 指 第 一 种 IFF 传感器 的 证 据 。 

余下 的 信任 留 给 环境 ，@， 作 为 无 信任 。 

m(Q) = 1- 0.7 = 0.3 

环境 的 寡 集 中 每 一 个 mass 值 大 于 0 的 集合 称 作 一 个 焦 元 (focal element)。 使 用 术语 焦 元 是 因为 
m (x) >0 的 集合 X 是 寡 集 中 的 一 个 元 素 且 它 聚 焦 或 集中 了 有 用 的 证 据 。 

Dempster-Shafer 理论 与 概率 论 有 一 主要 的 区 别 ,概率 论 假设 

P( 敌 机 ) = 0.7 

PE( 非 敌 机 ) = 1-0.7 = 0.3 

在 概率 论 中 ， 如 果 敌 机 的 信任 是 0.7， 则 敌 机 的 不 信任 必须 是 0.3。 而 在 Dempster-Shafer 理论 中 ， 
0.3 被 认为 是 该 环境 的 无 信任 m 0). 它 表 示 有 0.3 的 既 不 信任 也 不 不 信任 。 我 们 相信 目标 是 敌 机 的 
度 是 0.7, 但 保留 0.3 的 判断 给 不 信任 和 附加 信任 它 是 敌 机 。 给 环境 8 分 配 0.3 并 不 是 给 @ 的 子 集 分 
配 任何 值 ， 意 识 到 这 一 点 非常 重要 ， 即 使 这 些 子 集 包 含有 敌 机 的 子 集 IB, Fl. {BI 和 [Fls 

回顾 一 下 上 一 节 的 学 生 例 子 ， 

ml 得 了 A 并 且 毕 业 ! =0.7 
并 不 自动 意味 

mi 得 了 A 但 毕 不 了 业 ! = 0.3 
除非 两 者 的 值 都 是 分 配 的 。 

如 表 5.3 所 示 ，mass 一 般 认为 比 概 率 有 更 大 的 自由 度 。 

每 个 mass 可 形式 地 表示 为 从 寡 集 中 的 元 素 映 射 表 5.3 Dempster-Shafer 理论 的 mass 








到 区 间 0~ 之 间 的 实数 的 一 个 函数 。 这 仅 意味 着 子 与 概率 论 的 比较 
集 的 信任 可 以 取 0~1 之 间 的 任何 值 。 该 映射 可 形式 Dempster-Shafer 理论 概率 论 
地 表示 为 : 5 _ 

m( Q)RL EFF 1 Pl 


m: FO) > [0,1] 
如 果 XEY, A m(X)Sm(Y) P(X)&P(Y) 


m(X) 和 mX ) 之 间 不 必 有 关系 P(X)+ P(X )=1 


JRE, TEK mass 通常 被 定义 为 0: 
m{g) = 0 

HE PHATE X 的 mass 和 为 1。 
> m(X)= 1 


Xe (A) 


例如 ， 在 飞机 环境 中 


D m(x) = m((B.F}) + ml(9) = 0.7 + 0.3 = 1 


组 合 证 据 


现在 ， 让 我 们 来 看 一 个 可 附加 证 据 的 情形 。 我 们 将 把 所 有 的 证 据 组 合 起 来 以 获得 一 个 更 好 的 证 据 
信任 估计 ， 为 了 说 明 这 一 点 ， 让 我 们 首先 看 一 个 例子 ， 它 是 证 据 组 合 一 般 公 式 的 一 个 特例 。 
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BCS — AURAL SE AE Bee EOL EE aE 0.9. HOT, WORT SE ATE AY mass 如 下 : 
m({B,F}} = 0.7 m (8) = 0.3 
m: { {B}) = 0.9 m(@) = 0.1 
这 里 ml m 指 第 一 种 和 第 二 种 类 型 的 感应 器 。 
用 以 下 特殊 形式 的 Dempster 组 合 规则 (Dempster s Rule of Combination) 可 将 这 些 证 据 组 合并 得 到 
合 mass (combined mass): 


m ®m(Z) = Sm) my) 
XNY= 2 


这 里 求 和 是 对 所 有 交集 XmyY = Z 的 元 素 ， 外 运算 符 称 作 正 交 和 (orthogonal sum, direct sum) ， 它 定义 
为 右边 交集 合 的 mass 的 积 的 和 。Dempster 规则 组 合 mass 以 将 最 初 的 可 能 有 冲突 的 证 据 表示 为 一 个 
—B (consensus) 的 新 mass， 新 的 mass 之 所 以 是 一 致 的 是 因为 它 试图 通过 仅 包 括 交集 中 的 mass 以 获得 
一 致 而 不 是 不 一 致 。 交 集 表 示 证 据 中 的 公共 元 素 。 很 重要 的 一 点 是 该 规则 应 被 用 于 组 合 那些 错误 独立 
的 证 据 ， 但 这 并 不 等 同 于 独立 地 收集 证 据 。 





表 5$.4 将 飞机 环境 的 mass 值 及 交集 表 5.4 确认 证 据 
合 的 积 列 于 一 张 表 中 。 每 个 交集 后 都 列 一 0 Co 
出 其 mass 积 的 值 。 m({B,F}=0.7 [BI 0.63 {B,F} 0.07 

表 中 的 各 项 用 行 和 列 的 mass 值 交叉 mi(@) =0.3 IB! 0.27 80.03 
相 乘 而 得 出 ， 如 下 所 示 ， 这 里 Ti 表示 表 
中 第 i 行 第 j 列 元 素 : 

Ta ({B}) = m({B,F}) m({B}) = (0.7) (0.9) = 0.63 

Ta ({B}) = m(O) m({B}) = (0.3) (0.9) = 0.27 

T:2 ({B,F}) = m({B,F}) m(@) = (0.7) (0.1) = 0.07 

Tz (©) = m(O) m(O) = (0.3) (0.1) = 0.03. 


一 旦 各 个 mass 值 被 算出 ， 正 如 以 上 所 示 ， 然 后 根据 Dempster 规则 ， 把 公共 交集 的 积 相 加 : 


ml({B!)= m@m,({B}) =0.63 + 0.27 


= 0.90 KEWL 
m;({B,F])= m@m (IB,F}) 
=0.07 又 炸 机 或 战斗 机 
n;(@) = mdnz(9) 
= 0.03 无 信任 


这 里 ms (IB) 表示 目标 是 猴 炸 机 并 且 只 是 秘 炸 机 的 信任 。 但 是 ，ms〈 | 了 8，FI) 和 ms (0) 还 含 
有 附加 的 信息 ， 由 于 它们 的 集合 中 也 含有 砂 炸 机 ， 其 正 交 和 对 利 标 是 秦 炸 机 的 信任 可 能 有 作用 ， 这 一 
点 似乎 是 合理 的 ， 于 是 它们 的 和 0.07+0.03=0.1 可 以 被 加 到 顾 炸 机 的 信任 0.9 E, (EA AIRBASE IE 
机 的 最 大 信任 一 一 合 情 信任 。 这 里 用 证 据 的 一 个 信任 范围 (range of belief) 来 代替 单个 信任 值 。 信 任 范 
围 从 最 小 值 0.9 开始 ，0.9 是 已 知 的 可 能 为 秦 炸 机 的 信任 ， 直 到 可 能 为 到 炸 机 的 最 大 合 情 信任 0.9+ 
0.1=1。 从 最 小 值 0.9 到 最 大 值 1， 真 正 的 信任 是 0.9 一 1 的 某 个 数 。 

在 证 据 推理 中 ,证 据 被 归纳 成 一 个 证 据 区 间 (evidential interval). FBR (lower bound) 在 证 据 推 理 
中 被 称 作 支持 度 (support, Spt), 72 DEMPSTER-SHAFER 理论 中 被 称 为 Bel， 上 限 (upper bound) 被 
称 作 合 情 度 (plausibility, Pls)。 本 例 中 ,证 据 区 间 是 [0.9，1]， 下 限 是 0.9， 上 限 是 1。 支 持 度 是 证 据 
的 最 低 信任 度 ， 合 情 度 是 我 们 愿意 给 的 最 大 信任 度 ， 一般 而 言 ，Bel 和 Pls 的 范围 是 0 委 Bel 委 Pls 委 1。 
在 Dempster-Shafer 理论 中 ,下限 和 上 限 有 时 被 称 为 低 或 高 概率 。 表 5.5 列举 了 一 些 常用 的 证 据 区 间 。 

支持 或 信任 函数 (belief function)，Bel， 是 一 个 集合 和 它 所 有 的 子 集 的 信任 总 和 。Bel 也 是 支持 一 
个 集合 的 全 部 mass， 它 是 用 mass 来 定义 的 。 


Bel(x) = > m(Y) 
YCX 
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例如 ， 在 飞机 环境 中 ， 对 第 一 种 感应 器 ， 


Beli({B,F}) = m({B,F}) + m({B}) + m({F}) 


= 0.7 +0+02 0.7 








Bel 函数 有 时 被 称 作 信任 测度 ， 或 表 5.5 一 些 常用 的 证 据 区 间 
简称 为 信任 。 然 而 ， 信 任 函数 与 mass TEKH ax 
非常 不 同 ，mass 是 分 配给 单个 集合 的 ”一 ET 
证 据 信任 。 例 如 ， 假 设 你 拥有 一 辆 福 ioo na 

特 汽车 并 听 说 警方 正在 寻找 一 辆 银行 10 | en 
抢劫 犯 用 作 逃 跑 工具 的 福特 车 ， 听 说 [po 1] 其 中 0< peel sain pit 
警方 在 寻找 一 辆 柱 特 车 和 听 说 警方 在 。 [0 Pi] 其 中 0< pect mae 


寻找 你 的 福特 车 ， 这 两 者 之 间 有 很 大 “pa pis] 其 中 0< Bel<<Pls< 1 BEAM FEA LMT 
区 别 。Mass 是 一 个 集合 而 不 是 其 子 集 
的 信任 ， 但 信任 函数 却 是 应 用 在 集合 和 它 所 有 的 子 集 上 。Bel 是 信任 总 和 ， 因 此 它 比 局 部 信任 mass 更 
具有 全 局 性 。 由 于 mass 和 Bel 之 间 的 相互 关系 ，Dempster-Shafer 理论 也 被 称 为 信任 函数 理论 。 一 般 而 
A, Dempster 规则 可 解释 为 组 合 信任 函数 的 一 种 方法 。mass 和 信任 函数 具有 如 下 关系 : 





m(X) = 了 (1) * 7 * Bel) 
YOR 
其 中 ， 人 -YI 是 集合 
X- Y= (x | x € X and x € Y} 


的 基数 (cardinality), BIX- Y| 是 集合 X-Y 中 的 元 素 个 数 。 
由 于 信任 函数 是 用 mass 来 定义 的 ， 两 个 信任 函数 的 组 合 也 可 用 集合 和 其 所 有 子 集 的 mass 的 正 交 
和 来 表示 。 例 如 ， 


Bel. ® Bel2({B}) = m ® m({B}) + m, ® m,(@) 
= 0.90 + 0 = 0.90 
通常 ， 空 集 的 mass 不 写 出 来 ， 因 为 它 一 般 被 定义 为 零 。 率 炸 机 - 战斗 机 集合 IB, Fi 的 信任 总 各， 要 
比 上 面 有 更 多 的 子 集 。 
Bel, ® Bel.({B,F}) 
=m ® m({B,F}) +m ® m({B}) +m @ m({F}) 
= 0.07 + 0.90 + 0 = 0.97 
IB] 和 LF) 的 项 包括 进来 是 因为 它们 是 〈 1B，Fi) 的 子 集 。 从 图 5.6 可 知 ，( IB, FL) AFR IB! 
和 (Fi, BF [F] 没有 给 出 mass, 于 是 m (IF) = 0， 且 它 对 总 和 无 贡献 。 事 实 上 ,，m ( {Fi) 和 其 
他 值 为 0 的 mass 根本 没有 列 人 表 5.4， 因 为 任何 与 它们 交叉 相 乘 的 结果 都 为 0。 如 果 除 了 空 集 为 0 外 ， 
mass 被 分 配给 lA, B, Fl 的 每 一 个 子 集 ， 则 表 5.4 共 会 有 (2- 1) (2- 1) = 7x7 = 49 个 项 。 
基于 所 有 证 据 的 9 的 组 合 信任 函数 如 下 : 


Bel, ® Bel: (O) = m @m(O) + m m ({B,F}) 
+ m ®m({B}) 


= 0.03 + 0.07 + 0.90 = 1 


事实 上 ， 在 各 种 情况 下 ，Bel (0) = 1， 因 为 所 有 mass 的 和 必须 总 为 1。 证 据 组 合 只 是 将 mass 重新 分 


配给 不 同 的 子 集 。 
集合 S 的 证 据 区 间 ，EI (S) ， 可 以 用 信任 来 定义 : 
EI(S) = [Bel(S),1 — Bel(S‘)] 


MES = Bl, 那么 S = {A, Fi, H 
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Bel({A,F}) = m ® m({A,F}) +m ® m({A}) 
+m ® m({F}) 


=O0+0+0=0 


由 于 它们 都 不 是 焦 元 ， 且 对 非 焦 元 ，mass 为 0。 于 是 ，!|B} 的 证 据 区 间 如 下 : 


EI({B)) = [0.90,1 — 0) 
= [0.90,1] 


(MH, WAS = IB, Fl, BAS = {Al, B 


Bel({A}) = 0 


这 是 因为 {Ai 不 是 焦 元 。 同 样 地 ， 


Bel({B,F}) = Bel: ® Bel,({B,F}) = 0.97 
EI({B,F}) = [0.97,1 — 0] = [0.97,1] 
EI({A}) = [0,1] 


这 里 , 证据 区 间 (0, 1] 表示 我 们 对 Ai 完全 不 知 。 
证 据 区 间 [ 信 任 总 和 , 合 情 度 ] 可 以 被 表示 为 : 
[支持 证 据 ,支持 证 据 + 未 知 ] 

概率 论 中 ， 这 个 区 间 只 是 一 个 点 ， 
[支持 证 据 ,支持 证 据 ] 


这 是 因为 不 允许 未 知 ， 即 证 据 不 是 支持 就 是 否定 。 例 如 ,，“ 如 果 手 套 不 合适 ， 你 就 必须 放弃 。 


合 情 度 可 定义 为 证 据 不 否定 X 的 程度 ， 


Pls(X) = 1 ~ Bel(x’) = 1 - $ m(x’) 
YGX 


合 情 信任 ，Pls， 是 将 信任 延伸 到 一 个 绝对 最 大 值 ， 在 该 情况 下 未 分 配 的 信任 m (0) 也 有 可 能 对 


信任 有 贡献 。 这 里 m (0) 可 能 是 友 炸 机 、 战 斗 机 或 客机 。 在 合 情 的 假定 下 ，m (0) 被 假设 为 对 子 集 
中 的 某 一 个 有 贡献 。 由 于 IBI 是 8 的 一 个 子 集 ， mt (0) 的 信任 值 0.3 分 配给 秘 炸 机 也 是 合 情 的 。 回 


忆 第 4.15 节 ， 一 个 合 情 信 任 要 比 可 能 信任 略 强 一 些 ， 但 并 不 需要 有 强 有 力 的 证 据 支 持 。 男 一 点 是 日 并 


不 是 能 延伸 信任 给 任 一 集合 X 的 惟一 集合 ， 任 何 与 X 相交 的 集合 ， 其 补 集 都 有 此 能 力 。 
怀疑 度 (dubiety, Dbt) RARE (doubt) 表示 X 不 被 相信 或 被 否定 的 程度 。 未 知 度 (ignorance, 


ler) 表示 集合 支持 X 或 X' 的 程度 ， 定 义 如 下 ， 


Dbt (X) = Bel(X’) = 1 — Pls(X) 
Igr(X) = Pls(X) 一 Bel (X) 
信任 的 标准 化 


假设 第 三 种 感应 器 此 时 报告 了 一 个 客机 的 冲突 证 据 : 
m3({A}) = 0.95 m(@) = 0.05 
表 S.6 列 出 了 如 何 计算 交叉 积 。 

表 5.6 组 合 附加 证 据 ms 








ml 中 my {B}) ml 中 m2( ÍB,F}) me m (0) 

0.90 0.07 0.03 
m3({A})=0.95 00 @0 {A} 0.0285 
m3(@) =0.05 IB} 0.045 {B,F} 0.0035 @ 0.0015 
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之 所 以 存在 空 集 @ 是 因为 JA 和 IBI 无 公共 元 素 ，1A} 和 iB, Fi 也 是 同样 ， 所 以 他 们 的 又 
乘 是 0 而 不 是 0.855 或 0.0665。 但 是 我 们 很 快 会 看 到 这 些 定 值 在 标准 化 中 的 作用 ， 行 与 列 的 又 乘 如 下 : 


m 电 m © m;({A}) = 0.0285 

m ® m @ m({B}) = 0.045 

m ® m @ m;({B,F}) = 0.0035 

m ® m ®© m(@) = 0.0015 

m m ® m(@) = 0 (根据 空 集 的 定义 ) 


注意 在 本 例 中 ， 所 有 mass 的 和 小 于 1: 
Em © m @ m @)=0.0285+0.045 +0.0035 + 0.0015 
= 0.0785 

这 里 求 和 是 对 所 有 焦 元 。 然 而 ， 和 必须 为 1， 因为 组 合 证 据 mi 中 mO m 是 有 效 的 mass， 因 此 对 
所 有 焦 元 求 和 必须 为 1， 而 事实 上 结果 小 于 1， 这 说 明 存 在 问题 - 

可 通过 对 焦 元 的 标准 化 (normalization) 来 解决 该 问题 。 即 将 各 焦 元 除 以 

1-k 
HB, IEMA XM Y, «EH: 


r= > m: (X) ma (Y) 


在 我 们 的 例子 中 ， 


Kk = 0.855 + 0.0665 = 0.9215 


因此 


1- « = 1 — 0.9215 = 0.0785 


对 mi 中 mO m 中 每 个 焦 元 除 以 1 - k， 得 到 标准 化 值 : 


m ® m @ m {A} = 0.363 
m ® m ® m;{B} = 0.573 
m ® m @ m:{B,F} = 0.045 
m ® m @ m (0) = 0.019 


此 时 ，fBi 的 标准 化 信任 总 和 为 : 


Bel({B}) = m @® m({B}) = 0.573 


注意 到 ， 正 如 我 们 所 预料 的 一 样 ， 1Al 的 一 个 证 据 较 大 地 减低 了 1Bi 的 信任 度 ， 从 0.90 到 
0.573， 大 约 减少 了 一 半 。 


Bel{({{B}’) = Bel({A,F}) 
=m ®m ® m({A,F}}) + 
m ® m ® m({A}) + 
m © m © m({F}) 
= 0 + 0.363 + 0 = 0.363 


因此 此 时 的 证 据 区 间 是 : 


EI({B}) = (Bel({B}),1 — Bel({B}‘)] 
= [0.573,1 — 0.363] 
= [0.573,0.637] 


注意 ,由 于 (A HIRERE, Bi 的 支持 度 和 合 情 度 已 显著 减少 了 。 
Dempster 组 合 规则 的 一 般 形式 为 : 
wm m(x) mY) 


这 里 ,为 了 方便 ， 再 次 定义 x。 如 果 r= 1， 则 定义 为 无 正 交 和 。 


r= SY mam) 


xn Y =o 


“表示 证 据 冲 突 (evidential conflict) 的 额度 。k = 0 说明 完 全 兼容 ，1 说 明 完 全 冲突 , 值 0<k< 1 表 


m: Bm(2) = 
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示 部 分 兼容 。 
移动 mass 和 集合 


对 移动 mass 的 类 比 有 助 于 理解 支持 度 和 合 情 度 。 主 要 的 概念 如 下 ，; 

。 支持 度 是 分 配给 集合 和 其 所 有 子 集 的 mass。 

。 某 一 集合 的 mass 能 自由 进入 它 的 子 集 。 

。 集合 中 的 mass 不 能 进入 它 的 超 集 。 

。 将 ms 从 一 个 集合 移 人 其 子 集 ， 仅 对 子 集 的 合 情 度 有 贡献 ， 对 它 本 身 的 支持 度 没有 贡献 。 

+ RE 日 中 的 mass 可 移 人 任何 一 个 子 集 ， 因 为 @ 在 所 有 子 集 外 。 

在 图 5.7 (a) 中 ， 所 有 mass 都 假定 在 集合 X 内， 因此 

m(X) = 1 
这 意味 着 X 的 支持 度 为 1。X 的 合 情 度 也 为 1， 因 为 所 有 的 mass 都 在 X 内 ， 没 有 超 集 能 对 mass A 
献 。 于 是 


EI(X) = [1,1) 


如 果 m (X) = 0.5, WET (X) = [0.5, 0.5], 一 般 ， 如 果 X X 
m (X) = a， 这 里 a 是 任意 常数 ， 则 EI (X) = [a al. 
在 图 5.7 (b) 中 , 假定 m (X) =0.6, m (Y) =0.4, 
这 也 是 它们 的 支持 度 。X 的 合 情 度 为 0.6, 因为 Y 的 mass 四 四 
x 


不 能 移 给 X. (ASE. XH mass TBA Y, AW Y EX 


个 子 集 ， 因 此 Y 的 合 情 度 是 0.4+0.6=1。 于 是 , XAY K 
证 据 区 间 如 下 : 
EI ({X}) [0.6,0.6} 


EI({Y}) = {0.4,1] 


图 5.7 (c) 和 (d) 用 于 习题 5.4。 
Dempster-Shafer 理论 的 困难 


Dempster-Shafer 理论 的 一 个 困难 是 标准 化 ， 它 会 导致 结果 与 我 们 预期 的 相 了 矛盾 。 标 准 化 之 所 以 会 
造成 问题 是 因为 它 忽略 了 所 考虑 的 对 象 不 存在 时 的 信任 。 

Zadeh 引用 的 一 个 例子 是 关于 两 个 医生 ，A 和 B， 对 一 个 病人 病情 的 信任 问题 ， 病 人 病情 的 信任 值 
如 下 : 

ma( 脑 膜 炎 ) = 0.99 

n, (ABI) = 0.01 

me( 脑 震荡 ) = 0.99 

ma( 脑 瘤 ) = 0.01 


注意 ， 两 个 医生 都 认为 脑 瘤 的 可 能 性 很 低 ，0.01， 但 对 于 主要 问题 的 看 法 却 很 不 一 致 。 用 Demp- 
ster 组 合 规则 可 得 脑 瘤 的 组 合 信任 为 1。 该 结果 完全 出 乎 意料 且 与 我 们 的 直觉 相悖 ， 因 为 两 个 医生 都 同 
意 脑 瘤 是 很 不 可 能 的 。 但 无 论 其 他 概率 是 多 少 ， 都 会 得 到 同样 的 结果 ， 脑 瘤 的 组 合 信任 为 1。 


5.5 近似 推理 


本 节 我 们 将 要 讨论 基于 模糊 逻辑 (fuzzy logic) 的 不 确定 性 理论 ， 该 理论 主要 关注 定量 和 推理 ， 这 
些 定量 和 推理 使 用 了 自然 语言 旦 其 中 含有 许多 意义 模糊 的 词 ， 如 高 、 热 、 和 危险、 一点、 很 多 等 。 人 们 
经 常 使 用 模糊 逻辑 “IF … THEN” 规 则 ， 例 如 “如 果 我 的 闹钟 坏 了 ， 那 么 我 可 以 多 睡 一 会 。 但 我 们 
都 知道 ， 多 睡 一 会 是 非常 不 精确 的 描述 ， 对 每 个 人 可 能 都 不 一 样 。 模 糊 规则 现在 在 计算 机 中 有 广泛 应 


< 


图 5.7 用 集合 来 说 明 支 持 度 和 合 情 度 
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用 ， 无 论 是 内 钳 到 一 个 工具 中 还 是 加 到 一 个 基本 工具 〈 如 CLIPS) 中 。 

模糊 逻辑 是 传统 〈 布 尔 ) 逻辑 的 超 集 ， 被 扩展 用 于 处 理 部 分 真 概念 ; 即 介 于 “完全 正确 ”和 “完全 
错误 ”之 间 的 真 值 。 模 糊 逻 辑 并 不 像 听 起 来 的 那样 ， 它 并 不 是 一 种 胖 胱 的 、 混 浊 的 、 含 糊 的 思维 方式 ; 
事实 上 恰恰 相反 。 当 事情 非常 复杂 ， 难 以 理解 时 ， 事 情 就 开始 不 确定 。 事 情 越 复 杂 ， 就 越 不 精确 或 模糊 
化 。 模糊 逻辑 提供 了 一 个 精确 的 方法 去 处 理 不 确定 性 ， 而 这 种 不 确定 性 产生 于 人 类 行为 的 复杂 性 。 

这 个 概念 的 最 早 描述 是 在 Zadeh 1965 年 的 论文 中 ， 它 为 20 年 后 出 现 的 模糊 计算 机 系统 和 芯片 提供 
了 基本 理论 基础 。 他 的 理论 引发 了 数学 、 工 程 和 科学 的 全 新 分 支 。 软 计算 (soft computing) 的 提出 意 
味 着 计算 并 不 是 基于 传统 的 二 值 逻辑 (Roger 96)。 软 计算 包括 模糊 逻辑 、 神 经 元 网 络 和 概率 性 推理 。 
今天 ,术语 概率 性 (probabilistic) 在 人 工 智能 中 不 仅仅 意 昧 着 经 典 概率 理论 ， 还 包括 了 贝 叶 斯 信任 网 ， 
进化 计算 包括 DNA 计算 、 混 沌 理论 和 量子 计算 。 

该 理论 不 断 扩展 并 被 应 用 到 许多 领域 ， 如 空间 物体 的 自动 影像 追踪 (Giarratano 91)。 模 糊 多 辑 也 
和 神经 网 络 结合 于 许多 应 用 中 (Liu 04)。 许 多 摄像 机 和 照相 机 都 使 用 了 模糊 逻辑 。 表 5.7 列 出 了 模糊 
逻辑 的 一 些 主要 应 用 。 对 于 任何 一 个 指定 的 应 用 ， 只 需 使 用 一 个 搜索 引擎 ， 你 就 可 以 得 到 大 量 信息 。 


模糊 集合 和 自然 语言 


传统 的 表示 一 个 对 象 属 于 一 个 集合 是 采用 特征 函数 (characteristic function) 的 形式 ， 有 时 也 称 为 
识别 函数 (discrimination function)。 如 果 某 对 象 是 一 集合 的 元 素 ， 那 么 它 的 特征 函数 值 为 1， 如果 不 是 
集合 的 元 素 ， 则 它 的 特征 函数 值 为 0， 该 定义 可 被 概括 成 如 下 特征 函数 : 


) 1 if x is an element of set A 
Ba (x 0 if x is not an element of set A 


此 处 x 是 某 一 论 域 X 的 元 素 (Ross 04). 

特征 函数 也 可 用 函数 映射 的 方式 来 定义 (参见 第 1.10 节 的 函数 式 程序 设计 ): 

a(x) : X — {0,1} 
这 说 明 特 征 函数 将 一 个 论 域 X 映射 到 一 个 由 0 和 1 组 成 的 集合 。 这 个 定义 简单 地 表达 了 一 个 经 典 的 概 
念 ， 一 个 物体 或 者 属于 一 个 集合 ， 或 者 不 属于 这 一 集合 。 这 种 集合 称 为 分 明 集 (crisp set)， 以 区 别 于 
模糊 集合 。 这 种 观点 来 源 于 亚 里 士 多 德 的 二 价 (bivalent) 或 二 值 遇 辑 (two-valued logic). CUKA 
真 或 假 两 种 可 能 。 

传统 或 经 典 逻 辑 总 是 把 信息 分 类 到 二 值 模 式 , 例如 黑 / 白 、 表 5.7 模糊 理论 的 一 些 应 用 
真 / 假 、 是 / 香 或 所 有 /无 一 ， 而 模糊 逻辑 把 注意 力 放 在 “额外 的 o eaea 





中 间 ”， 尝 试 计算 这 样 一 个 “灰色 地 带 "， 即 构成 人 类 日 常生 活 aoe 
中 多 数 推理 的 部 分 真 和 部 分 假 情形 。 它 的 建立 基于 一 种 假设 ， 决策 
任何 事物 包括 一 个 可 变化 的 度 一 一 不 管 是 否 为 真 ， 年 龄 、 美丽、 a 
财富 、 颜 色 、 种 族 或 任何 其 他 事物 都 是 由 动态 的 人 类 行为 和 感 环境 
知 影响 的 。 文学 
二 值 逻 辑 的 问题 在 于 ， 我 们 生活 在 一 个 模拟 而 非 数 字 的 世界 reer 
中 。 在 现实 世界 里 ， 事 物 通 常 不 是 非 此 即 彼 的 。 仅 仅 是 为 了 便于 心理 学 
计算 机 组 织 才 使 用 了 基于 二 值 逻 辑 的 数字 逻辑 。 计 算 机 模拟 理论 ate 
的 发 展 ， 如 人工 神经 系统 和 模糊 理论 更 精确 地 反映 了 现实 世界 。 自然 科学 


在 模糊 集合 中 ， 一 个 对 象 可 以 部 分 属于 一 个 集合 。 其 隶属 
于 模糊 集合 的 程度 可 通过 一 个 一 般 化 的 特征 函数 来 度量 。 该 函 
数 称 为 隶属 (membership) 或 兼容 函数 (compatibility function)。 定 义 为 : 


Ba(x) : X > [0,1] 


虽然 这 个 定义 看 起 来 与 特征 函数 的 定义 极为 相似 ， 但 实际 上 却 非常 不 同 。 特 征 函 数 把 X 中 的 所 有 元 素 
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映射 为 两 个 精确 的 元 素 之 一 : 0 或 1。 而 隶属 函数 却 把 X 映射 到 闭 区 间 (interval) 0 到 1， 即 [0, 1] 
上 的 一 个 实数 ， 

0 < 和 pasRs1 
其 中 ，0 表示 不 隶属 ，! 表示 完全 隶属 于 该 集合 。 隶 属 函数 的 某 个 值 ， 如 0.5， 称 为 隶属 度 (grade of 
membership) 。 

虽然 初次 谈 及 一 个 元 素 部 分 属于 一 个 集合 有 些 奇 怪 ， 但 事实 上 它 比 经 典 的 二 元 集合 要 更 自然 。 尽 
管 许多 人 希望 这 样 ， 但 现实 世界 并 非 只 是 是 非 、 黑 白 、 对 错 、 开 关 等。 正如 有 许多 不 同 深浅 的 灰 ， 而 
不 仅仅 是 黑白 一 样 ， 现 实 世界 也 有 很 多 不 同 程度 的 含义 。 只 有 债务 和 计算 机 代码 才 是 精确 的 。 

使 用 隶属 函数 ， 我 们 可 以 描述 现实 世界 的 情况 。 举 一 个 简单 的 例子 ， 如 考虑 多 云 的 天 气 。 使 用 分 
明 集 描述 需要 一 个 关于 多 云 的 判别 定义 。 多 云 是 指 有 一 些 云 、 许 多 云 、 布 满 云 、 局 部 布 满 云 或 者 其 他 
定义 吗 ? 同样 ,下 雨 ， 是 指 降水 量 为 、2”、3" 或 者 某 个 降水 量 ? 

模糊 集合 和 概念 在 自然 语言 中 被 普遍 地 使 用 。 如 : 

“约翰 是 高 的 ” 

“KE AN” 

"FEH A He” 

“MREMA AG T WEAK” 
斜体 部 分 的 内 容 是 模糊 集 和 量 。 所 有 这 些 模糊 集 和 量 都 可 以 用 模糊 理论 来 表示 和 处 理 。 特 别 是 ， 曾 在 
第 2.16 节 中 作为 谓词 逻辑 的 主要 局 限 提出 的 大 多 (most) 量词 ， 可 以 用 模糊 逻辑 解决 。 马 上 你 就 可 以 
看 到 这 点 。 

在 自然 语言 里 ， 术 语 含糊 (vague) 和 模糊 (fuzzy) 这 两 个 词 有 时 可 以 通用 。 然 而 在 模糊 理论 中 ， 
这 两 个 词 有 着 明显 的 差别 。 一 个 模糊 命题 (fuzzy proposition) 是 指 包含 有 如 “高 ”这 样 的 词语 ， 高 是 
模糊 集合 TALL 的 标识 符 。 与 经 典 的 命题 如 “约翰 高 五 尺 ”"， 表 示 一 个 或 真 或 假 的 陈述 不 同 ， 模 糊 命题 
的 真实 有 程度 之 分 。 例 如 ， 模 糊 命 题 “ 约 翰 高 "， 可 能 为 真 ， 也 可 能 是 某 种 程度 的 真 ， 有 一 点 真 、 几 分 
真 、 相 当真 、 很 真 等 等 。 一 个 模糊 真 值 称 为 模糊 限定 词 (fuzzy qualifier) ， 它 可 以 作为 一 个 模糊 集合 使 
用 ,也 可 以 用 于 改变 一 个 模糊 集合 。 与 分 明 命 题 不 允许 量词 不 同 ， 模 糊 命 题 可 以 有 模糊 量词 fuzzy 
quantifier) ， 如 大 多 、 很 多 、 通 常 等 等 ， 和 经 典 情况 一 样 ， 这 些 量词 在 语句 和 命题 之 间 并 无 分 别 。 

术语 含糊 是 用 于 不 完全 信息 的 情况 下 。 如 “约翰 在 某 处 ”， 如 果 没 有 足够 的 信息 以 供 判 断 ， 则 它 就 
是 含糊 的 。 一 个 模糊 命题 ， 如 “他 高 "， 如 果 我 们 不 知道 他 指 的 是 谁 ， 也 是 含糊 的 。 含 糊 也 有 程度 之 分 ， 
一 个 命题 ， 如 “约翰 高 ” 比 “ 他 高 ”要 不 含糊 些 ， 但 如 果 我 们 不 知道 是 指 哪个 约翰， 则 依然 是 含糊 的 。 

自然 语言 中 使 用 了 许多 模糊 词汇 ， 如 表 5.8 所 示 。 这 些 词 的 含义 可 以 用 模糊 集合 来 定义 ， 这 一 点 
下 文 将 很 快 涉及 。 复 合 的 术语 ， 如 表 5.9 所 示 ， 也 可 以 用 模糊 理论 来 定义 和 处 理 。 

诚然 ， 难 以 想像 一 个 对 象 仅 是 部 分 属于 某 个 集合 ， 另 一 方法 是 把 隶属 函数 作为 表示 对 象 具 有 某 种 
属性 的 程度 。 这 种 属性 程度 的 概念 可 用 与 隶属 函数 含义 相同 的 兼容 函数 表示 。 术 语 兼容 意味 着 一 个 对 
象 是 如 何 地 符合 某 些 属性 ， 实 际 上 也 很 适用 于 描述 模糊 集合 。 然 而 隶属 函数 是 书面 上 最 常用 的 ， 因 此 ， 
我 们 也 将 采用 。 当 考虑 模糊 集合 时 ， 你 会 发 现 把 模糊 元 素 作为 一 个 如 第 2 章 所 述 的 对 象 -属性 - 值 三 元 
组 是 大 有 帮助 的 。 对 分 明 集 而 言 ， 只 有 对 象 - 属性 ， 这 是 因为 假定 值 要 么 为 1， 要么 为 0， 即 在 分 明 集 
中 ， 元 素 或 者 属于 集合 ， 或 者 不 属于 集合 。 对 模糊 集合 而 言 ， 值 可 为 0 到 1 之 间 的 任意 数 。 

为 了 说 明 模 糊 集合 的 概念 ， 再 考虑 先前 的 例子 : 

“约翰 高 ” 

如 果 他 是 一 个 成 年 人 ,图 5.8 给 出 了 一 个 可 能 的 隶属 函数 。 任 何 一 个 7 英尺 以 上 高 度 的 人 都 被 认 
为 其 隶属 函数 为 1.0。 任 何 一 个 低 于 5 英尺 的 人 都 被 认为 不 属于 “高 ”模糊 集合 ， 所 以 其 隶属 函数 是 
0, 在 5 英尺 和 7 英尺 之 间 , 隶属 函数 随 高 度 单调 增加 。 注 意 “ 非 常 ”这 个 词 如 何 增加 了 一 个 不 同 的 隶 
属 函 数 ， 得 到 的 平均 高 度 的 曲线 会 是 怎样 。 
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表 5.8 一 些 自然 语言 中 的 模糊 术语 表 5.9 复合 模糊 自然 语言 术语 
高 
+k 差不多 低 
fe 近乎 一 样 低 
高 度 ME 
R 不 很 低 
不 一 样 低 
一 点 
几 个 中 等 高 
少许 比 低 略 高 
ind 低 于 中 等 
大 多 最 高 
大 约 自由 左派 
近乎 ; 
左派 激进 自由 左派 


这 个 特定 的 隶属 函数 仅 是 许多 可 能 的 函数 之 一 。 对 普通 人 、 篮 球 运动 员 、 骑 师 等 不 同人 ， 隶 属 函 
数 有 很 大 不 同 。 例 如 ， 一 个 $ 英尺 高 的 骑 师 ， 在 某 种 程度 上 可 以 认为 是 高 的 ， 尽管 图 5.8 中 一 个 5 英 
尺 高 的 人 的 隶属 函数 为 0。 

依赖 于 应 用 ,隶属 函数 可 以 由 一 个 人 或 一 群 人 的 观点 而 建立 。 在 专家 系统 中 ,隶属 函数 由 模型 化 
了 的 专家 意见 建立 。 虽 然 对 高 的 看 法 似乎 不 能 在 专家 系统 中 模型 化 ， 但 许多 其 他 观点 却 可 以 。 例 如 一 
笔 贷款 的 风险 、 不 明 飞 机 的 敌意 、 产 品质 量 ， 应 聘 者 对 一 项 工作 的 适合 程度 等 等 。 注 意 ， 像 这 样 的 一 
些 观 点 不 是 简单 的 是 或 不 是 。 虽 然 也 可 设置 一 个 阔 值 来 判断 是 或 不 是 ， 然 而 真正 的 问题 在 于 这 个 分 明 
阅 值 的 有 效 性 。 例 如 ， 是 否 一 个 人 应 该 被 拒绝 给 予 抵押 贷款 因为 他 的 收入 为 $29 999.99 ii BL 
$ 30 000.00? 


隶属 函数 10 
09 


TALL 0.5 + 








5 6 65 7 75 8 
高 度 (RR) 


图 5.8 模糊 集合 “高 ”的 一 个 隶属 函数 


直觉 上 ， 对 一 群 人 的 隶属 函数 可 以 用 选票 的 方法 来 考虑 。 假 如 一 群 路 人 被 问 及 他 们 认为 称 得 上 高 
的 最 小 身高 。 可 能 没有 一 个 人 会 认为 低 于 5 英尺 是 高 ， 同 样 的 ， 可 能 每 个 人 都 认为 7 英尺 或 以 上 是 高 。 
在 5 英尺 和 7 英尺 之 间 ， 会 认为 某 一 身高 为 高 的 人 数 比 率 ， 与 图 5-8 曲线 所 示 极 为 相似 。 随 着 身高 从 5 
英尺 增加 到 6 英尺 ， 会 认为 该 身高 为 高 的 人 越 来 越 多 。 对 于 这 个 特定 的 隶属 函数 ， 身 高 的 交叉 
点 (crossover point) 为 6 英尺 。 交叉 点 是 =0.5 的 点 。 用 我 们 的 话说 ， 就 是 50% 的 人 会 认为 一 个 6 英 
尺 以 上 的 人 是 高 的 。 在 6.5 英 尺 处 ,同意 的 人 达 90%。7 英尺 以 上 ， 每 个 人 都 同意 。 所 以 隶属 函数 在 1 
处 是 水 平 的 。 

尽管 这 个 例子 是 以 一 群 人 的 观点 选票 的 方式 给 出 ， 但 隶属 函数 事实 上 并 不 是 概率 分 布 ， 认 识 这 一 
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点 很 重要 。 正 如 我 们 在 第 4 章 讨 论 过 的 ， 概 率 用 于 对 相同 或 同一 对 象 的 重复 观察 ， 虽 然 这 群 人 中 每 个 
人 ， 当 再 次 问 及 同一 问题 时 ， 可 能 给 出 同样 的 答案 ， 但 这 些 管 案 具有 似 然 性 ， 因 为 它们 反映 的 是 一 个 
人 的 信任 。 

SBM (Sfunction) 是 常常 作为 模糊 集合 中 隶属 函数 的 一 个 数学 函数 。 其 定义 如 下 : 


0 for x<a 








X 一 aY 
2 for asx<B 
ya 





1 = (22) for Bxx< 
y-a or B<x<Y 


1 for xz y 


S -函数 的 图 形 如 图 5.9 所 示 ， 

在 定义 模糊 函数 如 “高 ”时 ，S- 函 数 是 一 个 有 用 
的 工具 。 它 不 是 保持 一 个 定义 隶属 函数 的 数据 表 ， 而 
是 简洁 地 用 一 个 公式 来 表达 。 在 这 个 定义 中 ，a，B，y 
是 参数 ， 它 们 可 调整 以 适合 所 要 求 的 隶属 数据 。 依 赖 
于 所 给 定 的 隶属 数据 ， 我 们 可 给 出 某 些 a，B，y 值 精 
确 地 适合 这 些 数据 ， 或 只 是 近似 地 适合 。 当 然 隶 属 函 
数 可 以 简单 地 定义 为 S- 函 数 ， 而 不 必 参 照 任 何 表格 值 。 
其 他 函数 ， 如 三 角 函 数 ， 也 可 以 根据 应 用 需要 来 定义 。 图 5.9 Se 

S 函数 在 x<<a 时 ， 值 为 0, 在 x 之 Y 时 ， 值 为 1， 在 这 两 种 情况 下 ， 其 曲线 都 是 水 平 的 。 在 a 和 
ZI, PONE x 的 二 次 函数 。 从 图 5.9 可 见 ，B 参数 对 应 着 交叉 点 0.5， 且 其 值 为 (aty) 2. HH 
5.8“ 高 ”隶属 函数 ，S 函数 如 下 : 

0 for x=5 


2(¥ 一 J _ (x5) 
2 


7 一 5/ 








for 5=x <6 
(1) s(x; 5, 6, 7) = 





for 6=x<7 
1 for x27 
模糊 命题 “X 近似 于 yY” 的 隶属 函数 如 图 5.10 所 示 。 该 隶属 函数 可 以 表达 所 有 近似 于 某 个 特定 值 
7 的 数 ， 如 “X 近 似 于 6”， 这 里 ，X 可 定义 为 15.9，6，6.11。 隶 属 函 数 可 表示 为 











UcLose™) 
x= yi 


如 图 5.10 所 示 ， 在 交叉 点 ， 参 数 8 的 值 为 曲线 宽度 的 一 
Æ (half-width)。B 较 大 的 值 对 应 较 宽 的 曲线 ， 较 小 的 值 对 应 : 
较 罕 的 曲线 。 较 大 的 B 意 味 着 数值 必须 更 接近 于 y 才能 有 一 Y-B y y+B 


0.5 /二 \ 


x 





个 特别 大 的 隶属 值 。 注 意 在 这 种 定义 中 ,隶属 函数 只 有 在 无 ”图 5.10 模糊 命题 “X 近 似 于 六 的 
穷 远 处 才 趋 近 于 0。 一 个 隶属 函数 


下 述 函 数 也 给 出 了 一 个 类 似 的 曲线 并 且 在 特定 点 处 为 0: 
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S(x; y-B. y-B/2, y) for xs y 
Tix; B y = 
1- S(x; y, Y+B/2, y+B) for x>y 


HILAK (I-function) 的 图 形 如 图 5.11 所 示 。 注 意 ， 此 时 8 参数 在 交叉 点 是 带宽 (bandwidth) 或 整 
个 宽度 (total width)。 在 点 








x= ytB ge PO : 
处 ,IT 函数 值 为 0， 交 叉 点 位 于 
x=yt £ °= o) 
处 。 ,| ; : x 
除了 连续 函数 外 ,隶属 函数 也 可 以 是 一 个 有 限 的 元 TR y BB 
素 集合 。 例 如 ， 高 度 的 论 域 可 定义 为 : 图 5.11 LR% 


U = (5,5.5,6,6.5,7,7.5,8} 


“高 ”的 一 个 有 限 模糊 子 集 可 定义 为 : 


TALL = {0/5,0.125/5.5,0.5/6,0.875/6.5,1/7,1/7.5,1/8} 


在 这 个 模糊 集合 中 ， 符 号 “/” 用 来 分 隔 隶 属 度 和 相应 高 度 值 。 注 意 “/” 并 不 意味 通常 模糊 集合 
表示 法 中 的 除 。 模 糊 集 中 p(x) >0 的 元 素 组 成 模糊 集 的 支撑 (support) 集 。“ 高 ”的 支撑 集 是 除了 0/5 
外 的 所 有 元 素 。 

N 个 元 素 的 有 限 模糊 子 集 用 标准 的 模糊 表示 法 表示 为 模糊 单子 xx 的 并 ,此 处 的 “+ ”符号 是 布 
尔 连 接 符 并 。 


(2) F = pi/x: + W/X- + 2... Un/ Xx 
N 
F= 5 Ri/xi 
i=l 
N 
F= U Hi/xi 


i 


在 有 些 文章 中 “/” 符 号 并 不 写 出 ,于 是 下 也 可 写 为 : 


(3) F = pix: + eX. + ... hoXs 
N 
F = DY hix 
i=1 
N 
F= U nix 
i=. 


两 个 等 式 (2) (3) 都 表示 了 N 个 元 素 的 有 限 模糊 子 集 。 等 式 3) 可 用 于 紧凑 格式 的 模糊 集合 。 然 而 
当 涉 及 数据 时 ， 等 式 (3) 的 格式 难以 明白 。 如 

F =0.127 +0.385 
没有 “A 分隔 符 ， 难 以 判断 隶属 度 是 0.1，0.3 还 是 0.12，0.38 或 别 的 值 ， 这 就 是 为 什么 当 涉及 数字 
AY, 

F =0.1/27 +0.38/5 
的 表示 法 要 更 好 一 些 。 

模糊 集合 的 支撑 集 F 是 一 个 论 域 X 的 子 集 ， 定 义 为 : 


support(F) = (x | x e X and p(x} > 0} 


支撑 集 通常 简写 为 supp， 如 


supp (F) 
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支撑 集 的 优点 在 于 模糊 集合 下 可 以 被 写 为 : 

F = {hr(x)/x | x e supp(F) } 
这 意味 着 仅 是 那些 隶属 函数 大 于 0 的 模糊 元 素 属 于 下 。 所 以 “高 ”可 以 被 写 为 除了 0/5 元 素 外 的 集合 ， 
因为 这 一 元 素 不 属于 支撑 集 。 

TALL = (0.125/5.5,0.5/6,0.875/6.5,1/7,1/7.5,1/8} 
虽然 这 仅仅 减少 了 一 个 元 素 。 但 它 对 于 含有 许多 0 隶属 度 元 素 的 模糊 集 而 言 ， 作 用 是 明显 的 。 从 另 一 
方面 来 说 ， 你 可 能 对 那些 元 素 含有 0 隶属 度 感 兴趣 。 

与 支撑 集 相 关 的 概念 是 a 截 集 (a-cut)。 集 合 的 a 截 集 是 论 域 的 一 个 非 模 糊 集合 ， 它 的 元 素 具有 大 
于 或 等 于 某 一 值 的 隶属 函数 。 


Fo = {x | prix) 20} for 0 < ws1 
“高 ”的 一 些 a 截 集 : 

TARLLc = { 5.5, 6, 6.5, 7, 7.5, 8 } 
TALL: s = { 6, 6.5, 7, 7.5, 8 } 

TALL: = { 6.5, 7, 7.5, 8 } 

TALL, = { 7, 7.5, 8 } 


注意 一 个 集合 的 a 截 集 是 支撑 集 的 于 集 。a 的 值 可 以 任意 选择 ， 但 通常 选取 那些 可 得 到 所 需 论 域 子 集 
的 值 。 

另 一 个 模糊 集合 常用 的 术语 是 顶点 〈height) ， 它 是 元 素 的 最 大 隶属 度 。 对 “高 ”集合 而 言 ， 最 大 
隶属 度 为 1。 如 果 模 糊 集 合 的 某 个 元 素 达 到 最 大 的 可 能 隶属 度 ， 则 称 该 集合 是 标准 化 的 (normalized) 
通常 隶属 度 定 义 在 闭 区 间 [0, 1] 上， 所 以 最 大 的 可 能 隶属 度 为 1。 但 是 ,隶属 度 也 可 以 定义 在 别 的 
区 间 上 ， 所 以 最 大 隶属 度 并 不 必然 为 1。 

论 域 上 的 一 个 任意 的 连续 (continuum) 模糊 子 集 遂 常 用 积分 形式 表示 。 术 语 连 续 是 针对 实数 集 。 
积分 表示 模糊 集合 单子 K(x) «MF. BION, RTT AEX: 


TALL = | vena beri 
x 
a 

= | 
5 


6 7 a 
~ 5)? ~ 7)2 
= | 和 + [Ee fux 
5 6 7 


其 中 ,使 用 了 S 函数 作为 隶属 函数 。 在 这 个 公式 中 ， 分 隔 积分 的 符号 “+ ”代表 并 ， 是 布尔 逻辑 表示 ， 
而 不 是 算术 加 。 
有 许多 不 同类 型 的 模糊 集合 。 论 域 X 上 的 基本 类 型 1 模糊 子 集 (type 1 fuzzy subset), BMAF: 


ur: X — [0,1] 


即 类 型 1 模糊 子 集 简单 地 定义 为 其 隶属 函数 是 实 闭 区 间 0 到 1 上 的 一 个 数值 。 例 如 ， 


TALL =0.125/5.5 +0.5/6 +0.875/6.5 + 
1/7 + 1/7.5 + 1/8 


是 一 个 类 型 1 的 集合 ， 因 为 其 隶属 度 都 是 [0，1] 上 的 实数 。 同 样式 (1) 中 


Hr (Xx) = S(x; 5, 6, 7) 


也 是 一 个 类 型 1 模糊 子 集 。 
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一 般 ， 类 型 N 模糊 子 集 (type N fuzzy subset) 定义 为 从 论 域 到 类 型 N-1 模糊 子 集 上 关于 m 的 一 个 
映射 。 例 如 ， 一 个 类 型 2 的 模糊 子 集 (type 2 fuzzy subset) 可 以 用 类 型 1 子 集 来 定义 。 对 “高 ”， 一 个 
类 型 2 的 模糊 集合 可 以 是 ， 

lmr(5) = LESS THAN AVERAGE( 低 于 平均 值 ) 

jx(6) = AVERAGE( 平 均 ) 

Hr(7) = GREATER THAN AVERAGE( 高 于 平均 值 ) 


这 里 ， 低 于 平均 值 ， 平 均 ， 高 于 平均 值 都 是 类 型 1 的 模糊 子 集 。 它 们 可 定义 为 如 下 的 模糊 子 集 : 


Uress ran averace (X) = 1 — S{x; 4.5, 5, 5.5) 
Haverase (X) = Nn (x; 1, 5.5) 
= S(x; 5.5, 6, 6.5) 


Vorearer man averace (X) 


模糊 集合 的 操作 


普通 分 明 集 是 一 个 隶属 函数 为 10, 1) 的 模糊 集合 的 特例 。 当 模糊 性 为 0， 模糊 集合 就 是 分 明 集 
时 ， 所 有 模糊 集合 的 定义 、 证 明和 理论 都 应 与 其 相 容 。 这 样 ， 模 糊 集合 理论 才能 较 分 明 集 理论 有 更 为 
广泛 的 应 用 ， 因 而 也 就 可 以 处 理 与 主观 看 法 有 关 的 情形 。 模 糊 集合 的 基本 思想 是 通过 一 模糊 元 素 集合 
来 描述 模糊 的 真实 世界 中 的 概念 ， 比 如 “高 ”， 而 无 须 一 个 极端 的 二 元 阔 值 。 以 下 归纳 了 论 域 X 中 的 
某 些 模糊 集合 操作 。 

。 集合 相等 (set equality) 

A=B 

m(x) = m(x) 对 所 有 xEX 

。 集合 补 (set complement) 

x 

m(x) = 1 -pa(x) ”对 所 有 xEX 
E 5.12 例 示 了 一 个 集合 的 模糊 补 集 。 这 个 定义 的 依据 是 由 10 A’ A 
Bellman 和 Giertz 给 出 的 。 

。 集合 包含 (set containment) 

ACB 
模糊 集合 A 包 含 于 B 或 是 B 的 子 集 ， 当 且 仅 当 0 

tala) Sel) 对 所 有 xEX 图 5.12 模糊 补 集 
模糊 集 A 是 B 的 真子 集 (proper subset) 当 A 是 B 的 子 集 且 
不 相等 。 即 : 

至 少 有 一 个 xEX 使 得 Ma (x) <t (x) Ba (x) <+ (x) 

。 集合 并 (set union) 

AUB 

HUs(X) = V (a(x), Hp(x)) 对 所 有 xEX 
其 中 ， 连 接 运 算 符 (join operator) V 表示 参量 中 最 大 的 。 


。 集合 交 (set intersection) 


0.5 


ANB 
Inna(x) = A (a(x), M(x) 对 所 有 xEX 
其 中 ， 相 交 运 算 符 (meet operator) 人 表示 参量 中 最 小 的 。 
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在 第 4.13 节 讨 论 模糊 逻辑 在 PROSPECTOR 的 组 合 前 件 中 的 应 用 时 ， 你 已 遇 到 过 并 和 交 运 算 。 
Bellman 给 出 了 使 用 最 大 、 最 小 函数 求解 并 和 交 的 理由 。 

有 了 这 些 定义 ， 可 知 分 明 集 的 一 些 定律 如 交换 律 、 结 合 律 等 同样 适合 于 模糊 集合 ， 但 排 中 律 和 予 
盾 律 除外 。 于 是 ， 对 模糊 集合 A， 可 能 有 : 

AUA +U andAna’ to 


其 中 外表 示 空 集 ， 久 表示 论 域 。 由 于 模糊 集 可 没有 定义 域 ， 因 此 ， 如 果 e (x) 定义 在 闭 区 间 [0, 1] 
E, Hea (x) = 1 一 所 (x)， 则 对 交集 的 唯一 约束 是 : 


AOA’ = min(ya(xX), Ya (X)) £0.5 
同样 ， 对 并 集 的 唯一 约束 是 : 
A U A’ = max(pa(x), hx (x}) 2 0.5 


由 于 模糊 集合 A 和 A' 可 重合 ， 所 以 它们 不 是 完全 覆盖 论 域 的 。 
如 果 排 中 律 和 矛盾 律 被 定义 为 适合 模糊 集合 ， 那 么 寡 等 律 和 分 配 律 将 不 再 成 立 。 对 寡 等 律 ， 即 是 : 
AUA#A ANA#A 
由 于 集合 的 模糊 性 ， 所 以 排 中 律 和 矛盾 律 不 成 立 的 观点 似乎 更 为 合理 ， 因 此 宕 等 律 是 成 立 的 。 附 录 C 
中 列 出 有 用 的 集合 属性 。 
。 集合 积 (set product) 


AB 

Uas (xX) = Ya (X) He (x) 

。 集合 的 寡 (power of a set) 

a 

pa (x) = (a (2x) )™ 

。 概率 和 (probabilistic sum) 

和 及 4 B 

Hasa(X)= ha(X) + ha(X) 一 pa(X)hs {xX) 
=1 一 (1 一 hx))(L — ps(x)) 


其 中 ,“+” 和 “一 ”是 普通 算术 运算 符 。 
。 AFA (bounded sum) 或 凸 并 (bold union) 


A@®B 


aes (x) = A(1, (Wa(x) + pa(x))) 

其 中 ,“A 人 ”是 求 最 小 值 函数 ,“+ ”是 算术 运算 符 。 
。 有 界 积 (bounded product) 或 凸 交 (bold intersection) 
AOB 


Paoa (x) = V(0, (pa(x) + w(x) 一 1)) 
其 中 ,“V” 是 求 最 大 值 函数 ,“+ ”是 算术 运算 符 。 有 界 和 与 积 不 满足 寡 等 律 、 分 配 律 和 吸收 律 ， 但 
满足 交换 律 、 结 合 律 、 德 :摩根 律 ，ADU = U，AGOO=O， 以 及 排 中 律 、 矛 盾 律 〈 见 附录 C 的 总 结 )。 

。 有 界 差 (bounded difference) 

A |-| B 

ha -ia(x) = VCO, (pa(x) — ha(x))) 

其 中 , OMY, Amb O” BERRADA, Al- jB 代 表 那 些 A 中 有 而 了 中 无 的 元 素 ， 补 集 可 
以 用 论 域 和 有 界 差 表示 为 : 

A = Wl-|a 
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。 集 中 (concentration) 
CON (A) 


Ucosan (x) = (pha (x) ) 2 
OON 运算 通过 减 小 那些 隶属 度 较 小 的 元 素 的 隶属 度 来 集中 模糊 
元 素 。 图 5.13 例 示 了 集中 运算 。 它 和 后 面 的 DIL、NORM 以 及 
INT 运算 在 通常 的 集合 运算 中 都 没有 相应 的 运算 。 集 中 运算 符 
可 被 粗略 地 理解 为 语言 上 的 Very ， 即 是 说 ， 对 模糊 集 下 ， 有 

Very F =F 
例如 ,“ 高 ”集合 

TALL =0.125/5 +0.5/6 +0.875/6.5 + 1/7 + 1/7.5 + 1/8 
那么 


Very TALL =0.016/5 +0.25/6 +0.76/6.5 + 
1/7 + 1/7.5 + 1/8 


0.5 








图 $.13 模糊 集合 的 集中 


注意 ， 除 了 隶属 度 为 1 的 元 素 外 ， 其 他 隶属 度 是 如 何 减 小 的 ， 其 直接 影响 就 是 ， 使 Very TALL 模糊 集 


合 包 含 更 小 的 隶属 度 。 
。 扩张 (dilation) 


DIL{A) 


Hona (x) = (pa(x)) 
DIL 运算 通过 增 大 那些 隶属 度 较 小 元 素 的 隶属 度 来 扩张 模糊 元 
素 。 图 5.14 例 示 了 DIL 运算 。 注 意 ， 由 于 选择 了 2 次 方 和 0.5 
次 方 ， 它 是 集中 运算 的 逆 运 算 。 

A = DIL(CON(A)) = CON(DIL(A)) 
扩张 运算 符 可 粗略 地 类 似 语言 上 的 修饰 词 More Or Less。 因 此 
对 任何 模糊 集合 下， 有 

More Or Less F = F°" = DIL(F) 

。 强化 (intensification) 


INT (A) 


| 2(ua(x))? 
HINTA) (x) = 


1— 2(1 — pa(x))? for 0.5 = p(x) =1 


for 0 =p,(x) $0.5 


INT 运 算 好 比 一 幅 图 的 对 比 度 增 加 。 如 图 5.15 所 示 ， 强 化 运 
算 增 大 了 那些 交叉 点 以 内 的 隶属 度 并 减 小 了 那些 交叉 点 以 外 的 
隶属 度 。 作 为 电子 学 上 的 一 个 分 析 ， 考 虑 交点 作为 定义 信和 号 的 
带宽 ， 强 化 运算 放大 了 带宽 内 的 信号 并 减 小 了 带宽 外 的 “ 噪 
音 "。 因 此 ， 强 化 运算 提高 了 交叉 点 内 外 隶属 度 的 对 比 。 

。 标准 化 《normalization) 


NORM (A) 


Usora (X) = Ha (x) /max {ha (x) } 





、 ---DIL(A) 
\—A 


0.5 


图 5.14 模糊 集合 的 扩张 


0.5 








图 5.15 模糊 集合 的 强化 


HH, max O 返回 所 有 元 素 x 的 隶属 度 的 最 大 值 。 如 果 最 大 值 <1， 那 么 所 有 的 隶属 度 都 会 增加 ， 如 


果 max = 1, 那么 隶属 度 不 变 。 
模糊 关系 


关系 (relation) 也 是 描述 模糊 集合 的 一 个 重要 概念 。 关 系 的 直观 意义 是 指 元 素 之 间 的 菜 些 联系 。 
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下 面 是 关系 的 一 些 例子 : 
Bob # Ellis 7X 。 
洛杉矶 和 纽约 Riz 。 
1,23 HI 4 E 10 pE 
1,2 Å 3 EAA R 
苹果 和 桔子 是 一 种 AER 。 
其 中 斜体 字 为 模糊 词 。 
分 明 集 N 的 笛 卡 儿 积 〈Cartesian product) 定义 为 这 样 的 分 明 集 ， 它 的 每 个 元 素 都 是 一 个 有 序 N 元 
组 (x x, x XN), PBT x; 均 是 分 明 集 X 的 一 个 元 素 。 对 于 两 个 集合 A 和 B， 有 
AxB= {(a,b) |aeA H be B} 
定义 
A = (HJ, RE! 
B= | 馅 饼 , 牛 奶 ,糖果 | 
BRA BILE 


AXB = 1( 巧 克 力 , 馅 饼 ) ,( 巧 克 力 ,牛奶 ),( 巧 克 力 ,糖果 )， 
(草莓 EGE), (草莓 ,牛奶 ) (草莓 ,糖果 )| 

注意 ， 当 A 和 B 有 不 同 元素 时 ,一 般 BX A 不 等 于 AxB， 即 是 说 , 一 般 (a, b) Æ (b, a), 称 AxB 
定义 了 一 个 二 元 变量 (binary variable) (a, b)o 

关系 尺 是 笛 卡 儿 积 的 一 个 子 集 。 例 如 ， 关 系 R= “包含 馅 饼 ” 可 定义 为 AXB 的 子 集 : 

R= 上 (巧克力 , 馅 饼 ), (Se, AGF) 
而 关系 及 = “包含 甜品 ”可 定义 为 : 

R= 半 (巧克力 , 馅 饼 ),( 巧 克 力 ,糖果 ) ,( 草 花 , 馅 饼 ) CE BAR) | 
关系 有 时 也 称 为 映射 (mapping) ， 因 为 它 联系 了 一 个 域 和 另 一 个 域 的 元 素 。 在 AxB 中 ,关系 是 一 个 A 
一 B 的 上 映射， 这 里 “->” 表 示 映 射 。A 中 的 巧克力 映射 或 联系 B 中 的 馅 饼 和 糖果 ， 对 草莓 也 是 同样 。 

WRX AY BM, 那么 


R = { pe(x,y)/(x,y) | (x,y) © X x ¥} 


是 XxY 上 的 一 个 模糊 关系 。 

模糊 关系 〈fuzzy relation〉 实 际 上 是 第 卡 儿 积 论 域 上 的 一 个 模糊 子 集 。 当 处 理 模糊 图 像 时 ， 模 糊 集 
的 另 一 个 定义 很 有 用 。 

N 个 集合 的 模糊 关系 定义 为 包括 隶属 度 的 分 明 关 系 的 一 个 扩展 ， 即 


R = {ur(Xi;, X2, .Xe)/ (Xl X21 .Xs) 
| xi € Xi, i= 1, .. N)} 


它 将 隶属 度 与 每 个 N- 元 组 联系 起 来 。 对 于 馅 饼 例子 的 二 元 关系 ， 另 一 个 定义 为 : 
R= 10.9 人 (巧克力 AAG) ,0.2/ HR IBF) 


这 个 模糊 关系 表明 了 一 个 人 喜欢 巧克力 馅 饼 更 甚 于 草莓 馅 饼 。 
表示 一 个 关系 的 方便 方法 是 通过 和 矩阵， 对 于 “包含 甜品 ”关系 


‘apt ”糖果 
Zanjo 0.7) 
“ewe [102 oj 


这 里 Mae 是 表示 模糊 关系 的 矩阵 。 注 意 ， 对 于 分 明 集 ，MR 由 只 包含 0 和 1 表示 你 完全 喜欢 和 不 喜 
欢 有 序 组 (调味 品 ， 甜 品 ) (这 大 概 就 是 现实 世界 是 真正 模糊 而 不 是 分 明 的 最 好 证 明 )。 
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KARAM (composition) 是 一 个 关系 应 用 于 另 一 个 关系 的 直接 结果 ， 如 两 个 二 元 关系 P 和 Q, È 
们 的 关系 合成 是 二 元 关系 R， 

R(A,C) = Q(A,B) o P{B,C) 
这 里 

R(A,C) 是 A,C 之 间 的 关系 ， 

Q(A,B) 是 A.B 间 的 关系 ， 

P(B,C) 是 B.C 间 的 关系 ， 


A.B.C 是 集合 ， 
“o” 是 合成 运算 符 (composition operator), KK R 就 是 首先 应 用 关系 P， 然 后 再 应 用 关系 Q。 用 素 
属 度 表 示 即 是 ; 
R = {us(a,c)/(a,c) | ae A, cec} 
这 里 PR 定义 如 下 : 
malac) = YIhsta'b)Abstb,c)] 
PEe B 


= max [min (pel(a,b),pe(b,c})] 
besB 


这 种 合成 关系 通常 用 最 大 -最 小 矩阵 积 (max-min matrix product) 或 简单 地 称 为 最 大 -最 小 (max- 
min) 来 定义 ， 即 把 矩阵 乘法 运算 中 的 加 法 和 乘法 换 为 最 大 和 最 小 函数 。 例 如 ， 定 义 


-| -| 
R= 10.3 0.4 1o.2 0.0 0.4 


则 合成 关系 R 为 


[3 | [o 0.3 o-s] 
R=QoP = o 
0.3 0.4 0.2 0.0 0.4 


max (0.1,0.2) max(0.1,0.0) max(0.1,0.2) 
max (0.1,0.2) max(0.3,0.0) max(0.3,0.4) 


0.2 0.1 0.2 
-| 0.3 0 | 
其 他 一 些 常 用 的 关系 运算 符 定义 还 有 最 大 积 (max-product) 和 关系 连接 (relational join). 
模糊 关系 对 于 近似 推理 有 着 重要 作用 ， 这 一 点 将 在 后 面 看 到 。 投 影 (projection) 关系 是 另 一 个 有 
用 的 模糊 集合 概念 ， 基 本 上 ， 投 影 可 消去 指定 的 元 素 。 在 给 出 形式 定义 前 ， 让 我 们 先 看 一 下 表 5.10 的 
简单 例子 。 
表 5.10 给 出 了 前 面 关系 R 的 投影 ， 表 5.10 关系 及 其 投影 
为 方便 起 见 ， 这 里 行 和 列 给 出 了 标记 符 
a, 和 ye 注意 ， 标 记 为 第 一 投影 的 列 中 
包含 了 每 行 中 的 最 大 隶属 度 。 同 样 , 标 。 02 03 04 Od 
记 为 第 二 投影 的 行 中 包含 了 每 列 中 的 最 第 二 投影 0.2 0.3 0.4 
大 隶属 度 。 右 下 方 标记 为 总 投影 处 的 值 
0.4 是 整个 关系 的 最 大 隶属 度 。 
关系 及 可 用 x; My 表示 成 下 式 : 


R =0.2/x:,y: +0.1/x:,y2 +0.2/xXi,y3 + 
0.2/X2, Yı +0.3/x%2,y2 +0.4/X2, Y; 


-oos-| 





第 一 投影 用 Ri 表示 ， 它 可 通过 去 掉 笛 卡 儿 对 x y 中 除 第 一 个 外 的 所 有 元 素 而 获得 ， 这 里 ， 最 左 
的 元 素 定 义 为 第 一 个 元 素 。 
Ri =0.2/xl +0.1/x, +0.2/x1 +0.2/x2 +0.3/x2 +0.47x2 


R 等 式 在 投影 后 可 更 进一步 化 简 ， 因 为 “+ ”代表 并 运算 符 ， 因 此 只 有 最 大 的 模糊 元 素 被 保留 下 来 。 
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R, =0.2/xX1 + 0.4/x2 

同样 ， 第 二 投影 仅 包含 每 一 笛 卡 儿 对 的 第 2 点 yo 

R2 =0.2/yı +0.1/y2 +0.2/y3 +0.2/yı +0.3/y2 +0.4/y3 
该 式 通 过 并 运算 可 简化 为 下 式 : 

R, =0.2/y: +0.3/y2 +0.4/y3 

一 般 情况 下 ,包含 N 个 笛 卡 儿 点 的 关系 的 投影 ， 将 去 掉 除 那些 要 投影 的 点 以 外 的 所 有 成 分 。 例 
如 ， 如 果 关 系 有 N A, BA Ria6 将 删 去 除 第 1、 第 3 和 第 6 点 以 外 的 所 有 点 。 

对 一 个 在 论 域 XxY 上 的 关系 ， 


R = ipa(x, y)/(x, y)! 对 所 有 (x,y)EXXY 
第 一 投影 定义 为 : 

proj(R;X) = Ri 
其 中 ， 


R. = {max Ha(X/yY)/x | (x,y) € XXY} 
y 


EX y 求 最 大 值 。 同 样 ， 
proj(R;¥) = Rz 
其 中 


R: = {max (x, y)/y | (x,y) € Xx Y} 
x 


这 里 ， 是 对 r 求 最 大 值 。 
投影 关系 的 圆柱 扩展 (cylindrical extension) 定义 为 与 投影 相 容 的 最 大 模糊 关系 。 圆 柱 投影 有 点 类 
似 于 投影 ， 因 为 它 将 投影 值 (最大) 扩展 到 对 所 有 其 他 元 素 ， 例 如 


proj(R;X) = Ri =0.2/xı +0.4/x: 


于 是 


R1 =0.2/xi,yl +0.2/X1, Y2 +0.2/%:,Y¥3 
+0.4/x2,y1 +0.4/X2, yz + 0.4/X2,Y3 


Rz =0.2/yi,X%1 +0.2/yi,xX2 +0.3/y2,%1 
+0.3/y2,%1 +0.3/y2,X2 
+0.4/y3,X1 +0.4/Y3, X2 


也 即 ， 代 换 第 二 个 变量 ， 变 为 0.2/xi ，{ 所 有 变量 | +0.4|x。，| 所 有 变量 | 。 由 于 投影 给 出 了 map, H 
以 圆柱 扩展 是 与 投影 相 容 的 最 大 关系 。 
对 于 前 面 的 例子 ， 


一 | 0.2 al 


R = 

0.4 0.4 0.4 
一 [o2 0.3 0.4 
R, = + 

0.2 0.3 0.4 


这 里 投影 上 面 的 横 线 表示 是 投影 的 圆柱 扩展 。 

合成 可 用 投影 和 圆柱 扩展 来 定义 。 对 于 一 个 定义 在 论 域 %1 XU. 上 的 二 元 关系 R 以 及 定义 在 Ca x 
Us FAS, HARA: 

R o S = proj (R A S; U, ¥ U) 
语言 变量 


模糊 集合 的 一 个 重要 应 用 是 计算 语言 学 (computational linguistics), A 的 是 对 自然 语言 的 语句 进行 
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计算 ， 就 像 对 逻辑 语句 进行 逻辑 运算 一 样 。 模 糊 集 合 和 语言 变量 (linguistic variable) 可 用 于 量化 自然 
语言 的 含义 ， 因 而 可 用 来 处 理 指 定 了 值 的 语言 变量 ， 这 些 指 定 值 表示 了 自然 语言 或 人 工 语言 中 的 单词 、 
短语 或 句子 。 表 5.11 列举 了 一 些 语言 变量 和 可 赋予 它们 的 上 典型 值 。 
虽然 可 为 语言 变量 定义 一 个 值 ， 如 红色 ， 但 它们 本 质 上 是 非常 主观 的 。 例如， 眼睛 可 分 辨 的 红色 对 应 
一 个 频率 范围 ， 而 不 仅仅 只 是 一 个 频率 。 另 外 ， 如 蓝 绿 色 ， 它 到 底 是 蓝 色 还 是 绿色 ? 
语言 变量 常常 用 于 启发 式 规则 。 但 是 ， 正 如 表 5.12 前 两 条 规则 所 示 ， 这 些 变量 可 能 是 隐 含 的 。 
表 5.12 一 些 启发 式 规则 ， 其 中 





表 5.11 典型 值 某 些 含有 隐 含 语言 变量 

语言 变量 典型 值 如 果 声 音 太 低 ,那么 调 大 音量 

高 度 矮小 的 , 短 的 一般 的 .高 的 .巨大 的 

0 果 太 热 , 那 么 加 点 凉 

数量 几乎 无 . 几 个 少数 .许多 RAR ARAM EER 

生命 历程 ” 婴儿 .初学 走路 的 孩子 .小 孩 .青少年 .成 人 如 果 压 力 太 高 ,那么 打开 安全 立 

颜色 AE KERERE HE 如 果 利 率 上 升 ver 

亮度 微 暗 的 . 弱 的 .正常 的 .明亮 的 .强烈 的 

甜品 te OF TERE VM ,阿拉 斯 加 面包 如 果 利 率 下 降 ,那么 买 股票 


头 两 条 规则 含有 的 隐 含 语言 变量 是 图 像 质量 和 水 温 。 
某 些 语言 变量 如 图 像 质 量 可 以 是 二 阶 模糊 集合 。 例 如 ， 图 像 质量 的 值 可 以 是 : 
颜色 , 色 度 ,亮度 ,噪音 ,浓度 
这 里 面 的 每 一 个 值 都 可 以 是 一 个 语言 变量 ， 且 其 值 又 是 一 个 模糊 集合 。 因 此 ， 可 为 语言 变量 安排 一 个 
层次 ， 它 对 应 着 模糊 集合 的 阶 ， 最 终 直 到 一 阶 模糊 集合 ， 如 “高 ”和 “ 亮 "， 它 们 定义 为 闭 区 间 [0, 1] 
上 的 一 个 映射 ， 从 而 语言 变量 的 值 就 成 为 一 个 数字 范围 。 
语言 变量 L 的 项 集 (term-set)，T (L)， 是 一 个 其 可 能 的 值 集 ， 例 如 : 
T( 馅 饼 ) = 巧克力 + 苹果 + 草莓 + 胡桃 
工 〈 馅 饼 ) 中 的 每 一 个 名 字 都 是 一 个 模糊 集 的 名 称 。 它 们 可 能 是 其 他 子 集 的 并 集 ， 例 如 : 
巧克力 = 半 甜 巧克力 + 牛奶 巧克力 + 荷兰 巧克力 + 黑 巧克力 te 
巧克力 模糊 集合 的 另 一 个 定义 可 包含 限定 词 (hedge)， 用 以 修改 集合 的 意义 。 例 如 ， 一 种 巧克力 的 模 
糊 集 可 定义 为 : 
巧克力 = Very 巧克力 + Very Very 巧克力 + More Or Less 巧克力 + 
Slightly 巧克力 + Plus 巧克力 + Not Very 巧克力 + 
标准 限定 词 可 用 某 些 模 糊 集合 运算 符 和 模糊 集合 下 来 定义 ， 如 表 5.13 所 示 。 
表 5.13 一 些 语言 限定 词 和 算 子 





R 定 iW 算 子 定义 
Very F CON(F) = F 
More Or Less F DIL(F) = F5 
Plus F FI.25 
Not 下 1-F 
Not Very F 1 - CON(F) 
Slightly F INT[NORM (PLUS F And NOT (VERY F)) ] 


正如 上 面 的 Not Very F 限定 词 ， 其 他 一 些 复 合 限定 词 也 可 通过 组 合 运算 符 来 形成 。 注 意 ,在 Slightly 限 
定 词 中 的 “And” 是 模糊 集运 算 符 交 ， 介 ， 它 的 运算 对 象 是 Plus F Al Not (Very F)。 
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语言 变量 Appetite (胃口 ) 的 层次 如 图 5.16 所 示 。 假 定 LIGTH (4%) M HEAVY (E) 模糊 集合 
是 S- 函 数 ， 而 MODERATE (中 等 ) 集合 为 -函数 。 

注意 LIGHT 与 MODERATE 其 至 LIGHT 与 HEAVY 之 间 有 重合 ， 在 经 典 的 分 明 集中 是 不 会 有 重 
合 的 ， 因 为 这 些 集合 都 不 会 相交 ， 即 LIGHT 不 可 能 是 MODERATE 或 HEAVY。 然 而 ， 模 糊 集合 间 通 
常 无 明显 界限 〈 除 非 定义 )。 

限定 集合 用 在 模糊 集合 边界 内 的 虚线 显示 。 限 定 词 Very 作为 语言 变量 的 一 个 修饰 词 使 用 ， 从 而 得 
到 模糊 集合 Very LIGHT, Very MODERATE 和 Very HEAVY. 


aa 语言 变量 





0 1000 2000 3000 
每 天 摄 人 热量 (F) 


图 5.16 语言 变 重 “胃口 ”及 其 值 


一 个 语言 变量 必须 要 有 合法 的 语法 和 语义 ， 这 可 通过 模糊 集合 或 规则 来 说 明 。 语 法 规则 (syntactic 
rule) EXT T (L) 中 的 一 个 合式 表达 式 。 例 如 ， 项 集 


T(Age) = {OLD, Very OLD, Very Very OLD, ...} 
可 由 下 面 的 规则 产生 ， 


T? = {OLD} U {very T} 


例如 ， 

T= GZ( 空 集 ) 

T= {OLD} 

T= {OLD, Very OLD} 

T= {OLD, Very OLD, Very Very OLD} 
T (L) 中 的 语义 规则 (semantic rule) 通过 模糊 集合 定义 了 工 中 项 L HEX (meaning). PA, Very 
OLD 的 语义 规则 可 定义 为 : 

Very OLD = bao 
这 里 ， 隶 属 函 数 可 定义 为 如 下 的 S- wR: 

Bere (X) = S(x; 60, 70, 80) 

基本 项 (primary term) 是 这 样 的 一 些 项 ， 如 YOUNG (年 轻 )、OLD (FÆ), CHOCOLATE (4 
克 力 )、STRAWBERRY (草莓 ) 等 ， 其 含义 必须 先 于 限定 词 定义 ， 限 定 词 修改 了 基本 术语 的 意义 并 得 
到 一 个 项 集 的 另外 项 ， 如 Very YOUNG, Very OLD, Very CHOCOLATE, Slightly CHOCOLATE 等 , 限 
定 模糊 集合 的 含义 可 由 适当 的 算 子 给 出 。 例 如 : 
Puery CHOCOLATE = D2nocorare 


Uyo: csocoLarg = 1 ~ Werocorare 


= yo-5 
yore or Less CHOCOLATE MeocoLATE 


Byot very cHocorare = 1 very CHOCOLATE 


正如 传统 的 语法 可 定义 为 BNF 范式 一 样 (参见 第 2.2 小 节 )， 模 糊 语 法 (fuzzy grammar) 也 可 如 
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此 , 实际 上 , 第 2.2 节 中 的 语法 使 用 了 “heavy” 这 个 修饰 词 : 

CH Bil] > > heavy 
从 而 生成 一 个 模糊 产生 式 (fuzzy production) : 

an eater was the heavy man 

在 上 述 产生 式 中 ，heavy 是 模糊 集合 man 的 限定 词 。 也 许 你 不 认为 man 是 一 个 模糊 集 ， 可 是 ，boy 
是 怎么 成 为 man 的 呢 ? 在 某 些 文化 观念 中 ，12 岁 或 经 过 宗教 仪式 后 ，boy 就 成 为 man， 一 些 国家 认为 
18 岁 或 21 岁 后 boy 才 成 为 man。 对 于 17 一 19 岁 的 人 ， 报 刊 倾向 于 将 被 控 犯 了 罪 的 人 定义 为 man, m 
做 了 一 些 值得 赞赏 的 事 的 人 定义 为 youth。 军 队 中 的 男性 有 时 被 认为 是 bby， 有 时 被 认为 是 ma, ÈR 
是 在 政治 演说 中 : 

模糊 语法 可 通过 在 BNF 中 增加 非 终止 符 详 细 说 明 ， 例 如 : 

《范围 短语 ) ; : =《 被 限定 的 基本 项 ?TO 


《被 限定 的 基本 项 》 
《被 限定 的 基本 项 ):: = (PR) GEAR | (ERG) 
《限定 词 ):: = Very |More Or Less |A Little 
(基本 项 );: = SHORT|MEDIUM|TALL 


由 上 ， 可 产生 以 下 语句 : 


Very SHORT TO Very TALL 
A Little TALL TO Very SHORT 
More Or Less MEDIUM TO TALL 


语言 变量 概念 的 一 个 新 奇 应 用 是 由 东京 工学 院 Sugeno 制造 的 模糊 车 。 该 车 使 用 一 个 基于 模糊 逻辑 
的 控制 系统 ， 可 在 惩 形 的 轨道 上 自动 操作 。 它 可 停泊 在 一 个 指定 地 方 ， 且 可 从 其 他 案例 中 学 习 。 在 控 
制 车 移动 的 规则 中 使 用 了 语言 变量 。 此 外 ， 还 有 其 他 许多 种 类 的 模糊 逻辑 控制 系统 ， 它 们 可 控制 设备 
及 工业 生产 过 程 ， 如 生产 水 泥 的 于 燥 炉 。 


扩张 原理 


扩张 原理 (extension principle) 是 模糊 理论 中 非常 重要 的 概念 ， 它 描 述 了 如 何 从 一 个 给 定 的 分 明 函 
数 域 扩 展 到 包含 模糊 集 。 运 用 此 原理 ,任何 一 个 数学 、 自 然 科 学 、 工 程 、 商 业 等 领域 的 普通 或 分 明 函 
数 都 可 以 扩展 到 模糊 集 上 ， 它 使 模糊 集合 可 应 用 到 所 有 领域 。 

设 f 是 一 个 普通 的 ， 从 论 域 X 映 射 到 Y 的 函数 ， 如 果 下 是 XX 的 一 个 如 下 模糊 子 集 ， 


F = fos (x) /x 


x 


那么 扩张 原理 定义 了 映射 函数 f (zx) 下 模糊 集合 下 的 映像 : 


£(F) = |r (x)/£ (x) 


fA, WF (z) 为 一 个 求 平方 的 分 明 函 数 : 
f(x) = x 


扩张 原理 描述 了 如 何 实现 一 个 模糊 集合 的 平方 函数 ; 


f(F) = Jos (x) = [i o 


x x 


pilin, LIM X, 为 实 闭 区 间 [0，1000]， 模 糊 集 合 


F =0.3/15 +0.8/20 + 1/30 


则 扩张 原理 定义 F (F) A: 
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FIF) = fur (x )/E (x) 


x 
=0.3/£(15) +0.8/£(20) + 1/£(30) 


E(F) =0.3/225 +0.8/400 + 1/900 


模糊 逻辑 

正如 经 典 逻 辑 组 成 了 传统 专家 系统 的 基础 一 样 ， 模 糊 逻 辑 组 成 了 模糊 专家 系统 的 基础 ， 除 了 能 处 
理 不 确定 性 外 ， 模 糊 专家 系统 还 能 模拟 常识 推理 (commonsense reasoning)， 这 是 传统 专家 系统 很 难 做 
到 的 。 但 是 常识 推理 的 问题 是 大 量 本 体 信 息 会 被 我 们 认为 是 理所当然 的 。 

经 典 逻 辑 的 根本 缺陷 在 于 二 值 一 一 真 、 假 的 严格 限制 。 正 如 我 们 在 第 2 章 和 第 3 章 中 所 讨论 的 ， 
这 有 利 也 有 弊 。 主 要 优点 在 于 基于 二 值 逻 辑 的 系统 易于 演绎 建 模 ， 从 而 使 得 推理 是 精确 的 。 而 主要 缺 
点 在 于 现实 世界 中 很 少 东 西 是 真正 二 值 的 。 现 实 世 界 是 模拟 而 不 是 数字 世界 。 

从 亚 里 士 多 德 时 代 起 就 已 知道 二 值 逻辑 的 缺陷 。 虽 然 亚 里 士 多 德 首先 建立 了 演绎 推理 规则 和 排 中 
律 ,但 他 认识 到 关于 未 来 的 命题 在 其 发 生 之 前 不 是 实际 真 或 假 的 。 

许多 不 同 的 多 值 逻辑 理论 已 经 建立 起 来 ,包括 Lukasiewicz、Bochvar、Kleene、Heyting、Reichen- 
bach 等 逻辑 ， 其 中 常用 的 是 那些 基于 三 值 TRUE、FALSE、UNKNOWN 的 逻辑 。 这 些 三 价 (trivalent) 
或 三 值 逻 辑 (three-valued logic) HHA 1, 0, 1/2 来 分 别 表示 TRUE, FALSE, UNKNOWN. 

几 种 关于 N 值 的 一 般 逻 辑 理论 也 已 发 展 起 来 ， 这 里 N 为 一 个 大 于 等 于 2 的 任意 整数 。Lukasiewicz 
在 20 世纪 30 FRAKES BTN. ENA, RAE T 假定 在 闭 区 间 10，1] 中 等 
分 ， 即 


i 
m= {ts} toro si<n 


N-1 
例如 ， 


T2 = (0, 1} T; = (0, 1/2, 1} 


N EEH, EB N 之 2 的 某 些 Lukasiewicz 逻辑 运算 符 (Lukasiewicz logic operator) 的 定义 见 表 5.14。 正 
如 习题 5.13 所 示 ， 当 N=2 时 ， 它 们 退化 成 标准 逻辑 。 注 意 ，- 、min、max 运算 符 与 模糊 逻辑 中 的 


一 样 。 表 5.14 Lukasiewicz ÉR H 
N- 值 Lukasiewicz 逻辑 或 上- 逻辑 (Llogic)， 记 作 LN， 这 基本 运算 符 

里 N 是 其 真 值 的 个 数 。L 就 是 经 典 的 二 值 逻 辑 ， 当 N = oo， 

Lic T FEB EGE (infinite-valued logic), RAHE To * hy ney) 

EEA BRL, RIEGEL LEER E. xVy  =max(x,y) 

术语 无 穷 值 逻辑 常常 指 真 值 定义 在 实数 集 [0，1] 上 的 逻 x>y  Smin(i,l+y-x) 

辑 ， 并 记 为 Lj。 


但 是 ，L 并 不 等 同 于 N = 1 9 (GSB (unary logic), HF 工 - 逻 辑 只 定义 在 N 之 2 上， 所 以 单 值 
逻辑 根本 就 不 是 L- 逻 辑 。L 中 的 1 实际 上 是 六 !( 读 作 aleph 1) 的 缩写 ， 它 是 实 基数 。X, 不 是 一 个 有 
限 数 ， 而 是 一 个 超 限 数 (transfinite number)。 该 理论 是 Cantor 为 无 限 数 计算 而 首先 引进 的 。Cantor 还 
定义 了 不 同 的 无 穷 阶 。 例 如 ， 最 小 的 超 限 数 为 No， 它 是 自然 数 的 基数 。Xi 的 无 穷 阶 比 No 高 ， 因 为 对 
每 一 个 自然 数 ， 都 有 无 穷 多 个 实数 与 之 对 应 。 

模糊 逻辑 可 看 作 多 值 逻 辑 的 扩展 。 但 是 ， 模 糊 逻 辑 的 目的 和 应 用 不 同 ， 因 为 模糊 逻辑 是 近似 推理 
(approximate reasoning) ， 而 不 是 精确 的 多 值 推理 。 本 质 上 ,近似 或 模糊 推理 (fuzzy reasoning) 是 在 一 
组 可 能 不 精确 的 前 件 下 推出 的 一 个 可 能 不 精确 的 结论 。 人 们 非常 熟悉 近似 推理 ， 因 为 它 是 现实 生活 中 
最 常用 的 推理 ， 也 是 许多 启发 式 规则 的 基础 。 下 面 是 一 些 近似 推理 的 启发 式 规则 例子 : 





不 精确 推理 199 





如 果 电 视 声 音 太 小 

则 增加 一 点 儿 音量 

如 果 电 视 声音 太 大 引起 邻居 抱怨 
则 将 音量 调 小 一 点 儿 

如 果 交 通 拥堵 

则 开始 大 量 开辟 车 道 


如 果 你 由 于 吃香 药片 . 馅 饼 ,冰激凌 .蛋糕 而 变 得 太 胖 
TUBB ON Be AR 


近似 推理 既 不 精确 ， 也 不 像 纯 猜测 那样 完全 不 精确 。 就 像 模 糊 逻 辑 与 近似 推理 、 二 值 逻辑 与 精确 
推理 的 关系 一 - 样 ， 近 似 推 理 与 自然 语言 推理 的 关系 特别 密切 。 关 于 精确 推理 的 一 个 例子 是 演绎 与 定理 
证 明 ， 见 第 3 章 中 的 讨论 。 

有 许多 种 不 同 种 类 的 模糊 集 理论 、 模 糊 逻 辑 及 近似 推理 。 这 里 所 讨论 的 模糊 逻辑 基于 Zadeh 的 近 
似 推理 理论 ， 该 理论 所 使 用 的 模糊 逻辑 则 基于 Lukasiewicz 的 Li 逻辑 。 在 这 种 模糊 逻辑 中 ， 真 值 是 可 
以 最 终 用 模糊 集合 来 表示 的 语言 变量 。 

基于 表 5.14 中 Lukasiewicz 逻辑 运算 符 的 模糊 逻辑 运算 符 定义 在 表 5.15 中 给 出 。 x (A) 是 [0, 1] 
中 的 一 个 数值 真 值 ， 表 示 命 题 “x is A” 的 真 值 ， 它 也 可 解释 为 隶属 度 AA (x)。 

作为 模糊 逻辑 运算 符 的 一 个 例子 ， 设 模糊 集合 TRUE 定义 如 下 : 

TRUE =0.1/0.1 +0.3/0.5 + 1/0.8 
使 用 表 5.15 中 的 运算 符 ， 则 


FALSE = 1 一 TRUE 
= (1 —0.1)/0.1 + (1 -—0.3)/0.5+(1 ~ 1)/0.8 
=0.9/0.1 +0.7/0.5 


对 限定 词 Very 使 用 CON 运算 符 有 : 


Very TRUE =0.01/0.1 +0.09/0.5 + 1/0.8 


Very FALSE =0.81/0.1 +0.49/0.5 


表 5.15 一 些 模 糊 逻辑 运算 符 


x(A’) =x(NOT A) =1-#a(x) 

x(A) Ax(B) = x(A AND B) = min(Ma(x) ,APB(x)) 

x(A) V x(B) =x(A OR B) = max(lMa(x),a(x)) 

x(A) 一 x(B) =x((A>B) = x((~A) VB) =max[(1- #a(x)),4a(x)] 
模糊 规则 


作为 模糊 逻辑 运算 符 的 一 个 简单 例子 ， 考 虑 模式 识别 问题 。 模 式 可 以 是 需要 进行 质量 控制 的 被 检 
物体 ， 如 生产 部 件 、 需 分 拣 的 新 鲜 水 果 等 〈Harris 00)。 其 他 一 些 重要 的 模式 识别 问题 还 有 医学 图 像 
矿物 中 地 震 数据 、 石 油 勘探 等 。 

表 5.16 给 出 了 一 些 假 设 数据 ， 表 示 对 应 某 些 图 像 的 模糊 集合 导弹 、 战 斗 机 、 客 机 的 隶属 度 。 图 像 
可 能 是 从 远 处 的 系统 中 生成 的 ， 由 于 目标 移动 、 方 向 、 噪 音 等 因素 ， 而 具有 不 确定 性 。 

每 幅 图 像 的 模糊 集 并 表示 了 目标 确认 的 总 不 确定 性 。 图 5.17 显示 了 表 5.16 中 10 幅 图 像 的 模糊 集 
并 。 当 然 ， 在 现实 环境 中 可 能 还 有 更 多 其 他 可 能 的 图 像 ， 而 不 仅仅 是 这 10 幅 依赖 于 系统 分 辩 率 及 目标 
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距离 的 图 像 。 此 外 ,除了 系统 硬件 的 不 确定 性 ， 导 弹 、 战 斗 机 、 客 机 的 初始 模糊 集 也 具有 不 确定 性 ， 
隶属 度 是 基于 典型 导弹 、 战 斗 机 、 客 机 的 知识 而 主观 指定 的 。 在 现实 环境 中 ， 对 每 一 个 这 样 的 初始 集 









































都 还 有 许多 其 他 的 类 型 。 
表 5.16 图 像 的 隶属 度 
来 属 度 p 
图 像 导弹 战斗 机 客机 1M OYM O.A 04M +0.3/F +0.2/A 0.2M +0 3F +05/A O.M +0.20F + OA 
1 1.0 0.0 0.0 ? ; 
2 0.9 0.0 0.1 
3 0.4 0.3 0.2 cB H 二 a in 
4 0.2 0.3 0.5 ONE +0.6/A+0.4/A 0.7/F +0.2/A LA 0.8/F + 0.2/A 1F 
5 0.1 0.2 0.7 6 7 8 9 10 
6 0.1 0.6 0.4 E 
7 0.0 0.7 0.2 MF E BEERE 
F = AX 识别 = 
8 0.0 0.0 1.0 jeer ieee 
9 0.0 0.8 0.2 
10 |00 O00 图 5.17 飞机 识别 的 模糊 集合 
图 5.17 中 的 模糊 集 并 可 认为 表示 了 如 下 形式 的 规则 : 
IF E THEN H 


RE, E 为 所 观察 到 的 图 像 ，H 是 模糊 集 并 。 例 如 ; 
IF IMAGE4 THEN TARGET (0.2/M +0.3/F +0.5/A) 
其 中 ， 括 号 中 的 表达 式 是 目标 的 模糊 集 并 。 该 规则 也 可 表示 为 : 
IF IMAGE4 THEN TARGET4 
其 中 ， 
TARGETA = 0.2/M +0.3/F +0.5/A 
假设 还 有 时 间 继 续 另 一 次 观察 ， 并 设 图 像 6 被 观测 到 。 相 应 的 规则 为 : 
IF IMAGE6 THEN TARGET6 
其 中 ， 
TARGET6 =0.1/M +0.6/F +0.4/A 
则 可 获得 目标 的 总 模糊 集 : 
TARGET = TARGET4 + TARGET6 
“+ ”表示 取 并 集 ， 于 是 ， 
TARGET =0.2/M +0.3/F +0.5/A +0.1/M +0.6/F +0.4/A 
TARGET = 0.2/M +0.6/F +0.5/A 
这 里 ， 对 每 一 个 元 素 只 取 最 大 隶属 度 值 。 
如 果 把 隶属 度 值 最 大 的 元 素 当 作 最 有 可 能 的 目标 ， 则 目标 最 可 能 是 战斗 机 ， 这 是 因为 其 隶属 度 值 
最 大 为 0.6。 但 是 ， 若 客机 的 隶属 度 值 也 为 0.6， 那 么 目标 为 战斗 机 或 客机 的 可 能 性 是 同样 的 。 
一 般 给 定 N 次 观察 及 规则 : 


IF E, THEN Hı 
IF E, THEN Hz 


IF Ex THEN Hy 
XH, RAH 都 与 一 个 共同 的 假设 也 有 关 ， 于 是 互 的 隶属 度 可 由 这 些 假设 的 并 来 决定 ， 即 ; 


Wa = max(ha，hnz，.，。，has)》 
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注意 ， 这 个 结果 不 同 于 确定 性 因子 和 Dempster-Shafer 理论 。 假 设 HAN Hn 称 为 HAY (truth value). 

下 面 这 个 假定 是 合理 的 ， 即 假设 的 真 值 不 可 能 超过 其 证 据 的 真 值 。 体 现在 规则 上 ， 即 是 后 件 的 真 
值 不 可 能 超过 前 件 的 真 值 。 于 是 : 

Us = max(Ha:, pea, +... hw) 

= max[min(ps:}, min (pez), ... min(psy)) 

HH, STE 可 能 会 是 一 个 模糊 表达 式 。 例 如 ，Ei 可 能 定义 为 : 

E: = Ea AND (Es OR NOT E+) 
并 且 ， 可 用 模糊 逻辑 运算 符 来 计算 这 些 表 达 式 。 即 是 : 

Be. = min (pep: MAX (Usg, 1 一 uec)? 
前 件 的 组 合 隶 属 度 称 为 前 件 真 值 (truth value of the antecedent). 3X% {1 F PROSPECTOR 规则 前 件 中 
的 部 分 证 据 。 事 实 上 ， 回 想 一 下 PROSPECTOR 中 前 件 证 据 是 使 用 了 一 种 “特别 ”的 模糊 逻辑 方法 来 
组 合 的 。 现 在 ， 你 可 看 到 这 种 组 合 的 根据 就 是 模糊 理论 的 推理 合成 规则 。 


最 大 一 最 小 合成 


上 面 关 于 H 的 等 式 就 是 模糊 逻辑 中 的 最 大 一 最 小 推理 合成 规则 (max-min compositional rule of in- 
ference)。 在 每 个 规则 只 有 两 个 证 据 项 的 简单 情形 下 ， 


IF E AND E:; THEN Hi 
IF E: AND Ez. THEN H: 


IF Ex: “AND Ex: THEN Hy 
则 最 大 -最 小 推理 合成 规则 为 : 

P，= max [min (Hs, Her), MİN (Mzz, Hss), ++: min (Hen, Henz) ] 
类 似 地 可 扩展 到 具有 更 多 的 证 据 Ez, Efo 

作为 推理 合成 规则 的 另 一 个 例子 ， 来 看 一 下 它 是 如 何 应 用 于 关系 上 的 。 定 义 一 个 模糊 关系 R(x，y) 
= APPROXIMATELY EQUAL (大 约 相等 )， 这 是 一 个 关于 人 的 体重 ， 范 围 在 120 一 160 磅 之 间 的 二 元 
KA, WHS.17 所 示 。 

该 表 是 这 样 构 成 的 ， 隶属 度 基于 这 两 个 值 表 5.17 人 的 体重 上 的 大 约 相等 关系 
与 平均 值 之 间 的 差 按 照 0.075% 递 减 。 比 如 ， y 
如 果 x My 的 值 为 110、130， 则 平均 值 为 x 120 130 140 410 160 
140. z, y 与 平均 值 的 差 的 绝对 值 与 平均 什 120 | 1.0 07 04 02 00 
的 比 为 0/140= 7.1% ， 此 值 乘 以 常数 因子 30 | 0.7 10 06 05 0.2 














-0.075% 得 出 - 0.5. FÆ 150, 130 对 应 140 0.4 0.6 1.0 0.8 0.5 
的 最 后 隶属 度 为 1 - 0.5= 0.5。 另 一 个 容易 iso | o2 05 08 10 08 
计算 的 简单 定义 是 隶属 度 按 照 每 相差 10 递减 0.5 





0.3, 但 是 这 个 定义 对 较 小 的 体重 如 10 和 20 
会 得 到 不 合理 的 结果 ， 因 为 此 时 它们 大 约 相 
等 的 隶属 度 为 0.7。 

ER, KAR (x, y) 作为 一 个 模糊 约束 (fuzzy restriction) 是 如 何 作用 在 具有 非 零 隶属 度 R (x, y) 
的 两 个 值 +，y 上 的 。 模 糊 关 系 是 一 种 弹性 约束 (elastic constraint), 它 允 许 隶 属 度 有 一 定 范围 ， 而 不 
像 分 明 关系 那样 要 求 有 严格 的 约束 。 事实 上 ， 大 约 相等 并 不 能 用 非 模 糊 逻 辑 来 定义 。 分 明 关 系 的 严格 
约束 要 求 值 要 么 确切 相等 ， 要 么 确切 不 等 。 即 x 要么 确切 等 于 》， 要 么 不 等 于 y。 

作为 模糊 约束 的 一 个 例子 ， 考 虑 如 下 命题 p: 


p= XisF 
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其 中 下 是 一 些 模 糊 集 合 ， 它 作为 一 个 模糊 约束 作用 在 语言 变量 X 上。 下面 是 具有 如 上 形式 的 一 些 模糊 
命题 例子 : 

约翰 是 高 的 

sue 是 超过 21 岁 的 

混凝土 是 太 厚 的 

Target 是 友好 的 

X 是 一 个 近似 于 100 的 数 

馅 饼 是 水 果 的 
上 面 最 后 一 个 例子 ， 模 糊 集 可 定义 为 : 

AR = 156 + 1A 


它 表 明 水 果 的 组 成 类 型 。 注 意 ， 在 模糊 理论 中 你 可 用 任何 有 意义 的 方式 增加 苹果 和 橘子 的 隶属 度 值 。 
现在 让 我 们 来 定义 一 个 模糊 约束 Ri (x)。 例 如 ， 模 糊 集合 HEAVY (E) 可 被 定义 为 : 


R: (x) = HEAVY =0.6/140 +0.8/150 + 1/160 
推理 合成 规则 定义 为 作用 于 y 上 的 一 个 模糊 限制 : 
R, (y) = Ri (x) 0 R: (x,y) 
这 里 合成 运算 符 o 是 最 大 -最 小 运算 : 


max min (q(x) ,hz (x,yY)) 
x 


Rs (y) 也 可 解释 为 是 求解 关于 


R; (x) 
R: (x,y) 


的 关系 等 式 而 得 到 的 一 个 解答 。 即 是 说 ， 给 定 z 的 模糊 约束 ，z 和 y 的 模糊 约束 ， 可 推出 y 的 模糊 约 
束 。 这 样 的 推导 将 涉及 模糊 约束 演算 (calculus of fuzzy restriction) ， 模 糊 约束 演算 是 近似 推理 的 基础 。 
运用 这 些 定 义 ，R3 (y) 可 计算 如 下 : 
R: (y) = Ri(x) 0 R (x,y) 


R (y) = [0.0 0.0 0.6 0.8 1.0]o 


1.0 0.7 0.4 0.2 0.0 
0.7 1.0 0.6 0.5 0.2 
0.4 0.6 1.0 0.8 0.5 
0.2 0.5 0.8 1.0 0.8 
0.0 0.2 0.5 0.8 1.0 


RER (x) 代表 一 个 行 问 量 。Rs (y) 的 非 零 元 素 计 算 如 下 : 


R3(120) = max min{[(0.6,0.4), (0.8,0.2)] 
= max(0.4,0.2) =0.4 
R3(130) = max min[ (0.6,0.6), (0.8,0.5),(1,0.2)] 


= max(0.6,0.5,0.2) =0.6 
R3(140) = max min[((0.6,1), (0.8,0.8), (1,0.5) 


= max(0.6,0.8,0.5) = 0.8 
R3(150) = max min[(0.6,0.8), (0.8,1}, (1,0.8) 


= max(0.6,0.8,0.8) = 0.8 





R3(160) = max min[(0.6,0.5), (0.8,0.8), (1,1)] 


= max(0.5,0.8,1) = 1 
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FÆ, WRR (x) Æ HEAVY, 则 


R3(y) =0.4/120 +0.6/130 +0.8/140 +0.8/150 + 1/160 


可 以 用 语言 粗略 的 描述 为 : R (y) 是 MORE OR LESS HEAVY (差不多 重 )。 

KAR (y) 仅仅 只 是 一 个 语言 上 的 近似 ， 这 是 因为 把 DIL 运算 po OPEB] HEAVY 上， 实际 得 到 

DIL(HEAVY) =0.8/140 +0.9/150 + 1/160 
此 时 ， 关 于 120 和 130 TREK, 但是， REE 40.8 的 元 素 仍然 表示 得 很 好 ， 这 证 明了 MORE 
OR LESS HEAVY 只 是 一 个 粗略 近似 。 因 此 ，max-min 合成 推理 表示 了 模糊 语言 关系 : 

MORE OR LESS HEAVY = HEAVY oO APPROXIMATELY EQUAL 

注意 ， 这 些 关系 依赖 于 模糊 集合 的 定义 及 集合 的 语言 标记 。 既 然 它 依赖 于 模糊 集合 、 关 系 、 标 记 
的 定义 ， 因 此 从 绝对 的 意义 上 来 说 ， 它 是 不 真 的 。 但 是 ， 一 旦 这 些 基 本 定义 建立 起 来 ， 模 糊 理论 就 为 
处 理 这 些 表达 提供 了 一 种 形式 的 、 一 致 的 机 制 。 这 一 点 非常 重要 ， 因 为 语言 的 处 理 和 项 的 含义 便 因 此 
而 建立 在 合理 的 理论 基础 上 ， 而 不 是 依赖 于 “特别 ”的 方法 或 个 人 的 直觉 理解 。 


最 大 值 和 瞬时 方法 


选择 具有 最 大 隶属 度 的 元 素来 决定 规则 后 件 真 值 的 方法 叫 最 大 值 方法 《maximum method)。 另 一 
种 方法 称 作 瞬时 方法 (moments method), ， 它 类 似 于 计算 物体 惯性 的 第 一 时 刻 的 方法 来 指定 规则 后 件 的 
真 值 。 瞬 时 方法 的 基本 思想 是 考虑 所 有 规则 的 后 件 而 不 只 是 考虑 值 最 大 的 那个 后 件 。 正 如 前 面 所 提 到 
的 ， 如 果 多 条 规则 的 后 件 都 有 相同 的 最 大 值 ， 则 用 最 大 值 方法 就 很 容易 产生 歧义 。 
作为 瞬时 方法 的 一 个 简单 例子 ， 考 虑 下 面 配制 混凝土 的 模糊 产生 式 规则 集合 。 
R1: IF 混合 太 湿 
THEN 增加 沙 和 石子 
R2: IF 混合 正好 
THEN 保持 原状 
R3: IF 混合 太 干 
THEN 减少 沙 和 石子 
混凝土 是 用 水 泥 、 水 、 沙 和 石子 按 一 定 比 例 混合 而 成 的 。 混 合 量 (mix) 是 一 个 用 来 决定 所 需 应 用 
最 佳 比 例 的 测试 量 。 选 择 比例 的 原则 一 般 是 根据 所 要 求 混凝土 的 强度 来 定 。 然 而 ， 由 于 当地 使 用 的 原 
料 、 石 子 大 小 、 环 境 条 件 和 其 他 因素 的 不 同 ， 选 择 的 标准 也 会 有 所 不 同 。 在 开始 建造 价值 10 000 000 
美元 的 楼 房 前 做 一 个 混合 量 测 试 是 一 个 好 的 主意 。 
决定 混合 量 正确 或 合适 的 一 个 常用 方法 是 滑落 测试 (slump test)。 把 测试 的 混凝土 放 人 一 个 圆锥 
体 ， 然 后 移 开 圆锥 体 ， 移 开 后 混凝土 所 滑落 的 距离 就 表明 了 原料 的 情况 。 为 一 般 的 厚 板 和 梁 设 计 的 混 
凝 土 ， 其 最 小 和 最 大 的 滑落 距离 分 别 为 4 和 8 英寸 。 图 5.18 的 模糊 集合 显示 了 混凝土 混合 量 产生 式 规 
则 的 模糊 前 件 的 一 个 可 能 定义 。 这 些 集合 也 可 以 用 一 张 表 或 用 S- 函 数 和 工 -函数 来 定义 。 
模糊 规则 后 件 中 的 模糊 集合 的 定义 如 图 5.19 所 示 。 在 前 面 所 说 的 前 件 下 ， 这 些 能 提供 一 个 合适 混 
合 量 的 模糊 后 件 之 间 会 有 重奏 。 注 意 ， 对 于 沙 和 石子 的 变化 在 - 20% 与 20% 之 间 的 限制 是 任意 定义 
的 。 和 模糊 集合 前 件 一 样 ， 后 件 也 可 用 S- 函 数 和 工 -函数 来 定义 。 
作为 这 些 模糊 产生 式 规 则 是 如 何 工作 的 例子 ， 假 定 混凝土 的 滑落 距离 是 6 英寸。 从 图 5.18 可 看 
出 ， 每 条 规则 的 隶属 度 或 前 件 真 值 如 下 : 
Bos smrr(6) = 0 
Hosrnezz (6) = 1 
Uzo: ssr(6) = 0 
因此 只 有 一 条 规则 R 的 前 件 被 满足 。 这 条 规则 激活 后 所 产生 的 模糊 后 件 是 保持 原状 。 
应 用 推理 合成 规则 有 : 


LEAVE atone = Inax[Imin(unonrabrz(6)] = max(min({1)] = 1 





204 HSE 





减少 沙 和 石子 ARR 增加 沙 和 石子 





RF 正好 太 湿 10 
1.0 0.9 
0.9 0.8 
07 E os 
EX 0, 
= os a 
PX 0.4 0.3 
0.3 0.2 
0.2 0.1 
0.1 0 T 1 
0 -20 0 20 
3 4 5 6 7 8 9 
混凝土 的 滑落 (英寸 ) 沙 和 石子 的 变化 量 (%) 
图 5.18 混凝土 混合 处 理 控制 的 模糊 图 5.19 混凝土 混合 处 理 控制 的 模糊 
产生 式 规 则 前 件 产生 式 规则 后 件 


且 从 图 5.19 可 看 出 ， 这 可 转化 为 沙 和 石子 的 变化 量 为 0% 。 
现在 假设 滑落 距离 为 4.8 英寸 。 从 图 5.18 可 得 出 : 


Urso srrrr (4.8) = 0.05 
Huorrasts (4.8) = 0.2 
Broo wer (4.8) = 0 


规则 Ry 和 R, 的 前 件 被 部 分 满足 ， 这 与 PROSPECTOR 中 概率 规则 前 件 的 部 分 证 据 满足 相 类 似 。 
由 于 混合 量 太 干 或 正好 具有 非 零 真 值 ， 因 此 规则 R 和 Rs 都 会 被 激活 并 触发 。 注 意 ， 在 一 个 模糊 产生 
式 系统 中 ,除非 具有 一 个 前 件 真 值 的 阅 值 ， 否 则 每 一 个 具有 非 零 前 件 真 值 的 规则 都 会 被 触发 。 设 置 一 
个 阔 值 是 有 必要 的 ， 它 可 阻止 很 多 具有 较 低 真 值 的 规则 被 激活 、 触 发 而 导致 的 无 效 操 作 。 回 想 在 
MYCIN 系统 中 ， 为 了 提高 专家 系统 效率 ， 一 条 规则 被 激活 的 最 小 确定 性 必须 >0.2。 同 样 也 可 在 模糊 
集合 的 前 件 真 值 上 定义 一 个 类 似 的 阔 值 。 

对 于 滑落 距离 为 4.8 英寸 ， 有 两 条 规则 被 激活 。 应 用 最 大 -最 小 组 合 规则 可 得 : 


HpgcREASE SAND AND COARSE AGGREGATE 
= max [min (proc srirr (4-8) ] 


=0.05 


eave aone = Max [min (pworrane(4.8)] = 0.2 

可 见 ， 对 单个 前 件 项 ， 最 大 -最 小 函数 可 不 需要 。 

既然 现在 有 两 条 规则 有 非 零 后 件 ， 则 我 们 必须 进行 控制 选择 。 最 大 值 的 方法 将 会 简单 地 挑选 具有 最 
大 隶属 度 的 规则 。 在 这 个 例子 中 ,保留 原状 会 被 选择 ， 因 为 它 的 隶属 度 0.2 比 另 一 规则 的 0.05 要 大 。 

瞬时 方法 从 根本 上 算出 规则 模糊 后 件 的 重心 (center of gravity)。 术 语 重 心 来 源 于 物理 学 ， 它 表示 
这 样 一 个 点 ， 如 果 物 体 的 所 有 质量 集中 于 这 点 ， 那 么 在 外 力 的 作用 下 ， 其 效果 是 同样 的 。 重 心 也 叫 第 
一 瞬时 惯性 (first moment of inertia) ， 其 定义 I 是 : 


[avox dix) 
I: 一 一 一 一 
[moe d (x) 

其 中 积分 符号 表示 普通 的 积分 。 


图 5.20 显示 了 两 条 规则 R 和 Rs 的 模糊 集合 。 注 意 模糊 集合 在 其 前 件 真 值 处 被 截断 。 这 反映 了 推 
理 组 合 规则 ， 截 断 是 因为 ， 从 直 党 上 ， 后 件 真 值 不 可 能 超过 前 件 真 值 。 
后 件 的 瞬时 值 计算 如 下 : 
free x d(x) 


1 对 连续 元 素 
[roe d(x) 
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或 
Sux 0.2 
I = 一 对 离散 元 素 最 大 值 (0%) 
Èe 2 o1 瞬时 值 C1%) 
从 图 5.20 可 看 出 其 值 大 约 为 1%。 虽 然 这 与 从 最 大 “| i ， 
值 方法 获得 的 0% 非常 接近 ,但 其 差异 对 于 那些 有 重合 定 -20 0 20 
RMR ARREN EE, BK GLA INAS 图 5.20 “混凝土 处 理 控制 模糊 
用 于 对 航空 进行 控制 的 模糊 控制 器 中 。 在 这 个 控制 器 中 ， 规则 的 最 天 值 和 瞬时 值 方法 


最 大 值 方法 算出 模糊 后 件 的 全 部 最 大 值 的 算术 平均 值 。 因 
此 ， 即 使 存在 多 个 元 素 有 相同 的 最 大 值 ， 仍 可 计算 出 一 个 明确 的 控制 值 。 

除了 最 大 值 和 瞬时 方法 外 ， 其 他 方法 也 已 用 于 解决 逆 模 糊 化 问题 (defuzzification problem), BIE 
属 度 转化 为 一 个 明确 控制 值 或 一 个 描述 控制 变量 的 语言 近似 值 。 但 是 ， 仅 通过 一 个 简单 数字 或 一 个 语 
言 短语 来 描述 一 个 模糊 集合 是 很 困难 的 。 


可 能 性 和 概率 


在 模糊 理论 中 ， 术 语 可 能 性 (possibility) 具有 特别 的 含义 。 基 本 上 ， 可 能 性 指 允 许 值 。 例 如， 假 
设 有 一 个 关于 在 其 点 数 和 论 域 % 上 撕 两 个 骨 子 的 命题 被 定义 如 下 : 

P = X 是 一 个 在 中 的 整数 

wp = {2,3,4,5,6,7,8,9,10,11,12! 

在 模糊 术语 学 中 ， 对 任何 整数 i ， 

Possix = i! 1 (2<i<12) 
0 否则 
这 里 ，Poss {x = il 是 “XX 假定 为 i 的 可 能 性 ”的 简写 。 山 子 的 值 为 2~12 中 任何 一 个 值 的 可 能 性 与 值 
i 的 概率 是 不 同 的 。 换 名 话说 ， 就 是 可 能 性 分 布 (possibility distribution) 与 概率 分 布 (probability distri- 
bution) 是 不 一 样 的 。 般 子 的 概率 分 布 是 指 随 机 变量 (random variable) X, EIS RF HIM, BRB 
现 的 频率 。 例如 ,7 由 于 有 1+6,， 2+5, 3+4, 因此 7 的 出 现 概率 为 : 


Posslx = i} 





而 2 的 出 现 概率 为 : 

1 

36 

SEER, ROME A, WES 2 到 12 的 整数 ， 可 能 性 分 布 是 个 为 1 的 常数 。 命 题 p 称 
为 引发 一 个 可 能 性 分 布 ，IIx。 即 给 定 一 个 模糊 命题 p， 它 基于 模糊 集合 下 和 语言 变量 X， 

p=xX is F 
当 用 这 种 方式 表达 时 ， 该 命题 称 为 具有 典型 形式 (canonical form)。 术 语 典 型 意思 是 标准 形式 。 模 糊 集 
合 F 是 一 个 与 普通 逻辑 的 谓词 不 同 的 模糊 谓词 (fuzzy predicate), F 也 可 是 一 个 模糊 关系 。 由 p 引发 的 
可 能 性 分 布 等 于 F 且 可 以 用 下 面 的 可 能 性 分 配方 程 〈possibility assignment equation) : 

Tk = F 
来 定义 。 这 个 方程 的 意思 是 ， 对 于 论 域 % 中 的 所 有 x, WA: 

Poss (X = x} = p(X} xe UY 
例如 ， 给 定 命题 ， 


p = John is tall 
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可 定义 一 个 具有 值 John 的 语言 变量 Height (高 度 ) ， 则 典型 形式 : 
X is F 

可 以 用 变量 Height 通过 
Height (John) is TALL 

的 形式 来 表示 ， 于 是 ， 
Poss {Height (John) = x} = Hr (x) 

命题 P 可 被 写成 如 下 的 可 能 性 分 布 : 


John is tall 一 [Ineigntisonm = TALL 


其 中 箭头 符号 表示 “转换 为 "，Height 是 一 个 语言 变量 ，TALL 是 一 个 模糊 集合 。 注 意 John 不 是 一 个 
语言 变量 。 

虽然 一 个 模糊 集合 可 以 被 指定 为 一 个 可 能 性 分 布 ， 如 i= F， 但 这 两 者 实际 上 是 不 一 样 的 。 作 为 
说 明 它们 区 别 的 一 个 例子 ， 思考 下 面 定义 的 模糊 集合 : 

ROLL(1) = 1/3 + 1/4 
这 个 集合 的 意思 是 ， 在 仍 子 的 一 次 具体 投掷 Roll 1 中 ， 有 一 个 蜗 子 为 3， 另 一 个 为 4。 与 之 相反 ， 可 能 
性 分 布 : 

HL = 1/3 + 1/4 
是 指 投掷 结果 为 3 或 4。 这 里 的 “或 ”是 异 或， 表示 我 们 对 投掷 的 不 确定 性 。 有 可 能 为 3， 也 有 可 能 为 
4。 在 模糊 集合 中 ， 可 以 确定 骨 子 的 值 是 3 和 4。 而 可 能 性 分 布 是 指 不 管 是 3 EEEN, RTRS 
平 的。 模糊 集合 告诉 了 我 们 一 次 投掷 后 所 显示 的 值 。 

作为 另外 一 个 例子 ， 思 考 命题 “Hans 以 X 个 鸡蛋 作为 早餐 ”， 这 里 又 是 指 论 域 X = 11，2，…81 
中 的 任何 一 个 值 。 


表 5.18 Hans 吃 X 个 鸡蛋 的 难 易 程度 积 概率 分 布 





x 1 2 3 4 5 6 7 8 
Hare(Hans) (X) 1.0 1.0 1.0 1.0 0.8 0.6 0.4 0.2 
P(X) 0.1 0.8 0.1 0.0 0.0 0.0 0.0 0.0 





可 能 性 分 布 TIarecpnsy(X) 解释 了 Hans 吃 X 个 鸡蛋 的 难 易 程 度 。 概 率 分 布 P (X) 是 通过 对 Hans 
吃 早餐 进行 一 年 的 调查 而 总 结 出 来 的 。 

有 一 点 很 重要 ， 即 可 能 性 是 非 统计 的 ， 而 概率 是 统计 的 。 例 如 ， 虽 然 Hans 能 吃 8 个 蛋 ， 但 调查 结 
果 表 明 ， 在 观察 的 这 段 时 期 内 他 从 未 吃 过 多 于 3 个 鸡蛋 的 早餐 。 从 这 个 意义 上 说 ， 可 能 性 是 指 能 力 或 
容量 。 可 能 性 高 并 不 意味 着 概率 高 ， 即 是 在 可 能 性 和 概率 之 间 没 有 关联 。 

对 普通 概率 的 模糊 扩展 就 是 模糊 概率 (fuzzy probability)。 它 描述 了 一 种 不 能 精确 知道 的 概率 。 模 
糊 概率 的 一 些 例子 是 模糊 限定 词 (fuzzy qualifier)， 如 非常 可 能 、 未 必 可 能 、 不 是 非常 可 能 等 等 。 含 有 
模糊 概率 的 一 个 模糊 命题 例子 是 : 

电池 是 坏 的 是 非常 可 能 的 
转换 规则 

模糊 概率 纳 人 模糊 逻辑 ， 称 为 基于 Lukasiewicz 的 Li 逻辑 的 FI.。FL 的 一 个 主要 部 分 是 一 组 转换 
规则 (translation rule), ， 这 些 规则 说 明了 如 何 从 基本 命题 得 到 修饰 或 合成 规则 。 


转换 规则 可 以 分 为 四 类 : 
。 类 工 ， 修饰 规则 (modification rule)， 如 


X 非 常 大 
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John 比 Mike 高 得 多 


。 类 开 : 合成 规则 (composition rule), ， 如 
条 件 合成 (conditional composition) 


如 果 X 是 高 的 , 则 YY 是 矮 的 

SRAM (conjunctive composition) 
X 是 高 的 且 Y 是 矮 的 

HMA MK (disjunctive composition) 
x ARR Y ERR 

条 件 合 取 合 成 (conditional and conjunctive composition) 
如 果 X 是 高 的 , 则 Y 是 矮 的 ,否则 Y 是 更 铸 的 

。 Æ: 量化 规则 (quantification rule), ， 如 


大 多 数 甜品 是 很 好 的 
太 多 营养 食物 是 致 胖 的 


。 ÆN: 限定 规则 (qualification rule), ， 如 
真 值 限定 (truth qualification) 


巧克力 饮 饼 是 美味 的 .是 非常 真实 的 
概率 限定 (probability qualification) 
巧克力 馅 饼 服 务 迅 速 是 非常 可 能 的 
可 能 性 限定 (possibility qualification) 
对 你 耐 言 巧克力 馅 饼 是 坏 的 是 不 可 能 的 
限定 规则 是 那些 与 模糊 概率 有 关 的 规则 。 量 化 规则 用 来 处 理 像 Most (大 多 数 ) 那样 的 模糊 量词 ， 
这 些 量词 不 能 用 经 典 的 论 域 和 存在 量词 来 定义 。 


类 工 规则 的 转换 可 表示 为 : 
X is PF OTk =F 
和 转换 命题 


X is mF > [k = F 
这 里 ，m 是 一 个 修饰 词 ， 如 Not, Very, More Or Less 等 等 。F+ 表示 下 被 m 修饰 。m 和 F? 的 一 些 默认 
定义 如 表 5.19 所 示 ， 它 们 和 以 前 所 讨论 的 语言 限定 词 一 样 。 也 可 采用 其 他 的 对 m 和 下 的 定义 。 

作为 一 个 例子 ， 定 义 TALL, 


TALL =0.2/5 +0.6/6 + 1/7 #519 某 些 类 工 规 则 的 转换 参数 值 
则 转换 如 下 : TE 





John is not tall 一 0.8/5 +0.4/6 + 0/7 
John is very tall 一 0.04/5 +0.36/6 + 1/7 Not F= | [1-#p(2)]/x 
John is more or less tall 一 0.45/5 +0.77/6 + 1/7 


变量 X 不 一 定 是 一 元 变量 。 一 般 , X 可 以 是 一 个 二 元 
a -22A hr “ ” “ . ” 
或 NN 元 关系 。 例如 ， 命 题 “Y and 2 areF ”包括 在 “X is 下 More Or Less VF= | VOD 
H, EX CLOSE 为 一 个 &% x 上 的 模糊 关系 ， 

CLOSE = 1/(1,1) +0.5/(1,2} +0.5/(2,1) 注 : 所 有 积分 都 是 对 整个 论 域 。 


Very F= | wp(z)A 


于 是 ， 





X 
ww 
We 
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X and Y are close > [lx:, = CLOSE 
X and Y are very close 一 Txs 
= CLOSE 
“= 1/(1,1) +0.25/(1,2) +0.25/(2,1) 
DŽ TL UU A AF ANT : 
IF X is F then Y is G > Ixy =F BG 
这 里 , 下 和 G 是 F 和 G 在 论 域 上 的 圆柱 扩展 。 
F=FxV G=UXG 
名 是 有 界 和 。 对 于 这 个 规则 ， 
Fea(XiY) = 1A [1 — u(x) + pcely}] 
人 是 最 小 函数 。 这 个 定义 与 Li 逻辑 中 的 列 含 是 一 致 的 ， 但 其 他 的 定义 可 能 会 不 一 致 。 作 为 一 个 类 开 规 
则 的 例子 ， 定 义 


U=V= (4, 5, 6, 7} 

F = TALL =0.2/5 +0.6/6 + 1/7 

G = SHORT = 1/4 +0.2/5 

IF X is tall then Y is short > [x.y 


= 1/(5,4) + 1/(5,5) + 1/(6,4) + 
0.6/ (6,5) + 1/(7,4) +0.2(7,5) 


这 里 ,元 素 如 (5，4) 的 隶属 度 是 如 下 计算 的 : 


hieat5,4) = La [1 -0.2 + 1] = 1a [1.8] =1 


模糊 专家 系统 中 的 不 确定 性 
当 模 糊 概率 用 于 专家 系统 中 时 ， 将 会 与 普通 的 概率 推理 有 所 不 同 。 思 考 下 面 这 个 典型 的 模糊 规则 ; 
IF X is F then Y is G( 概 率 是 & ) 
这 可 以 写成 一 个 条 件 概率 的 形式 : 
P(Y is G | X is F) =8 
一 个 使 用 经 典 概率 论 的 传统 专家 系统 会 假设 : 
P(Y is not G | X is F) =1- 8 
然而 ， 在 模糊 理论 中 ， 如 果 下 是 一 个 模糊 集 ， 那 么 这 个 式 子 就 不 再 成 立 了 。 正 确 的 模糊 结果 将 会 
弱 些 : 
P(Y is not G | X is F) + P(Y isG | X is F) 21 
因为 这 仅 设置 了 概率 的 一 个 下 限 ， 这 个 下 限 可 能 是 模糊 的 。 一 般 说 来 ， 对 于 模糊 系统 : 
PCHIE) 不 一 定 等 于 1 -P(E |E) 
在 模糊 专家 系统 中 ， 可 能 存在 3 个 方面 的 模糊 : 
(1) 规则 的 前 件 和 /或 后 件 ， 如 : 


If X is F then Y is G 
If X is F then Y is G with CF = @ 


这 里 ，CF 是 确定 性 因子 ，a 是 一 个 如 0.5 之 类 的 数值 。 
(2) 前 件 与 匹配 前 件 模式 的 事实 之 间 只 是 部 分 匹配 。 在 非 模糊 专家 系统 中 ， 规 则 不 会 被 激活 除非 
模式 与 事实 精确 匹配 。 但 是 ， 在 模糊 专家 系统 中 ,任何 事情 都 只 是 一 个 程度 的 问题 。 除 非 设置 了 一 个 
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国 值 ， 否 则 所 有 规则 在 某 种 程度 上 都 可 以 被 激活 。 

(3) 模糊 量词 如 most 和 模糊 限定 词 如 Very Likely (非常 可 能 ) Quite True (十 分 正确 )、Definitely 
Possible (完全 可 能 ) 等 等 。 

命题 中 通常 含有 明确 和 /或 不 明确 的 模糊 量词 。 作 为 一 个 例子 ， 思考 下 面 倾向 (disposition) 


d = desserts are Wonderful( 甜 饼 是 美味 的 ) 
术语 “倾向 ”表示 一 个 通常 正确 的 命题 ， 它 的 典型 形式 是 ; 


Usually(X is R} 


这 里 ，Usually 是 一 个 隐 含 的 模糊 量词 ，R 是 一 个 约束 关系 (constraining relation), EME TAREE X 
取 值 的 范围 。 许 多 人 们 知道 的 启发 式 规 则 都 是 “倾向 "。 实 际 上 ， 常 识 知识 (commonsense knowledge) 
本 质 上 就 是 对 现实 世界 中 “倾向 ”的 总 括 。 

“倾向 ”可 以 转换 成 明确 的 命题 形式 : 


p = Usually desserts are wonderful 
p = Most desserts are wonderful 


它 可 以 表示 成 下 面 这 个 启发 式 规则 : 


r= If x is a dessert 
then it is likely that x is wonderful 


下 面 是 一 些 模糊 系统 中 的 推理 规则 : 
。 传递 原理 (entailment principle) 
X is F 

ESG 

X is G 


。 倾向 传递 〈dispositional entailment): 它 是 把 Always (总 是 ) 变 成 Usually (常常 ) 的 一 种 限定 情形 


Usually (X is F) 
EG G 
Usually (X is G) 


。 合成 规则 (compositional rule) 
X is F 


X.Y) is R 
Yis FOR 


这 里 ，R 是 作用 在 二 元 变量 (X, Y) 上 的 一 个 二 元 关系 ， 且 


Uror(Y) = sup[u (Xx) A m(x,y)] 
x 


Sup 是 supremum 的 缩写 ， 意 思 是 上 确 界 (least upper bound)。 通 常 ， 上 确 界 与 最 大 值 函数 是 一 样 
的 。 不 同 之 处 在 于 ， 当 没有 最 大 值 时 ， 如 小 于 0 的 实数 区 间 ， 此 时 没有 一 个 小 于 0 的 最 大 实数 , 但 上 
确 界 却 取 值 为 0。 

。 广义 假 言 推理 (generalized modus ponens) 

X is F 

Y is Gif X is H 

Y is Fo (H’ @G) 

这 里 H 是 下 的 模糊 补 集 ， 有 界 和 的 定义 是 : 


Be ac(x,y) = 1a [1 ~ w(x) + hlty)] 

广义 假 言 推理 不 需要 前 件 “X is H” 与 前 提 “X is F BRM. 注意， 这 与 经 典 逻 辑 完全 不 同 ， 
经 典 逻辑 需要 它们 精确 匹配 。 广 义 假 言 推理 实际 上 是 推理 合成 规则 的 一 个 特例 。 传 统 的 专家 系统 把 假 
言 推理 作为 基本 规则 ， 而 模糊 专家 系统 则 把 推理 合成 规则 作为 基本 规则 。 





210 第 5 童 





专家 系统 使 用 近似 推理 采用 了 两 种 不 同 的 方法 ， 一 种 是 真 值 约束 方法 ， 另 一 种 是 合成 推理 方法 。 
在 Whalen 所 总 结 的 11 个 模糊 专家 系统 中 ， 几 乎 都 是 使 用 合成 推理 方法 。 由 于 很 难 提前 预测 哪 一 种 方 
法 最 有 效 ， 通 常 使 用 经 验 模 型 来 考察 哪 一 个 最 适合 当前 数据 。 这 并 不 像 听 起 来 那么 糟 ， 比 如 在 统计 理 
论 中 ,首先 使 用 线性 回归 ， 因 为 它 是 最 简单 的 ， 此 外 人 们 也 假设 人 口 呈 高 斯 分 布 。 如 果 不 起 作用 ， 则 
使 用 更 复杂 的 模型 直到 其 中 的 误差 是 可 接受 的 。 


5.6 不 确定 性 的 现状 


如 果 你 已 经 读 过 以 上 5 章 的 每 一 个 单词 并 推导 了 每 一 条 公式 ， 求 解 了 每 一 个 习题 ， 那 么 你 要 么 是 
对 知识 有 强烈 的 渴求 ， 要 么 是 有 失眠 症 。 不 管 哪 种 情况 ， 阅 读 这 本 书 的 后 续 部 分 都 将 解决 你 的 困惑 。 
最 大 的 问题 在 于 ， 走 过 了 所 有 不 同 的 树木 和 森林 ， 我 们 能 看 到 任何 山脉 么 ?哪里 才 是 正确 建造 专家 系 
统 的 根本 所 在 ? 

在 树木 和 森林 的 远 处 有 两 座 山 ， 其 中 一 座 很 高 很 清晰 ， 这 是 “逻辑 之 山 ”"， 专 家 系统 必须 建立 在 其 
E. 一 个 专家 系统 必须 像 人 类 一 样 给 定 有 效 的 前 提 可 得 到 有 效 的 结论 。 给 定 (1) 规则 书写 正确 ， 
(2) 推理 机 推出 结论 的 事实 为 真 ， 专 家 系统 必须 能 够 得 到 有 效 的 结论 。 注 意 我 们 没有 要 求 事实 在 现实 
世界 中 是 合理 的 。 如 果 专 家 的 推理 不 合理 或 者 事实 无 效 ， 我们 并 不 期 望 推 理 机 可 以 得 到 合理 的 结论 。 
设计 专家 系统 仅 是 用 来 模拟 某 个 有 限 知 识 领域 的 人 类 专家 ， 人 们 并 不 总 是 理性 的 推理 。 不 过 至 少 在 给 
出 有 效 事实 时 专家 系统 必须 得 到 有 效 结论 。 

第 二 座 看 起 来 很 高 的 山 是 “不 确定 性 之 山 ”"。 奇 特 的 是 无 论 你 走 得 多 近 ， 它 的 影像 始终 不 清晰 。 事 
实 上 当 你 研究 一 个 特定 理论 时 ， 每 当 出 现 一 个 新 变化 ， 在 不 确定 性 的 分 形 之 山上 也 就 多 了 一 个 新 变化 。 
我 们 能 做 的 最 恰当 处 理 是 用 专家 知识 模型 化 它 ， 或 者 尝试 用 不 确定 性 的 多 种 方法 ， 让 不 同 的 技术 与 之 
一 决 雌雄。 这 种 渐进 的 方法 是 基于 经 典 的 黑板 架构 (blackboard architecture)， 这 个 架构 中 不 同 的 代理 
同时 从 不 同 角度 考察 一 个 问题 。 所 有 的 代理 把 它们 的 疑问 碎片 放 在 一 块 黑板 上 进行 考察 ， 希 望 不 同 的 
碎片 可 以 构成 一 个 整体 。 一 个 监督 程序 将 考察 所 有 的 碎片 然后 试图 拼 出 完整 的 图 案 。 在 不 确定 性 领域 ， 
如 果 有 一 个 确定 的 理论 ， 那 就 不 存在 不 确定 性 。 

今天 模糊 逻辑 和 贝 叶 斯 定理 最 常用 来 处 理 不 确定 性 。 然 而 也 有 很 多 其 他 理论 应 用 于 这 个 领域 。 选 
择 一 个 能 提供 广泛 选择 范围 的 软件 是 很 重要 的 。 通 常 ， 商 业 软 件 提供 最 多 的 选择 但 是 最 贵 。 在 许多 情 
况 下 ， 可 以 得 到 学 术 研 究 用 版 本 或 者 试用 版 本 。 

随 着 功能 强大 的 台式 电脑 的 普遍 应 用 以 及 提供 成 千 上 万 计算 机 网 格 计算 的 链接 的 存在 ， 使 你 可 以 
在 短 时 间 内 在 大 型 数据 集 上 试用 不 同 的 模型 。 这 种 大 型 混合 计算 的 问题 在 于 ， 你 必须 很 仔细 ， 因 为 可 
以 使 用 很 多 参数 以 使 它 100% 符 合 你 的 测试 数据 。 一 个 100% 的 符合 和 0% 的 符合 一 样 糟糕 〈 也 可 能 是 
很 好 ， 在 于 你 如 何 看 它 )， 因 为 这 意味 着 其 中 有 些 错误 。 从 统计 学 我 们 知道 由 于 数据 噪音 以 及 有 限 的 样 
本 大 小 ， 所 以 应 该 存在 着 随机 变动 。 

例如 ， 给 出 N 个 数据 点 ， 从 头 到 尾 我 们 总 是 可 以 画 出 N- 1 条 线 。 这 样 一 个 模型 对 任何 两 点 间 的 
增添 都 适用 ， 但 是 对 数据 进行 外 推 就 不 适合 了 。 我 们 在 专家 系统 中 追求 的 是 像 人 类 一 样 能 从 已 知 预测 
和 外 推 新 情况 的 能 力 。 

经 典 贝 叶 斯 理论 、 贝 叶 斯 凸 集 理论 (convex set Bayesian) 、Dempster-Shafer 、Kyburg 以 及 模糊 逻 
辑 中 的 可 能 性 理论 是 目前 为 数 不 多 的 其 软件 工具 广泛 可 得 的 几 种 方法 。 试 用 不 同 的 模型 可 能 比分 析 更 
耗费 你 的 时 间 。 在 贝 叶 斯 理论 的 凸 集 方法 中 ， 信 任 不 是 经 典 贝 叶 斯 方法 中 的 一 个 函数 ， 而 是 通过 一 组 
凸 函 数 (convex function) 集 来 刻 划 ， 这 意味 着 任何 函数 都 能 由 另外 两 个 函数 的 线性 组 合 来 表示 。 

自从 Dempster-Shater 理论 最 早 作为 经 典 概率 理论 的 扩展 而 引入 ， 就 受到 了 很 多 的 批驳 。 例 如 ， 
Kyburg 在 论文 中 宣称 Dempster-Shafer 理论 不 是 经 典 概率 论 的 扩展 ， 实 际 上 只 是 一 种 别 的 方法 。Kyburg 
认为 Dempster-Shafer 理论 包含 在 经 典 概率 论 中 ，Dempster-Shafer 区 间 也 包含 在 贝 叶 斯 理论 的 凸 集 方法 
th, Dempster-Shafer 理论 在 处 理 趋 近 于 0 的 信任 时 似乎 也 遇 到 了 困难 ， 信 任 为 0 和 信任 很 小 时 所 得 的 
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结果 有 很 大 的 不 同 。 另 一 个 问题 是 ， 随 着 诊断 问题 可 能 答案 的 增加 ，Dempster-Shafer 理论 的 计算 呈 指 
数 增长 。 

虽然 Gordon 与 Shortliffe 的 近似 值 方法 避免 了 指数 增长 ， 但 它 在 处 理 有 明显 冲突 的 证 据 时 ， 得 出 
的 结果 不 理想 。 另 一 种 不 是 近似 值 的 方法 在 处 理 对 立 证 据 时 得 出 了 较 好 的 结果 。 许 多 别 的 论文 趋向 于 
使 用 对 Dempster-Shafer 理论 的 不 同 扩展 来 克服 指数 增长 问题 。 

所 有 这 些 工作 的 主要 意义 在 于 再 次 检查 了 概率 论 的 基础 是 否 正确 ,并且 增加 了 对 处 理 不 确 性 的 方 
法 的 兴趣 。 此 外 ， 一 系列 综合 了 模糊 逻辑 和 ANS 的 混合 方法 也 被 开发 出 来 并 且 取 得 了 成 功 (Mendel 
00)。 一 个 重要 的 事情 就 是 选择 不 确定 性 模型 类 似 于 在 传统 程序 语言 中 选择 数据 结构 ， 例 如 ， 数 组 、 链 
表 、 树 、 队 列 、 堆 栈 等 等 。 请 选择 最 适合 问题 的 模型 。 


5.7 模糊 逻辑 的 一 些 商 业 应 用 


从 照相 机 到 洗衣 机 ， 模 糊 逻 辑 的 商业 应 用 无 处 不 在 。 模 糊 逻 辑 资源 的 链接 列 在 附录 G 中 。 
。 水 电站 的 水 曾 门 自动 控制 
(Tokyo Electric Power) 
。 机 器 人 简化 控制 
(Hirota，Fuji Electric，Toshiba ，Omron) 
。 体育 转播 的 摄影 瞄准 
(Omron) 
。 股票 交易 评估 的 专家 代理 
(Yamaichi，Hitachi) 
。 空调 系统 中 的 温度 跳动 预防 
(Mitsubishi，Sharp) 
汽车 引擎 的 稳定 有 效 控制 
(Nissan) 
机 动车 巡航 控制 
(Nissan，Subaru) 
工业 控制 应 用 系统 的 效率 提高 和 功能 优化 
(Aptronix, Omron, Meiden, Sha, Micom, Mitsubishi, Nisshin-Denki, Oku-Electronics) 
。 半导体 生产 中 的 晶片 分 档 器 定位 
(Canon) 
公交 车 运行 时 间 表 的 优化 
(Toshiba, Nippon-System, Keihan-Express) 
。 文档 管理 系统 
(Mitsubishi Electric. ) 
。 地 震 早 期 预报 的 预测 系统 
(Inst. Of Seismology Bureau of Metrology, Japan) 
。 医疗 技术 : 癌症 诊断 
(Kawasaki Medical School) 
。 模糊 逻辑 和 神经 网 络 结合 
(Matsushita) 
掌上 电脑 中 的 手写 体 识 别 
(Sony) 
摄像 机 的 动画 补偿 
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(Canon, Minolta) 
真空 吸尘器 地 表情 况 和 脏 污 程度 识别 的 自动 马达 控制 
(Matsushita) 
摄像 机 的 背光 控制 
(Sanyo) 
摄像 机 防震 补偿 
(Matsushita) 
洗衣 机 单 键 控制 
(Matsushita，Hitatchi) 
。 手写 体 、 物 体 、 声 音 识 别 
(CSK, Hitachi, Hosai Univ. Ricoh) 
。 直升机 飞行 辅助 : 
(Sugeno) 
法 律 诉 讼 程序 模拟 
(Meihi Gakuin Univ, Nagoy Univ.) 
工业 过 程 的 软件 设计 
(Aptronix，Harima，ishikawajima-OC Engeneering) 
。 钢铁 制造 的 机 器 速度 和 温度 控制 
(Kawasaki Steel, New-Nippon Steel, NKK) 
。 提高 驾驶 舒适 度 、 停 定 精度 和 节省 能 源 的 地 铁 系 统 控制 
(Hitachi) 
节省 机 动车 燃料 消耗 
(NOK, Nippon Denki Tools) 
电梯 控制 中 的 灵敏 度 和 效率 提高 
(Fujitec, Hitachi, Toshiba) 
。 提高 核反应 的 安全 性 
(Hitachi, Bernard, Nuclear Fuel Div.) 


5.8 小 结 


本 章 讨 论 了 不 确定 性 的 非 概率 理论 。 确 定性 因子 、Dempster-Shafer 理论 和 模糊 理论 都 是 处 理 专家 
系统 中 不 确定 性 的 方法 。 确 定性 因子 易于 实现 ， 并 且 已 成 功 地 用 于 如 MYCIN 这 样 推理 链 较 短 的 专家 系 
统 中 ,但 确定 性 因子 只 是 一 种 “特别 ”的 理论 ， 它 一 般 不 适 于 长 推理 链 的 情况 。 

Dempster-Shafer 理论 基础 严密 且 专 门 针对 专家 系统 。 

模糊 理论 是 已 系统 化 的 关于 不 确定 性 的 最 通用 理论 。 由 于 扩张 原理 而 得 到 广泛 应 用 。 自 从 Zadeh 
1965 年 发 表 了 第 一 篇 经 典 论文 之 后 ， 模 类 理论 已 被 用 于 许多 领域 。 附 录 G 列 出 了 许多 链接 。 


习题 
5.1 在 初始 证 据 E 之 上 给 出 证 据 E, EA: 


P (£D; NE,)P DIE,) 





P(D: | Ei Mm Ez) = 
DP zjp: N Ei)P Dj|Ei) 
3 


5.2 证 明 : 


CF(H,E) + CF(H',E) = 0 
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5.3 SERN: 


5.4 


5.6 


IF E AND FE: AND E; 
THEN H (CF) 


IF E, OR E, 
THEN H (CF:) 


这 里 ， 

CF, (E,,e) =1 CF, (E),e) =0.5 CE (Es,e) =0.3 
CE,(E,,@) =0.7 CF,(E,,e) =0.2 

CF,(H,E) =0.5 CE,(H,E) = 0.9 | 


(a) 画 一 棵 树 说 明 这 些 规 则 如 何 推出 Ha 
(b) 计算 确定 性 因子 CF,(H,e) 及 CE,(H,e); 
(c) 计算 CECOMBINE[ CE,(H,e),CE,(H,e)]。 


(a) 在 图 5.7 (c) 中 , i: 


m(X) = 0.2 
m(Y) = 0.3 
m(Z) = 0.5 


运用 Dempster-Shafer 理论 找 出 X、Y 及 2Z 的 证 据 区 间 。 
(b) 在 图 5.7 (d) P, i8: 


m(x) = 0.4 
= 0.6 
找 出 下 面 式 子 的 证 据 区 间 : 


x 
XMY 
Y 
XoY 
X NY 


给 定 规则 : 


规则 1:IF E THEN H 
规则 2:IFETHEN HK 


并 设 : 

日 = [HH] 

对 规则 1,m(H) =0.5 m(@)=0.5 
对 规则 2,m(H)=0.3 m(@)=0.7 
(a) 写 出 Dempster-Shafer 表 显 示 证 据 组 合并 计算 组 合 信任 函数 。 
(b) 计算 合 情 度 


(o) 计算 证 据 区 间 Cen “传感器 1 (m) 传感器 2 (im) 
cj BI 





i Q 0.15 0.2 
(d) 计算 怀疑 度 A, B 0.3 0.1 
(e) 计算 未 知 度 A, F 0.1 0.05 
基于 不 同类 型 传感器 的 报告 ， 下 表 给 出 了 飞机 环 p 0.1 0.1 
境 中 客机 (H), RHEL (B)、 战 斗 机 (F) 的 信 A 0.05 0.3 
任 度 。 B 0.2 0.05 
(a) 计算 初始 信任 函数 、 合 情 度 、 证 据 区 间 、 怀 F 0 1 0.2 
SEE. RAE. 





(b) 经 过 证 据 组 合 后 ， 计 算 上 述 同 样 参 数 。 
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5.7 一 个 警察 拦截 了 一 个 超速 驾驶 者 。 基 于 警察 雷达 探测 器 和 驾驶 者 速度 计 的 误差 ， 信 任 函数 如 下 : 


5.8 


5.9 


5.11 


(a) 计算 每 个 人 的 信任 函数 、 合 情 度 、 证 据 区 间 、 怀 疑 度 、 未 知 度 。 
(b) 经 过 证 据 组 合 后 ， 再 计算 上 述 参数 。 
(c) 基于 这 些 参 数 ， 解 释 你 为 什么 相信 和 驾驶 者 超速 E g 


驾驶 者 





或 没有 超速 。 
给 定 模糊 集 ， 
A =0.1/1 +0.2/2 +0.3/3 B =0.2/1 +0.3/2 +0.4/3 
计算 /解释 下 面 各 题 : 
(a) 这 两 个 集合 相等 吗 ? 解释 之 。 
(b) 集合 补 
(c) 集合 并 
(d) 集合 交 
(e) 每 个 集合 满足 排 中 率 吗 ? 解释 之 。 
(f 集合 积 
(g) 每 个 集合 的 二 次 寡 
(h) 概率 和 
(i) AFM 
G) AAR 
(k) ARE 
(1) 集中 
(m) 扩张 
(n) 强化 
(o) 标准 化 
给 定 模糊 集合 


ml (57) =0.3 
ml (56) =0.5 
ml (55) =0.2 


0.2 0.3 i 
Q= 0 a 定义 在 01 x Vat 


| 0.5 0.3 
Pp = 


0.2 0.0 S 定义 在 v2 x v3 上 


(a) 计算 每 个 集合 的 第 一 、 第 二 及 全 投影 。 
(b) 计算 每 个 集合 的 圆柱 扩展 。 
(c) HERA: 


Q 0 P = proj(Qn P; U: x Us) 


考虑 语言 变量 “人 ”作为 一 个 三 阶 模糊 集合 。 
(a) 定义 人 为 3 个 二 阶 模糊 集合 。 
(b) 用 3 个 一 阶 模糊 集合 来 定义 每 个 二 阶 模糊 集合 。 
(c) 用 $- 函 数 和 /或 开 函 数 定义 这 3 个 一 阶 模糊 集合 。 
(a) 为 语言 变量 “不 确定 性 ”定义 5 个 语言 值 。 
(b) 为 这 些 值 画 出 适当 的 函数 ， 并 解释 之 。 
(c) 画 出 下 面 的 模糊 集合 
Not TRUE( 不 真 ) 
More Or Less TRUE (几乎 真 ) 
Sort Of TRUE( 有 点 真 ) 


m (56) =0.2 
m (55) =0.6 
m? (54) =0.2 





不 精确 推理 215 





Pretty TRUE (很 真 ) 
Rather TRUE (相当 真 ) 
TRUE ( 真 ) 
设 TRUE 是 一 个 S$- 函数 。TRUE 的 极限 是 什么 ? 解释 之 。 
5.12 (a) 为 语言 变量 “水 温 ”定义 至 少 6 MË- 
(b) 在 一 个 图 上 画 出 每 个 模糊 集合 值 的 适当 函数 。 
(c) 基于 冰点 (FREEZING) 给 出 3 个 受 限 的 模糊 集合 函数 。 
5.13 (a) 通过 N=2 和 N=3 的 真 值 表 来 证 明 表 5.14 中 的 基本 逻辑 运算 符 。 
(b) Kx, y 的 绝对 值 角度 推导 xey 
5.14 给 定数 值 真 值 ， 


x(A) =0.2/0.1 +0.6/0.5 + 1/0.9 
x(B) =0.1/0.1 +0.3/0.5 + 1/09 


计算 下 面 的 模糊 逻辑 真 值 
(a) NOTA 
(b) A AND B 
(c) AORB 
(d) AB 
(e) B>A 

5.15 使 用 限定 基本 项 和 范围 短语 定义 模糊 语法 以 生成 下 面 规则 : 

IF PRESSURE IS HIGH (压力 高 ) 
THEN TURN VALVE LOWER ( 调 低 阀门 ) 


IF PRESSURE IS VERY HIGH 
THEN TURN VALVE MUCH LOWER 


IF PRESSURE IS VERY VERY HIGH 
THEN TURN VALVE MUCH MUCH LOWER 


IF PRESSURE IS LOW TO MEDIUM (压力 是 低 到 中 等 ) 
THEN TURN VALVE HIGHER 


设 (1) PRESSURE 的 基本 项 只 有 LOW 和 HIGH, (2) 范围 短语 TO 只 出 现在 规则 前 件 中 ， 
(3) 结论 中 VALVE 的 基本 项 只 有 LOWER 和 HIGHER。 
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第 6 章 专家 系统 设计 


6.1 概述 


在 前 面 几 章 ， 我 们 已 讨论 了 专家 系统 和 其 他 一 些 智能 决策 系统 的 一 般 概 念 和 理论 。 许 多 论文 尝试 
总 结 智能 系统 的 特性 。 每 种 类 型 都 有 很 多 优 缺 点 〈Begley 03)。 本 章 就 实际 专家 系统 的 设计 提供 一 些 一 
般 的 指导 ， 这 些 设计 是 针对 现实 世界 应 用 ， 而 不 是 研究 模型 的 。 本 章 将 描述 软件 工程 方法 学 (software 
engineering methodology) 以 便 在 最 短 的 时 间 内 开发 出 高 质 、 高 效 、 低 成 本 的 专家 系统 。 

许多 书籍 、 论 文 和 软件 工具 都 致力 于 专家 系统 设计 ， 涵盖 了 各 个 方面 的 细节 问题 。 所 以 这 一 章 不 
可 能 让 你 马上 成 为 一 个 专家 。 但 是 通过 理解 专家 系统 设计 的 方法 原理 ， 你 可 以 更 好 地 利用 那些 复杂 的 
工具 和 方法 。 事 实 上 ， 专 家 系统 设计 是 一 个 更 广泛 的 领域 ， 称 为 知识 管理 (Knowledge Management, 
KM) 的 一 部 分 ， 知 识 管理 研究 知识 的 组 织 (Becerra-Fernandez 03)。 

KM 和 信息 管理 (Information Management IM) 有 关 ， 信 息 管 理 又 与 信息 处 理 (Information Pro- 
cessing, IP) 有 关 ， 信 息 处 理 又 与 信息 系统 (Information System, IS) 有 关 ， 而 信息 系统 与 信息 技术 
(Information Technology, IT) RAK. KM 主要 为 不 同类 型 用 户 考 虑 所 有 不 同类 型 的 资源 ， 如 办 公 室 、 
网 页 、 常 见 问 题 、 桌 面 帮助 (人 工 和 自动 ) 、 电 子 邮件 、 传 真 、 电 话 、 产 品 、 程 序 、 开 发 者 、 管 理 者 、 
终端 用 户 和 广告 等 。 

大 公司 具有 自己 详细 的 方法 、 文 档 、 书 籍 和 软件 ， 并 由 他 们 自行 开发 、 管 理 、 维 护 和 售卖 AW 
这 是 一 个 盈利 领域 《Conway 02)。 特 别 是 智能 工具 被 开发 后 可 以 极 大 地 减少 人 员 开 支 ， 甚 至 比 全 球 外 
包 更 便宜 。 . 

如 果 你 想 想 一 个 普通 人 花 在 使 用 计算 机 上 的 时 间 ， 则 我 们 需要 用 计算 机 来 管理 由 计算 机 创建 的 文 
档 。 专 家 系统 之 所 以 能 广泛 用 于 商业 上 ， 就 是 因为 它 对 不 断 迅猛 增长 的 网 上 信息 和 知识 来 说 是 必 不 可 
少 的 。 


6.2 选择 合适 的 问题 


有 很 多 方法 和 资源 提供 给 你 来 建立 一 个 基于 知识 的 系统 或 专家 系统 ， 也 有 更 多 的 方法 会 让 你 浪费 
时 间 和 金钱。 不 过 ， 智 慧 第 四 法 则 (Fourth Law of Wisdom) 告诉 我 们 在 拟定 一 个 行程 之 前 应 该 明确 目 
的 地 。 

在 建立 专家 系统 前 ， 必 须 选 择 合适 的 问题 ， 就 像 第 1.6 小 节 里 讨论 的 那样 。 做 专家 系统 和 做 任何 
其 他 软件 项 目 一 样 ， 在 决定 其 所 需 的 人 力 、 资 源 、 时 间 时 ， 都 要 作 一 个 全 盘 考虑 。 这 个 全 盘 考虑 就 是 
传统 程序 设计 的 项 目 管理 ， 这 一 点 在 专家 系统 设计 里 必须 形成 制度 。 图 6.1 显示 了 专家 系统 开发 的 一 
个 高 层 管理 模式 ， 其 三 个 一 般 阶 段 的 具体 细节 在 它们 的 下 面 列 出 ， 这 些 具体 细节 必须 采取 问题 -答案 的 
方式 进行 讨论 以 作为 专家 系统 设计 的 指导 方针 。 


选择 合适 的 范例 

为 什么 要 建立 专家 系统 

对 任何 一 个 项 目 来 说 ， 这 可 能 是 最 重要 的 问题 。 最 理想 的 答案 是 公司 领导 的 决定 。 假 如 不 是 这 种 
情形 ， 第 1 章 第 2 节 中 所 描述 的 专家 系统 的 一 般 优 点 就 无 从 谈 起 。 最 重要 的 是 ， 记 住 只 有 管理 人 员 才 
有 权 决 定 技 术 人 员 想 要 建造 的 系统 。 如 果 你 决定 用 你 的 业余 时 间 建 造 专家 系统 ， 以 向 公司 证 明 你 的 正 
确 ， 随 之 ， 你 意识 到 这 是 个 很 成 功 的 产品 ， 然 后 你 决定 辞职 并 自 创 公司 。 那 么 ， 这 就 牵涉 到 你 所 签 的 
知识 产权 协议 (Intellectual Property Agreement) 。 绝 大 多 数 IPA 说 明 ， 无 论 你 做 什么 ， 不 管 与 你 的 工作 
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是 否 有 关 ， 你 一 年 24 xXx7x 52 小 时 都 属于 公司 。 特 别 是 ， 这 个 问题 必须 由 物 主 或 股东 来 决定 是 否 提供 
资金 开发 。 在 开始 项 目前 ， 对 问题 、 专 家 、 用 户 等 都 必须 有 一 个 清楚 的 认识 。 

HES, 我们 这 里 使 用 的 是 “专家 ”， 而 不 是 “专家 们 "。 正 如 拥有 多 个 伴侣 会 有 很 多 麻烦 ， 多 个 专 
家 也 会 产生 矛盾 。 即 使 是 总 统 看 病 ， 一 次 也 只 看 一 个 医生 ， 这 并 不 是 花费 的 问题 。 试 图 在 一 个 系统 中 
模型 化 多 个 专家 的 知识 是 一 个 糟糕 的 主意 。 但 是 ， 使 用 黑板 架构 把 多 个 系统 中 的 多 个 专家 的 知识 统一 
到 一 个 主要 观点 并 模型 化 却 是 一 个 好 想法 。 这 里 使 用 了 模糊 术语 “好 ”。 如 果 10 个 医生 中 有 9 个 认为 
病人 会 死 ， 病 人 只 会 选择 那个 能 提供 生 的 机 会 的 医生 。 如 何 排列 多 个 专家 的 意见 是 一 件 很 困难 的 事 ， 
甚至 比 为 单一 专家 建立 单一 系统 更 难 。 所 以 我 们 在 本 章 坚 持 单一 系统 单一 专家 的 方法 ， 而 把 多 专家 多 
系统 作为 一 个 课程 项 目 。 


收益 


收益 是 什么 

这 个 问题 和 第 一 个 问题 有 联系 ， 然 而 却 更 实际 ， 它 要 求 在 人 力 、 资 源 、 时 间 和 金钱 上 的 投资 都 必 
须 有 特别 的 回报 。 收 益 可 体现 在 金钱 、 效 率 和 第 1 章 中 所 描述 的 专家 系统 优点 上 。 此 外 ， 很 重要 的 一 
点 是 必须 记 住 ， 如 果 没 有 用 户 ， 就 没有 收益 。 由 于 专家 系统 是 一 门 新 的 技术 ， 较 之 传统 程序 设计 来 说 ， 
回答 这 个 问题 更 困难 ， 也 更 具 风 险 。 

















图 6.1 项 目 管理 任务 


工具 


建立 系统 时 哪些 工具 是 可 用 的 

目前 有 许多 不 同 优 缺 点 的 专家 系统 工具 可 供 选择 ， 附 录 G 总 结 了 这 些 工 具 的 一 些 特性 。 然 而 ， 由 
于 软件 的 迅速 发 展 ， 这 些 仅仅 只 能 提供 一 个 参考 。 一 般 地 ， 每 两 年 每 种 工具 都 会 有 许多 功能 增强 ， 而 
每 五 年 则 会 有 一 个 大 的 版 本 更 新 。 当 然 ， 修 正 旧 版 本 的 漏洞 比 以 新 的 名 字 新 的 版 本 号 发 行 会 花费 更 
多 的 金钱 。 如 果 你 对 这 一 点 有 疑问 ， 可 以 数 数 过 去 十 年 肉 你 使 用 的 同一 个 操作 系统 一 共有 多 少 个 新 的 
名 字 。 

选择 专家 系统 工具 应 该 遵循 智慧 第 三 法 则 (Third Law of Wisdom): 如 果 你 迷惑 了 ， 问 别人 。 查 看 
已 使 用 这 软件 建立 的 关于 其 应 用 的 网 页 。 试 找 出 不 仅仅 是 成 功 的 ， 还 有 失败 的 应 用 。 尽 管 很 难得 到 严 
格 的 统计 数字 ， 但 是 多 数 估计 认为 成 功 的 软件 只 有 20% 一 30%。 如 果 你 需要 和 一 个 忙碌 的 专家 合作 并 
且 不 了 解 其 专业 术语 的 时 候 ， 这 个 数字 还 将 下 降 。 

这 也 就 引发 了 智慧 第 二 法 则 (Second Law of Wisdom): 如 果 你 要 寻求 某 人 的 帮助 ， 最 好 先 懂得 他 
的 语言 。 尽 管 有 很 多 人 类 和 计算 机 翻译 ， 但 学 习 一 个 知识 领域 中 的 术语 还 是 很 困难 。 

然而 ， 仅 仅 学 习 术语 或 记 住 单 词 的 字典 定义 并 不 能 建立 语义 关系 网 ， 这 是 基于 规则 的 专家 系统 的 
基础 。 尽 管 每 条 规则 都 表达 了 一 个 知识 块 ， 在 知识 库 中 规则 之 间 还 同时 存在 强 的 和 弱 的 连接 。 如 果 某 
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条 规则 的 激发 必然 导致 另 一 条 规则 也 被 激发 ， 那 么 它们 存在 强 耦 合 (strong-coupling)， 或 者 说 ， 是 推理 
链 中 一 个 从 有 效 事实 到 有 效 结论 的 强 连接 。 如 果 一 个 规则 的 激发 导致 多 条 规则 可 以 被 推理 机 激发 ， 
那么 是 弱 耦 合 〈weak-coupling)。 这 意味 着 推理 链 并 不 强 ; 由 于 多 条 路 径 存 在 ， 我 们 不 知道 应 该 走 哪个 
方向 。 

可 潜在 激发 的 规则 越 多 ， 意 味 着 推理 链 还 达 不 到 强 砚 合 。 但 这 并 不 是 坏事 。 如 果 每 条 规则 都 与 另 
一 规则 强 看 合 ， 就 不 需要 推理 机 和 专家 系统 了 ， 因 为 过 程 化 程序 设计 语言 能 更 好 地 处 理 。 过 程 化 语言 
的 执行 是 连续 的 ， 一 个 语句 接 一 个 语句 ， 除 非 有 条 件 控制 语句 如 下 ， 否 则 按照 输入 顺序 执行 。 如 果 有 
一 个 算法 能 有 效 地 解决 问题 而 不 需要 人 工 智能 方案 。 理 想 地 ， 专 家 系统 是 强 弱 耦合 规则 的 均衡 混合 ， 
就 如 同人 类 会 通过 演绎 、 归 纳 、 概 率 和 其 他 方法 来 得 到 结论 。 

考虑 下 面 某 个 知识 领域 词语 的 语义 表 (semantic list)。 称 之 为 语义 表 是 因为 词 与 词 之 间 没 有 图 连 
接 ， 而 是 一 个 词 自 然 地 连接 着 上 一 个 词 〈 注 意 ， 你 年 纪 越 大 ， 就 越 能 理解 )。 看 你 需要 多 少时 间 理 解 : 
过 期 电影 、 过 期 通知 、 过 期 罚款 、 拖 欠 账 户 、 冻 结账 户 ， 收 债 代 理 、 电 话 通知 、 电 子 邮件 巨 量 增加 、 
信用 败坏 、 低 信用 、 无 信用 、“ 我 们 可 以 为 你 提供 贷款 ”"、 欠 账 、 应 付 税收 、 附 加 税利 息 、 代 理 费 用 、 
抵押 、 州 长 拍卖 、 说 客 、 竞 选 捐献 、 挪 用 公款 、 州 长 道歉 、 公 司 道歉 、 巨 额 赔偿 、 买 下 录像 出 租 公司 。 

语义 表 通 常 和 其 他 符号 相关 联 。 符 号 学 研究 符号 及 其 含义 。 大 家 都 熟悉 的 一 个 例子 是 小 时 学 “A、 
B、C” 这 首 歌 ， 因 为 其 中 旋律 和 歌词 具有 符号 关联 ， 所 以 当 小 孩 们 唱 “A、B、C” 时 ,我 们 仍 能 记 起 
曲调 。 在 著名 的 TV 叮当 节目 广告 中 广泛 地 应 用 符号 关联 。 某 些 叮 当 制 作 人 善于 制造 出 能 让 你 的 脑海 
不 停 地 回旋 这 些 旋律 的 叮当 乐曲 。 

当 你 拜访 一 个 专家 的 时 候 ， 同 时 记录 内 容 是 有 必要 的 。 通 过 阅读 这 些 记 录 ， 你 可 以 发 现 这 些 词语 
之 间 的 语义 关系 ， 这 才 是 重要 的 。 知 识 术 语 并 不 是 孤立 的 单词 它们 构成 了 语义 艇 ， 继 而 又 连接 形成 
专家 脑海 中 的 整个 知识 语义 网 。 大 脑 是 相关 联 符号 记忆 的 一 个 很 好 例子 ， 其 中 一 个 词 ， 味 觉 、 触 觉 、 
视觉 或 听觉 可 以 激发 所 有 其 他 记忆 。 

面谈 是 导出 知识 的 传统 方法 ， 这 方面 已 做 了 很 多 工作 (Novak 98)。 事 实 上 上， 面谈 的 一 个 技巧 就 是 
通过 画 出 图 表 来 确定 概念 和 关联 。 可 视 化 的 形象 表示 有 利于 专家 和 开发 者 同时 看 到 关联 和 意义 ， 并 就 
所 表达 的 内 容 达 成 一 致 。 已 有 表达 整个 本 体 的 软件 工具 。 回 忆 第 1 章 中 ， 本 体 是 某 个 领域 的 完整 形式 
描述 。 

有 一 个 非常 成 功 的 工具 Protege， 这 是 一 个 本 体 和 知识 库 编辑 工具 。 它 是 斯 坦 福 大 学 免费 提供 的 复 
杂工 具 ， 在 其 网 站 上 有 关于 创建 第 一 个 本 体 以 及 其 他 许多 主题 的 良好 技术 支持 。Protégé 和 TixClips, 
作用 一 个 CLIPS 的 集成 开发 环境 一 起 使 用 。 当 建立 有 成 千 条 规则 的 大 系统 时 ， 本 体 是 必 不 可 少 的 。 


成 本 


要 花费 多 少 成 本 

这 就 如 同 询问 离婚 的 成 本 。 这 种 花费 不 是 一 次 性 的 ， 它 会 随时 间 推 移 而 不 断 增加 。 建 立 一 个 专家 
系统 的 成 本 取决 于 人 力 、 资 源 和 时 间 。 同 时 ， 正 如 其 他 软件 和 硬件 一 样 ， 你 需要 计算 维护 费用 。 这 引 
导 我 们 使 用 智慧 第 一 法 则 (First Law of Wisdom): 如 果 你 买 了 一 辆 车 想 不 担心 油 费 ， 最 好 拥有 自己 的 
油田 。 以 及 智 嫌 第 零 法 则 (Zero Law of Wisdom): 最 好 是 用 别人 的 汽车 和 汽油 。 当 专家 不 在 的 时 候 很 
难 维护 一 个 专家 系统 。 

由 于 同行 之 间 的 竞争 ， 引 入 另 一 个 专家 并 不 能 起 作用 。 相 对 而 言 ， 建 立 一 个 知识 来 源 于 人 们 、 文 
档 和 其 他 大 众 化 来 源 的 基于 知识 的 系统 要 容易 得 多 。 很 多 公司 都 做 了 这 项 工作 ， 因 为 他 们 发 现 这 些 系 
统 除了 一 些小 问题 外 ， 可 以 900% 地 解决 问题 。 这 比 建立 一 个 电话 服务 中 心 便宜 得 多 。 

运行 一 个 专家 系统 工具 除了 软件 和 硬件 以 外 ， 还 得 考虑 培训 的 成 本 。 如 果 你 的 雇员 没有 什么 经 验 
的 话 ， 就 要 花费 大 量 成 本 进行 培训 。 任 何 一 个 软件 的 专业 培训 通常 要 每 人 每 星期 2500 美元 。 当 然 ， 这 
一 点 已 不 再 像 过 去 一 样 成 为 不 利 因素 。 现 在 公司 可 以 通过 提供 产品 的 在 线 或 课堂 培训 、 认 证 考试 、 认 
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证 考试 辅导 ， 培 养 认 证 考试 教师 、 书 籍 、 研 究 会 、 专 题 讨 论 会 和 上 门 服 务 而 获取 利润 。 今 天 ， 把 一 个 
容易 使 用 、 功 能 强大 、 没 有 漏洞 的 产品 投入 市 场 注定 会 失败 。 


6.3 开发 专家 系统 的 步骤 


系统 是 如 何 开发 的 

从 大 的 方面 来 讲 ， 专 家 系统 的 开发 依赖 于 所 提供 的 资源 。 然 而 和 别 的 项 目 一 样 ， 开 发 也 依赖 于 组 
织 和 管理 。 一 个 好 的 参考 见 (Wentworth 94) ， 联 邦 高 速 公 路 管理 局 的 具有 超过 300 条 规则 的 专家 系统 
就 是 基于 此 开发 的 。 如 果 你 已 经 熟悉 一 个 基本 的 项 目 计划 工具 例如 Microsoft Project， 那 么 坚持 用 这 个 
工具 。 这 就 更 容易 向 管理 层 解释 项 目 进度 和 项 目 拖延 原因 。 


项 目 管理 
基本 的 项 目 管理 技巧 和 软件 工具 需要 包括 下 列 部 分 : 
活动 管理 
。 计划 一 确定 活动 内 容 
一 规定 活动 的 优先 次 序 
- 资源 需求 
一 阶段 目标 
一 时 间 
- 责任 
。 日 程 安排 一 规定 开始 和 结束 时 间 
~ 解决 同等 优先 权 任务 之 间 的 冲突 
。 记事 - 监督 项 目 性 能 
。 分 析 - 分 析 计划 、 日 程 和 已 记事 的 活动 
产品 配置 管理 
。 产品 管理 ~ 管理 不 同 版 本 的 产品 
。 变更 管理 — 管理 变更 建议 及 其 影响 评估 
一 指定 人 员 进 行 改 变 
一 安装 新 版 本 
资源 管理 
。 预测 资源 需求 
。 获取 资源 
一 明确 专家 和 知识 基础 
一 为 专家 的 便利 而 组 织 时 间 表 


。 规定 合理 使 用 资源 的 责任 

。 提供 紧要 资源 以 减少 瓶颈 问题 

特别 地 ， 在 资源 获取 中 要 让 你 的 时 间 表 去 适应 专家 ， 而 不 是 相反 。 除 非 你 付 给 专家 全 职 报酬 ， 他 
们 有 其 他 的 工作 ， 时 间 非 常 宝贵 。 

图 6.2 从 系统 所 经 步 又 的 角度 给 出 了 开发 一 个 系统 所 需 的 理想 高 层 活动 。 

从 理想 角度 ， 在 解决 所 有 漏洞 之 前 产品 不 能 交付 给 终端 用 户 。 这 一 点 特别 适用 军用 产品 ， 因 为 取 
消 一 个 已 经 启动 的 核 导 弹 并 不 容易 。 

与 政府 合约 相反 ， 商 业界 的 规则 很 不 一 样 ， 因 为 如 果 项 目 延 期 ， 就 没 法 保证 会 有 稳定 的 资金 供给 
和 额外 的 预算 。 今 天 商业 届 遵 循 的 范例 是 每 季度 花费 大 量 费用 在 产品 宣传 上 直到 产品 已 投 和 人 市 场 几 年 
后 。 这 有 两 个 目的 。 首 先 ， 想 使 用 产品 的 私人 开发 者 愿意 付费 给 发 布 前 版 本 ， 即 使 产品 还 有 尘 洞 。 这 
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可 行 性 研究 说 明 项 目 可 行 的 论证 报告 


快速 建立 专家 系统 模型 来 证 明 观 点 、 


快速 原型 激发 热情 、 加 强 高 层 管理 人 员 的 印象 


由 知识 工程 师 和 专家 通过 现实 问题 在 
实验 室 验 证 系统 












精炼 系统 
(测试 ) 





现场 测试 
(B 测 试 ) 


挑选 一 般 的 用 户 来 测试 系统 


证 实 与 测试 
， 商业 化 系统 


通过 电话 和 /或 电子 邮件 提供 快速 用 户 支持 


修补 漏洞 


维护 和 升级 增强 功能 





图 6.2 开发 专家 系统 的 一 般 步 又 


就 提供 了 一 个 持续 的 收入 来 源 ， 就 好 像 产 品 已 经 开发 好 了 ， 避 免 了 公司 需要 连续 几 年 负担 所 有 的 开发 
费用 。 另 一 个 好 处 是 你 不 需要 做 太 多 的 内 部 测试 。 

只 需要 确信 在 每 次 产品 运行 崩溃 时 ， 询 问 用 户 是 否 发 送 一 个 自动 的 漏洞 报告 。 当 用 户 点 击 确定 时 ， 
漏洞 信息 和 判断 哪里 出 错 的 诊断 信息 会 自动 送出 。 公 司 的 自动 邮件 系统 可 以 存放 漏洞 报告 到 数据 库 中 。 
标准 的 数据 挖掘 工 具 就 可 以 找 出 模式 提醒 各 个 开发 队伍 负责 相应 模块 的 更 正 。 可 以 设置 不 同 的 激发 层 
次 ， 只 有 当 漏 洞 数量 达到 激发 展 次 要 求 时 ， 相 关 的 信息 才 会 送 到 开发 队伍 。 有 些 团队 的 工作 比 其 他 的 
更 加 重要 ， 因 此 不 用 设置 一 样 的 激发 展 次 。 根 据 漏洞 的 数量 和 严重 程度 分 配 资源 ， 以 便 在 下 一 季度 发 
布 版 本 中 修复 这 些 问 题 。 需 要 为 发 布 前 的 版 本 建立 一 个 专门 网 站 ， 提 供 获取 新 的 季度 版 本 的 预定 费用 .。 

第 二 ， 也 是 最 重要 的 ， 证 券 交 易 委员 会 (Securities and Exchange Commission, SEC) 要 求 各 公司 定 
期 向 股东 发 布 季度 报告 。 即 使 你 仍 是 私人 公司 还 没有 发 布 公共 股票 ， 这 也 可 为 你 的 网 站 吸引 风险 投资 ， 
增加 你 的 原始 公共 积累 。 

发 行 问题 

系统 如 何 发 行 

由 于 依赖 于 专家 系统 的 配置 数量 ， 所 以 发 行 问题 (delivery probem) 是 开发 中 的 一 个 主要 考虑 因 
素 ， 发 行 问题 必须 在 开发 的 最 早 阶段 进行 考虑 。 在 20 世纪 ， 用 于 开发 的 系统 比 把 产品 部 署 到 最 终 用 户 
的 系统 耗费 更 大 。 现 在 由 于 低 价 机 器 的 存在 ， 发 行 问 题 的 这 个 弊端 已 经 解决 。 

但 是 ， 另 一 个 问题 是 你 的 产品 应 该 能 在 多 种 硬件 设备 上 运行 。 这 一 点 依赖 于 Java 最 初 的 流行 口号 
“一 次 编写 ， 任 何 地 方 使 用 "。 口 号 和 保证 只 能 用 于 “ 砂 盒 "， 配 置 在 不 同 的 硬件 仍然 是 一 个 问题 ， 和 除非 
使 用 解释 器 并 在 每 一 种 不 同类 型 的 硬件 上 安装 虚拟 机 。 自 从 机 器 代码 解释 器 在 20 世纪 70 年 代 随 着 
Pascal 引入 后 就 可 以 成 功 应 用 于 任何 微型 计算 机 ， 使 得 这 样 的 方法 可 行 。 而 Java 采用 了 同样 的 技术 。 

尽管 CLIPS 并 不 产生 机 器 代码 ， 它 只 产生 标准 C 版 本 的 完整 专家 系统 。 这 样 就 可 以 使 用 标准 的 C 
语言 编译 器 为 特定 的 硬件 平台 编译 ， 为 特定 平台 产生 可 执行 的 代码 ， 而 不 需要 “CLIPS 虚拟 机 ”。 最 初 
设计 CLIPS 的 一 个 目标 是 使 它 可 以 很 方便 地 为 任何 可 能 产生 的 新 硬件 提供 一 个 专家 系统 。 如 果 这 还 不 
够 ， 其 他 版 本 的 CLIPS 例如 前 言 中 提 到 的 Jess 已 经 开发 出 来 。Jess 是 用 Java 开发 的 ， 尽 管 它 并 不 支持 
多 重 继承 ， 但 它 具 备 Java 的 所 有 优点 ， 可 以 很 容易 地 配置 在 不 同 硬件 上 。 
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很 多 情况 下 专家 系统 必须 和 其 他 现存 程序 集成 在 一 起 ， 应 考虑 到 如 何 通讯 和 协调 专家 系统 与 这 些 
程序 的 输入 /输出 。 此 外 ， 把 专家 系统 作为 传统 程序 语言 的 一 个 过 程 来 调用 也 具有 必要 ， 而 系统 必须 能 
支持 这 一 点 。CLIPS 可 被 主语 言 (host language) 例如 C+ + 程序 调用 ， 完 成 功能 ， 然 后 把 控制 交还 给 
主 程序 。 这 样 一 个 混合 系统 也 是 CLIPS 设计 考虑 的 主要 因素 之 一 ， 因 为 一 个 专家 系统 的 效率 随 着 使 用 
规则 和 模式 匹配 的 增加 会 快速 下 降 。 尽 管 Rete 算法 很 优秀 ， 专 家 系统 仍 不 能 像 编 译 的 代码 一 样 快 。 

尽管 你 可 以 使 用 CLIPS 模拟 一 个 计算 器 ， 电 子 报表 或 甚至 一 个 文字 处 理 器 ， 但 是 它们 的 性 能 不 会 
比 用 第 三 代 语 言 如 C、C+ + 、C# 编 写 的 程序 好 。 例 如 ， 你 可 以 从 标准 数据 库 如 Oracle 或 MySql 中 调 
用 CLIPS 创造 一 个 智能 的 数据 挖掘 工具 ， 然 后 把 建议 返回 给 数据 库 用 户 。 在 Oracle 中 ， 游 标 用 来 使 其 
他 应 用 程序 可 以 使 用 数据 然后 把 控制 交还 给 Oracle。CLIPS 遵循 这 一 规则 ， 既 是 一 个 好 的 宿主 ， 也 是 
一 个 好 的 从 客 。 另 一 个 可 选 方法 是 使 用 和 更 改 CLIPS 源 代码 ， 把 它 融 合 到 你 的 应 用 中 ， 然 后 把 结果 编 
译 成 新 的 应 用 发 布 。 


维护 和 升级 


如 何 维 护 和 升级 系统 

专家 系统 的 维护 和 升级 较 之 传统 程序 来 说 更 为 开放 ， 因 为 专家 系统 不 是 基于 算法 ， 它 的 性 能 依赖 
于 知识 ， 当 新 知识 被 获取 而 旧 知 识 被 修改 时 ， 系 统 的 性 能 就 提高 了 。 

但 是 存在 一 个 问题 ， 基 于 算法 的 传统 程序 不 像 专家 系统 一 样 会 有 规则 冲突 。 规 则 冲突 并 不 可 怕 。 
事实 上 这 是 推理 机 被 开发 的 原因 。 规 则 冲突 只 是 意味 着 有 多 于 一 条 规则 符合 规则 左边 模式 ， 可 以 被 激 
发 。 人 们 考虑 问题 一 直 是 这 种 方式 。 

例如 ， 考 虑 悖 论 游 戏 (Game Paradox) 。 如 果 你 坐 在 沙发 上 看 电视 节目 ， 一 手 拿 着 啤酒 一 手 拿 着 划 
条 ， 你 会 把 什么 放 到 哈里 ?一 条 规则 说 “如 果 有 食品 则 吃 ”， 另 一 条 规则 说 “如 果 有 了 啤酒 则 饮 "。 由 于 
既 有 食品 又 有 啤酒， 导致 了 规则 冲突 。 

幸运 的 是 ， 智 慧 负 一 法 则 (Minus One Law of Wisdom) 说 : 如 果 你 没有 一 个 特定 的 目的 地 ， 就 随 
便 走 ， 因 为 你 永 不 知道 什么 是 迷路 。 悖 论 游戏 的 答案 就 是 喝 泡 着 苗条 的 啤酒 然后 吃 一 喝 。 

作为 一 个 商业 系统 ， 专 家 系统 发 行 后 的 改进 工作 同样 关系 重大 ， 商 业 系统 的 开发 者 希望 它 能 取得 
经 济 成 功 ， 这 意味 着 听取 用 户 的 需求 并 了 解 用 户 希 望 并 乐意 为 什么 样 的 改进 而 付款 。 在 商业 世界 ， 一 
次 又 一 次 地 证 明了 人 们 会 为 软件 更 新 而 不 顾 一 切 地 付款 ， 因 为 渴望 漏洞 更 少 。 

自然 ， 当 新 的 特性 增加 时 不 会 发 生 这 种 情况 。 事 实 上 ， 发 布 包 含 成 千 上 万 个 漏洞 的 产品 是 现实 可 
行 的 。 这 实际 是 与 盗版 行为 作 斗 争 ， 因 为 合法 用 户 可 以 到 网 站 上 下 载 补丁 ， 直 到 获得 服务 包 ， 然 后 有 
更 多 的 补丁 直到 获得 另 一 个 服务 包 ， 一 直到 最 后 ， 公 司 发 布 新 的 产品 或 者 因 操 纵 股票 价格 而 面临 SEC 
的 惩罚 。 就 如 所 有 这 些 软件 一 样 ， 专 家 系统 永远 不 会 完成 ， 它 只 会 变 得 越 来 越 好 。 


6.4 开发 过 程 中 的 误区 


专家 系统 开发 的 潜在 主要 错误 可 根据 它们 最 可 能 在 哪个 阶段 发 生 而 进行 分 类 ， 如 图 6.3 所 示 。 这 
些 错误 包括 : 

。 专 家 知识 错误 (expertise error)。 专 家 是 专家 系统 的 专家 知识 来 源 (expertise source)。 如 果 专 家 
的 知识 是 错误 的 ， 则 会 影响 到 系统 的 整个 过 程 。 正 如 第 1 章 所 说 ， 建 造 专家 系统 的 一 个 好 处 就 是 当 处 
理 专家 知识 时 ， 可 对 错误 知识 进行 潜在 检测 。 专 家 并 不 意味 着 永远 不 会 犯错 。 他 们 只 是 在 他 们 的 专家 
领域 中 比 普通 人 较 少 犯错 。 比 如 说 你 可 以 为 别人 进行 脑 外 科 手 术 ， 但 是 除非 你 是 一 个 受过 训练 的 神经 
外 科 医 生 ， 否 则 你 的 病人 不 可 能 生还 。 另 一 方面 ,我 们 也 从 电视 广告 中 听 到 ， 如 果 你 被 一 个 专家 伤害 ， 
会 有 很 多 律师 愿 帮 你 获得 赔偿 。 

对 那些 人 们 生命 和 财产 具有 风险 的 紧要 (mission-critical ) 任务 ， 必 须 建立 一 个 正规 程序 来 验证 专 
家 的 知识 。 在 NASA 里 使 用 的 一 个 成 功 方法 是 飞行 技术 小 组 (Flight Technique Panel) ， 它 会 对 开发 过 
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程 中 所 使 用 的 问题 的 求解 和 分 析 技 术 进行 定期 检查 。 该 小 组 由 系统 用 户 、 独 立 的 领域 专家 、 系 统 开发 
人 员 、 管 理 人 员 等 所 有 可 能 对 系统 井 发 具有 影响 的 人 来 组 成 。 

这 种 方法 的 优点 是 将 专家 知识 的 详细 检查 限定 在 开发 的 初始 阶段 ， 此 时 错误 最 容易 校正 。 错 误 发 
现 得 越 晚 ， 校 正 的 代价 就 越 大 。 如 果 专 家 知识 不 被 较 早 校正 ， 将 难以 通过 最 终 的 系统 证 实测 试 ， 系 统 
的 证 实测 试 将 证 明 系 统 是 否 满足 要 求 ， 特 别 是 求解 的 正确 性 和 完备 性 。 

大 公司 总 是 使 用 小 组 的 形式 。 有 时 他 们 称 之 为 性 能 检查 小 组 或 一 个 更 中 性 的 词 。 在 20 世纪 70 年 
代 到 80 年 代 ， 在 软件 开发 中 通过 允许 开发 者 相互 察看 代码 来 构成 各 种 检查 小 组 。 不 幸 的 是 ， 一 旦 管理 
者 开始 用 “每 天 多 少 行 正确 代码 ”、“ 每 100 行 代码 多 少 错误 ”等 来 衡量 程序 员 的 工作 表现 ， 这 很 快 退 
化 成 一 个 糟糕 的 管理 监察 手段 。 尽 管 管理 者 并 不 了 解 成 对 检查 过 程 的 细节 ， 而 只 是 相信 程序 员 们 应 该 
是 诚实 的 ， 但 是 当 受 升迁 降 职 影响 时 ， 有 些 组 队 并 不 那么 “公正 ?。 只 有 当 从 一 个 恰当 的 角度 看 待 时 ， 
小 组 才 是 一 个 有 用 的 工具 ， 如 果 涉 及 到 信息 的 可 信和 度 问 题 ,“ 公 正 ” 因 素 应 该 被 考虑 在 内 。 

另 一 个 有 用 的 帮助 是 焦点 小 组 (focus group)。 焦 点 小 组 对 发 现 什 么 东西 会 有 好 的 销售 量 非常 有 帮 
助 。 在 开始 新 产品 的 开发 之 前 ， 大 公司 通常 雇请 人 们 讨论 有 关 主 题 ， 这 样 他 们 会 听 到 没有 偏见 的 观点 ， 
了 解 产 品 是 否 真有 市 场 需 求 ， 需 要 有 什么 样 的 特性 。 采 用 焦点 小 组 的 缺点 在 于 额外 的 时 间 和 人 金钱 花费 。 
但 是 这 种 花费 可 被 更 有 效 的 开发 过 程 抵 销 。 如 果 产 品 根本 没有 需求 ， 焦 点 小 组 可 以 为 公司 节省 成 百 万 
的 投入 。 

. 把 市 场 决策 交 给 系统 开发 人 员 不 是 一 个 明智 的 做 法 ， 除 非 开 发 者 正 针 对 和 他 们 具有 相同 文化 〈cul- 
ture) 的 人 开发 产品 。 这 里 文化 是 技术 意义 上 的 ， 指 企业 文化 (corporate culture) 或 最 终 用 户 文化 ， 是 
用 于 把 人 分 成 不 同类 型 的 共同 价值 观 。 自 从 20 世纪 80 年 代 公司 试图 定义 他 们 与 众 不 同 的 地 方 ， 这 个 
概念 非常 的 流行 。 但 是 在 全 球 化 的 今天 ， 越 来 越 少 用 了 。 

例如 ， 最 成 功 的 视频 游戏 是 由 整 天 玩 游戏 的 游戏 迷 开 发 出 来 的 。 因 此 ， 这 些 开 发 者 真正 了 解 市 场 ， 
具有 游戏 文化 的 公司 也 会 雇佣 开发 技术 不 高 但 是 非常 喜欢 游戏 的 开发 者 。 这 就 阐释 了 智慧 负 二 法 则 
(Minus Two Law of Wisdom): 如果 你 要 开始 一 个 旅程 ， 你 最 好 喜欢 旅游 。 在 20 世纪 90 年 代 ， 公 司 花 
费 大 量 时 间 和 金钱 去 定义 他 们 的 公司 文化 、TQM 以 及 其 他 “潮流 趋势 "。 这 些 仍 在 继续 ， 公 司 必须 适 
应 时 代 的 变化 。 

但 是 一 旦 公司 走向 大 众 ， 就 很 难保 持 一 个 与 众 不 同 的 企业 文化 ， 因 为 必须 交付 较 好 的 季度 报告 给 
股票 市 场 。 因 此 一 个 初始 建立 计算 机 公司 的 总 裁 可 能 会 被 一 个 软饮料 公司 的 总 裁 取 代 GER: 对 于 那 
些 对 使 用 负数 智慧 法 则 感 兴趣 的 人 来 说 ， 哲 学 工程 的 这 种 应 用 是 有 效 的 )。 


“专家 知识 的 错误 ， 例 如 知识 的 不 正确 
或 不 完整 


“知识 工程 师 和 专家 间 的 语义 错误 
“专家 知识 的 不 完整 性 





知识 工程 师 


.形式 的 语法 错误 
“ 由 于 知识 的 不 正确 和 不 完整 、 规 则 和 
事实 的 不 确定 性 ， 而 导致 内 容错 误 


* 推理 机 和 专家 系统 工具 中 其 他 软件 
存在 的 漏洞 


“由 于 规则 的 不 正确 次 序 、 规 则 间 的 相互 
作用 、 知 识 库 错误 而 导致 的 推理 错误 
* 由 于 非 单 调 推理 而 导致 的 错误 


图 6.3 专家 系统 的 主要 错误 及 一 些 起 因 
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* 语义 错误 (Semantic Error)。 由 于 交流 不 当 而 产生 的 错误 。 例如 一 个 非常 简单 的 例子 ， 一 个 专 
家 说 “你 能 用 水 灭火 ”， 而 知识 工程 师 理 解 成 “所 有 的 火 都 能 被 水 灭 "。 当 知识 工程 师 误解 专家 的 回答 、 
专家 误解 知识 工程 师 的 问题 、 或 两 者 兼 有 时 就 会 发 生 语义 错误 。 

误解 产生 的 原因 之 一 是 因为 符号 语言 关联 触发 了 误解 。 例如， 假设 一 个 新 的 工人 被 和 雇佣， 他 的 办 
公 室 在 你 的 隔壁 ， 每 天 当 他 来 工作 的 时 候 ， 你 觉得 有 一 种 讨厌 的 气味 。 终 于 ， 你 遇 到 他 ， 并 为 他 所 说 
BUTE: “It s good to beat you”， 而 他 实际 上 是 说 “It”s good to meet you”( 办 公 室 保安 摄像 记录 )。 
尽管 人 们 在 听 或 看 ， 我 们 的 其 他 感官 也 同时 工作 着 ， 如 果 你 把 某 些 不 愉快 的 事 与 基 人 关联 ， 这 种 感觉 
将 渗透 到 交流 中 。 

这 一 点 在 和 专家 面谈 时 非常 重要 。 应 该 有 一 个 专门 的 面谈 室 ， 具 有 中 性 色调 的 地 毯 和 墙壁 ， 空 气 
新 鲜 没 有 香气 ， 舒 适 但 不 至 于 氏 错 欲 睡 的 沙发 ， 并 且 安静 。 专 家 将 比较 放松 并 开始 把 专门 的 面谈 室 和 
分 享 领 域 知识 联系 起 来 。 最 糟糕 的 面谈 地 点 是 你 的 办 公 室 ， 专 家 在 别人 的 “地 盘 ” 会 觉得 不 舒服 。 但 
在 专家 的 办 公 室 面谈 也 不 好 ， 因 为 不 停 地 有 电话 、 电 邮 和 “只 需 一 二 分 钟 ” 的 来 客 打 断 ， 以 及 在 面谈 
结束 后 还 有 其 他 工作 等 着 的 提醒 。 自 然 他 们 会 想 尽 快 完成 面谈 以 便 返 回 到 “正常 工作 ”中 。 

另 一 个 在 面谈 中 比较 普遍 发 生 的 错误 是 由 于 认 知 错觉 (Pohl 04)。 一 个 错觉 是 你 知道 不 存在 ,但 看 
起 来 似乎 真 的 存在 ， 就 如 沙漠 中 的 海 市 压 楼 。 人 们 很 难 驱 逐 错觉 ， 特 别 是 和 感知 相关 时 。 如 果 你 看 过 
经 典 的 Muller-Lyer 箭头 图 ， 你 知道 对 两 种 第 头 线 的 长 度 是 一 样 的 ,但 你 的 眼睛 认为 它们 不 一 样 长 《如 
果 你 对 此 有 疑问 ,你 可 以 用 尺子 量 量 看 )。 
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这 种 错觉 产生 的 原因 是 你 的 视觉 系统 与 你 的 思考 、 认 知 分 离 。 你 的 大 脑 在 黑板 结构 模型 上 进行 操 
作 ， 其 中 专门 的 神经 集 簇 进行 着 不 同 的 活动 。 可 把 这 些 集 徐 看 作 大 脑 中 的 与 普通 软件 代理 相对 应 的 硬 
件 代 理 。 视 觉 系 统 作为 一 个 重要 的 生存 反应 机 制 ， 毫 无 疑问 地 比 高 级 认 知 部 分 更 早 被 激发 。 

认 知 错觉 随时 都 会 出 现 而 且 很 难 避 免 。 例 如 ， 加 州 的 洛杉矶 和 内 华 达 州 的 里 诺 哪 一 个 更 西边 ? 多 
数 人 会 立即 说 洛杉矶 ， 因 为 它 靠 近 太平 洋 而 里 诺 在 内 华 达州 的 内 陆 。 这 就 是 一 个 常识 推理 的 绝 佳 例子 。 
不 幸 地 是 ， 这 是 错误 的 。 里 诺 确 实 比 洛 杉 矶 更 西边 一 点 ， 你 可 通过 地 球 仪 或 在 网 上 查 到 。 另 一 个 例子 ， 
罗马 和 纽约 哪 一 个 更 北边 ? 我们 看 了 很 多 电影 表现 意大利 的 阳光 和 纽约 的 雪 ， 所 以 常识 告诉 我 们 纽约 
更 北边 。 同 样 这 也 是 错 的 。 纽 约 比 罗马 更 南边 。 这 就 是 认 知 错觉 ， 即 使 你 知道 这 一 点 ， 你 也 会 发 现 很 
难 相 信 ， 就 像 上 面 的 箭头 图 。 

这 样 的 认 知 错觉 是 很 难 发 现 的 ， 特 别 是 在 和 专家 面谈 的 时 候 。 他 是 一 个 领域 的 专家 并 不 意味 着 他 
也 是 别 的 领域 的 专家 。 作 为 人 人， 他们 和 和 其 他 人 一 样 容 易 受 认 知 错觉 的 影响 。 危 险 在 于 你 可 能 认为 他 们 
说 的 任何 事情 ， 甚 至 他 们 专业 领域 以 外 的 内 容 ， 都 是 正确 的 〈 当 然 ， 对 你 的 老板 而 言 ， 这 一 点 是 肯定 
的 ， 你 应 每 天 都 这 么 说 ， 特 别 是 在 发 薪水 的 那天 )。 

。 语 法 错误 (Syntax Error)。 这 些 是 简单 的 错误 ， 当 规则 或 事实 的 输入 形式 不 正确 时 就 会 发 生 。 
专家 系统 工具 应 标 出 该 类 错误 并 给 出 适当 提示 信息 。 还 有 其 他 一 些 错误 是 在 知识 库 建 立 过 程 中 ， 由 于 
在 早期 阶段 没 能 检查 出 的 知识 源 错 误 而 产生 的 。 

。 推理 机 错误 (Inference Engine Eror)。 和 软件 的 其 他 部 分 一 样 ， 推 理 机 也 会 有 漏洞 。 在 一 个 专家 
系统 工具 被 发 布 时 ， 所 有 的 一 般 漏洞 都 应 被 修改 。 然 而 还 有 一 些 漏洞 仅仅 出 现在 少数 情况 下 ， 例 如 当 4 
月 1 日 一 个 议程 中 有 159 条 规则 时 。 有 些 漏洞 可 能 会 非常 隐蔽 ， 它 们 仅仅 出 现在 特定 的 模式 匹配 操作 中 。 

一 般 ， 推 理 机 漏洞 会 出 现在 模式 匹配 、 冲 突 归 结 和 动作 执行 中 。 如 果 这 些 漏洞 是 偶尔 的 ， 将 很 难 
检测 到 。 所 以 ， 如 果 专 家 系统 工具 是 应 用 在 紧要 任务 中 ， 则 必须 决定 如 何 来 证 实 工具 。 通 常 专家 系统 
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工具 的 每 个 新 版 本 都 会 有 一 系列 测试 ， 包 括 CLIPS。 测 试 是 自动 的 ， 以 便 给 出 无 偏 的 结果 。 但 一 般 不 
必 担 心 ， 因 为 是 管理 层 由 于 外 部 的 压力 而 坚持 投放 市 场 的 。 

检测 工具 错误 的 最 简单 方法 是 询问 其 他 用 户 和 工具 销售 商 的 传统 方法 。 销 售 商 会 很 乐意 提供 一 个 
顾客 、 漏 洞 报告 、 错 误 改 正 、 以 及 工具 使 用 了 多 久 的 清单 。 用 户 群 是 一 个 优秀 的 信息 来 源 。 

。 推理 链 错误 (Inference Chain Error)。 这 些 错 误 可 能 由 错误 的 知识 、 语 义 错 误 、 推 理 机 漏洞 、 规 
则 优先 级 错误 和 规则 间 无 计划 的 相互 作用 等 引起 ， 更 复杂 的 推理 链 错误 是 由 于 规则 和 证 据 的 不 确定 性 、 
这 些 不 确定 性 在 推理 链 中 的 传播 、 非 单调 性 等 引起 。 

选择 处 理 不 确定 性 的 方法 并 不 能 自动 解决 所 有 有 关 该 方法 的 问题 ， 例 如 : 在 选择 简单 的 贝 叶 斯 扒 
理 前 ， 你 必须 检查 条 件 独 立 性 是 否 成 立 。 

。 未 知 界 限 错误 (Limits of Ignorance Error)。 对 于 所 有 开发 阶段 来 说 ， 指 明 系 统 未 知 界限 是 一 个 
共同 的 问题 。 正 如 第 1 章 所 提 到 的 ， 人 类 专家 知道 他 们 的 知识 限度 ， 且 在 边界 区 域 其 性 能 会 逐渐 降低 。 
人 类 专家 应 坦率 地 承认 在 这 些 边 界 他 们 的 结论 是 很 不 确定 的 。 然 而 ， 除 非 专 家 系统 专门 编程 来 承认 这 
些 不 确定 性 ， 否 则 ， 即 使 推理 链 和 证 据 很 不 充分 ， 专 家 系统 也 会 给 出 管 案 。 更 糟糕 地 是 ， 人 们 会 相信 
这 些 答 案 是 可 靠 的 。 


6.5 软件 工程 与 专家 系统 


在 前 面 章节 ， 我 们 讨论 了 使 用 专家 系统 范例 时 的 一 般 问 题 ， 现 在 让 我 们 从 实际 建立 系统 的 知识 工 
程 师 的 技术 角度 来 纵览 专家 系统 的 发 展 阶段 。 

自从 专家 系统 走出 研究 阶段 ， 就 已 推出 达到 传统 软件 标准 的 高 质量 软件 的 现实 需求 。 开 发 符合 商 
业 、 工 业 和 政府 标准 的 高 质量 软件 的 合适 方法 是 软件 工程 。 

在 产品 开发 中 遵循 一 个 好 的 标准 是 很 重要 的 ， 否 则 ， 产 品质 量 可 能 会 不 好 。 现 在 ， 专 家 系统 应 被 
当成 如 文字 处 理 、 工 资 程序 、 电 脑 游 戏 等 一 样 的 一 个 产品 。 

然而 ， 专 家 系统 和 典型 的 消费 系统 ， 如 文字 问题 
‘ch "ith" Hie ORT 全 人 开发 的 高 成 本 开发 方法 的 多 样 化 缺乏 程序 员 生 产 力 
的 ， 专 家 系统 技术 一 般 有 一 个 重要 的 使 命 ， 就 是 
提供 高 水 平 的 专家 建议 给 人 类 生命 财产 可 能 处 于 
危险 的 情况 ， 这 就 是 前 面 小 节 所 提 到 的 紧要 应 用 。 

紧要 使 命 应 用 与 文字 处 理 和 视频 游戏 等 轻松 
应 用 不 同 ， 它 们 只 是 为 了 提高 效率 和 提供 娱乐 ， 文档 计划 、 需 求 ”报告 
没有 谁 的 生活 会 取决 于 一 个 文字 处 理 或 一 个 视频 
游戏 软件 中 的 漏洞 (或 者 至 少 不 必 取决 于 )。 
”专家 系统 属于 高 性 能 系统 ， 它 必须 是 高 质量 
的 ， 否则 ， 将 容易 出 错 。 软 件 工程 提供 了 建立 高 
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质量 软件 的 方法 ， 如 图 6.4 所 示 。 证 实 过 的 、 ania cere 
在 一 般 意义 上 ， 很 难 描绘 质量 (quality) 这 ma BAP, not 

个 词 ， 因 为 它 对 不 同人 有 不 同 的 意思 ,定义 质量 

的 一 个 方法 是 以 某 种 尺度 决定 一 个 对 象 所 必需 的 图 6.4 软件 工程 方法 


属性 ,词语 “对 象 ”在 这 里 表示 任何 软件 或 硬 

件 ， 例 如 一 个 软件 产品 ， 属 性 和 它们 的 值 称 为 计量 (metrics) ， 因 为 它们 用 来 衡量 一 个 对 象 。 例如 ， 磁 
盘 驱动 器 的 可 靠 性 是 它 的 一 个 质量 计量 ， 该 属性 的 一 个 测试 方法 是 磁盘 驱动 器 平均 出 错时 间 (mean 
time between failures，MTBF) ， 一 个 可 靠 驱动 器 的 MTBF 可 能 为 50 000 小 时 ， 而 一 个 不 可 靠 驱 动 侈 的 
MTBF 可 能 为 10 000 小 时 。 在 20 世纪 ， 人 们 在 工作 中 和 家 里 可 能 只 有 几 个 小 时 使 用 电脑 。 现 在 习惯 于 
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让 电脑 24x7x 52 小 时 开 着 ， 使 用 的 时 间 变 多 了 。 当 然 你 可 以 设置 你 的 操作 系统 关闭 驱动 器 如 同 关闭 
显示 器 。 但 是 反复 打开 和 关闭 这 些 设 备 可 能 引发 其 他 问题 。 

重要 的 不 仅仅 是 时 间 ， 而 是 书写 时 的 错误 率 。 假 设 一 个 磁盘 驱动 器 每 写 十 亿 次 byte 就 会 有 一 个 错 
误 。 在 20 世纪 90 年 代 普 通 的 磁盘 驱动 器 是 20 Mbyte， 意 味 着 可 写 $0 次 磁盘 不 会 有 写 错 误 。 现 在 磁盘 驱 
动 是 200 Gbyte 的 数量 级 ， 每 十 亿 次 有 一 次 错误 意味 着 如 果 错 误 率 相 同 ， 会 有 200 个 错误 在 你 的 硬盘 中 。 

当 写 入 一 个 压缩 数据 如 .jpg 时 出 现 错误 ， 那 可 能 不 会 引发 问题 。 但 如 果 错 误 出 现在 一 行 代码 中 ， 
一 个 单一 字 节 的 错误 可 能 会 使 一 个 程序 语句 由 X=A 变 成 X=B， 这 将 导致 潜在 的 非常 坏 的 后 果 。 现 代 
驱动 器 有 一 个 内 置 感应 器 持续 监视 磁盘 状态 ， 使 用 一 种 称 为 自 检 、 分 析 和 报告 的 技术 SMART (Self- 
Monitoring, Analysis, and Reporting Technology)。 程 序 可 以 存 取 SMART， 例 如 在 Norton 系统 工具 中 运 
行 磁盘 诊断 工具 时 。 这 样 就 可 以 提前 预告 可 能 存在 的 硬件 错误 ， 不 过 你 必须 在 数据 丢失 前 通过 备份 和 
更 换 磁盘 来 预防 。 . 

SMART 是 一 个 预测 磁盘 情况 的 工具 ， 但 是 没有 十 全 十 美的 东西 ， 如 果 涉 及 到 被 其 他 磁性 媒体 破 
坏 时 则 SMART 不 能 处 理 。 在 生产 和 操作 过 程 中 硬盘 表面 的 磁性 覆盖 物 受 损 越 微 小 ， 越 容易 在 写 磁 盘 
时 出 现 错误 ， 从 而 导致 软件 错误 。 硬 盘 磁 表面 上 读 写 的 数据 越 多 ， 驱 动 器 运行 时 间 越 长 ， 部 件 就 越 容 
易 磨损 。 驱 动 器 越 新 运转 越 快 ， 因 为 旋转 的 速度 更 快 ， 磁 性 表面 也 就 越 完 整 没有 缺点 。 

在 20 世纪 90 年 代 ,， 标准 是 3600 RPM， 然 后 是 5400 RPM， 现 在 是 7200 RPM， 并 已 升 到 
10 000 RPM。 作 为 类 比 ， 假 设 你 的 汽车 轮胎 是 2 英尺 直径 的 ， 圆 周 大 概 是 6 英尺， 如 果 以 3600 RPM 转 
动 ， 则 每 小 时 250 英里 ， 如 果 是 10000 RPM， 则 每 小 时 700 英里 ， 如 果 你 的 硬盘 转 得 像 汽车 轮胎 一 样 
快 的 话 ， 就 超过 了 音速 ! 过 去 , 计算 机 系统 的 最 薄弱 之 处 就 是 运转 元 件 ， 由 于 它们 产生 的 摩擦 和 热量 。 

随 着 64 位 处 理 器 的 出 现 又 引发 了 新 的 弊端 ， 因 为 它 比 表 6.1 专家 系统 的 某 些 质量 计量 
32 位 处 理 器 发 热量 更 大 。 这 是 一 个 严重 的 问题 ,新 的 主板 ” 坎 件 质量 计量 
必须 在 微 处 理 器 上 方 设置 温度 传感器 ， 驱 热风 扇 。 假 设 6 二 确 的 输入 得 到 正确 的 给 出 
个 风 筷 为 处 理 器 降温 ， 并 且 温 度 过 高 时 软件 会 自动 关闭 系 正确 的 输入 得 到 完整 的 输出 
统 。 我 们 仍 需 要 把 磁盘 驱动 器 和 内 存放 在 远离 CPU 的 地 方 。 同样 的 输入 得 到 一 致 的 输出 

表 6.1 给 出 了 一 些 可 衡量 专家 系统 质量 的 计量 。 这 些 m TAERE 
计量 仅 作为 一 个 指导 ， 因 为 一 个 特定 的 专家 系统 可 能 比 这 易 维护 


些 多 或 少 ， 然 而 ， 重 要 的 是 必须 有 一 个 计量 表 ， 以 便 用 来 易 扩展 
描述 质量 确认 能 满足 用 户 的 需求 
mee 、 7 测试 证 明 其 正确 和 完整 
由 于 计量 间 可 能 会 有 冲突 ， 所 以 计量 表 使 你 更 容易 确 适宜 的 成 本 
定 它们 的 优先 级 。 例 如 ， 加 强 专 家 系统 测试 以 确保 它 的 正 可 重用 代码 以 供 其 他 应 用 使 用 


确 性 将 会 提高 成 本 。 决 定 一 个 测试 什么 时 候 结束 ， 通 常 是 。。 名 淆 本 下 其 他人 人 


一 个 复杂 的 事情 ， 它 涉及 到 进度 表 、 成 本 和 需求 ， 最 理想 代码 的 可 读 性 
的 是 这 三 方面 的 要 求 都 得 到 满足 。 实 际 上 ， 我 们 可 能 会 决 准确 性 





定 某 些 方面 比 其 他 方面 重要 ， 而 不 是 满足 所 有 方面 。 MA A HOF 1 WEG 
BAHE BRE 
6.6 专家 系统 生命 周期 证 实 过 的 知识 库 
解释 机 制 


软件 工程 的 一 个 关键 方法 是 生命 周期 (life cyce), $% 
件 的 生命 周期 是 指 从 软件 原始 概念 开始 到 它 退 出 使 用 为 目 
的 一 段 时 期 。 与 开发 和 维护 分 开 不 同 ， 生 命 周 期 概念 提供 的 是 所 有 阶段 的 连续 性 ， 在 生命 周期 的 早期 
就 计划 好 维护 和 发 展会 减少 以 后 阶段 的 成 本 。 


维护 成 本 
对 于 成 功 的 传统 软件 ， 每 隔 几 年 都 有 修改 和 扩展 ， 维 护 成 本 很 容易 就 达到 最 初 开 发 成 本 的 10 信 。 
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时 然 这 似乎 很 多 ， 正 如 我 们 在 前 面 已 说 过 的 ， 维 护 需 要 很 多 钱 ， 但 是 智慧 负 三 法 则 (Minus Three Law 
of Wisdom) 说 : 如 果 你 不 喜欢 旅行 ， 就 喜欢 你 现在 所 在 之 处 。 因 此 ， 如 果 你 一 直 在 修改 你 的 产品 漏 
洞 ， 那 么 不 要 换 一 个 全 新 的 名 字 ， 可 在 旧名 字 上 作 变 化 ， 但 不 要 命名 为 : “Dor 漏洞 修复 第 10 hk”, 
而 要 称 为 :“Doors 2010”。 

专家 系统 更 多 地 依赖 于 知识 而 不 是 人 类 专家 。 但 也 有 例外 ， 如 对 一 些 专业 人 员 ， 比 如 医生 和 飞行 
员 的 智能 训练 。 专 家 系统 作为 训练 系统 非常 成 功 ， 它 可 以 减少 专家 花费 在 教 一 些 介 绍 性 知识 上 的 时 间 ， 
不 过 ， 如 果 花 费 足 够 的 时 间 和 资源 在 专家 系统 上 ， 它 也 可 真正 教 好 一 个 学 生 做 某 事 。 

随 着 技术 的 变化 ， 就 没有 很 大 的 必要 再 保留 一 个 退休 专家 的 知识 。 专 家 系统 需要 很 多 维护 是 因为 
它 是 基于 大 量 的 启发 式 和 经 验 知识 ， 专 家 系统 在 不 确定 性 情况 下 做 大 量 的 推理 ， 这 使 它 更 易 有 高 的 维 
护 和 发 展 成 本 。 随 着 专家 系统 中 建立 和 输入 本 体 的 自动 工具 的 出 现 ， 专 家 系统 的 维护 变 得 更 容易 ， 但 
是 系统 也 变 得 越 来 越 大 ， 就 像 所 有 软件 一 样 ， 这 一 直 是 一 场 赛跑 。 


瀑布 模型 (Waterfall Model) 


传统 软件 的 许多 不 同 生命 周期 模型 已 经 开发 出 来 。 为 传统 程序 员 所 熟悉 的 ， 经 典 的 瀑布 模型 是 最 
早 的 生命 周期 模型 ， 如 图 6.5 所 示 。 


| 杀 统 可 行 性 q 


\ 
产品 验证 ~ 
\ ae 
重新 证 实 


图 6.5 软件 生命 周期 的 瀑布 模型 
这 个 模型 为 传统 程序 员 所 熟悉 。 在 瀑布 模型 中 ， 每 一 个 阶段 都 以 验证 和 证 实 (verification and vali- 
dation, V&V) 活动 结束 ， 以 便 将 该 阶段 的 问题 减 小 到 最 少 。 注 意向 前 和 向 后 箭头 在 某 个 时 刻 只 处 于 一 
个 阶段 ， 这 表示 重复 开发 只 在 两 个 相 邻 的 阶段 ， 从 而 减少 了 在 几 个 阶段 重复 开发 所 需 的 高 成 本 。 返 回 
阶段 的 花费 不 是 简单 的 线性 函数 ， 而 是 以 指数 增长 。 
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生命 周期 也 称 为 过 程 模型 (process model) ， 因 为 它 涉及 软件 开发 的 两 个 基本 问题 : 

(1) 下 一 步 该 做 什么 ? 

(2) 下 一 步 完成 需 多 久 ? 

过 程 模型 实际 上 是 一 个 元 方法 论 (metamethodology)， 因 为 它 决定 一 般 软件 方法 的 顺序 和 时 间 。 一 
般 软 件 开发 方法 (或 方法 论 ): 

描述 实现 一 个 阶段 的 特定 方法 ,这 些 阶 段 有 : 

。 计划 

。 需求 

。 知识 获取 

。 测试 

阶段 产品 描述 : 

。 文档 

。 代码 

。 AR 
代码 -修改 模型 


许多 过 程 模型 被 用 于 软件 的 开发 、 最 早 的 “模型 ”是 声名 狼藉 的 代码 -修改 模型 (Code-and-Fix 
Model) ， 在 这 种 模型 中 ， 写 完 一 些 代 码 ， 若 发 现 有 错误 ， 再 进行 修改 。 很 多 程序 设计 新 手 在 传统 程序 
设计 和 专家 系统 中 都 常常 采用 这 种 方法 。 

到 1970 年 ， 这 种 模型 的 缺陷 已 经 十 分 明显 ， 于 是 ， 开 发 了 瀑布 模型 以 提供 一 个 系统 的 方法 论 ， 这 
特别 适合 于 大 型 项 目的 开发 。 然 而 ， 瀑 布 模型 有 一 个 难处 ， 因 为 它 假定 一 个 阶段 所 需 的 所 有 信息 都 是 
已 知 的。 实际 上 ， 往 往 直 到 一 个 原型 建立 起 来 以 后 才 有 可 能 写 出 完全 的 需求 。 这 导致 了 做 两 次 (doit 
twice) 的 概念 : 建立 原型 、 确 定 需 求 、 然 后 再 建立 最 终 系统 。 


增 量 模型 (Incremental Model) 


增 量 瀑布 模型 (incremental waterfall model) 是 瀑布 模型 和 标准 自 顶 向 下 方法 的 改进 。 增 量 开发 的 
基本 思想 是 通过 逐步 增加 功能 来 开发 软件 。 这 种 模型 已 成 功 运 用 在 传统 的 大 型 软件 上 。 增 量 模 型 对 专 
家 系统 的 开发 也 非常 有 用 ， 通 过 规则 的 增加 ， 系 统 能 力 从 助手 级 到 同事 级 ， 最 后 到 专家 级 。 这 样 ， 在 
一 个 专家 系统 中 ， 大 增 量 (major increment) 是 从 助手 到 同事 及 从 同事 到 专家 。 

小 增 最 (minor increment) 是 在 每 个 层次 中 由 于 大 的 改进 而 使 专家 知识 有 所 增加 ， 而 微 增 量 
(microincrement) 则 是 由 于 增加 或 精炼 个 别 规则 而 使 专家 知识 略 有 改进 。 

这 种 增 量 模型 的 最 大 好 处 在 于 功能 的 增加 较 之 
瀑布 模型 的 每 个 阶段 产品 来 说 更 易 测试 、 验 证 和 证 需求 
实 。 且 相对 于 最 后 的 整个 测试 ， 每 个 新 增 功能 更 易 ies 
被 立即 测试 、 验 证 和 证 实 。 这 样 就 降低 了 系统 的 混 
合 修正 成 本 。 本 质 上 ， 增 量 模型 类 似 于 一 个 波及 到 
整个 开发 过 程 的 连续 快速 原型 。 比 起 “做 两 次 ” 方 
法 中 仅仅 是 为 了 决定 需求 的 初始 阶段 快速 原型 ， 这 
种 模型 的 原型 是 系统 。 







计划 


时 间 


评估 专家 系统 hi 
试 
螺旋 模型 eu me 
增 量 模型 的 一 个 具体 体现 是 传统 螺旋 模型 证 实 
(Spiral Model) 的 改进 ， 如 图 6.6 Aras. 螺旋 的 每 一 图 6.6 专家 系统 开发 的 螺旋 模型 


个 环 路 都 对 系统 增加 一 些 功 能 。 标 有 “交付 系统 ” 
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的 结束 点 实际 上 并 不 是 螺旋 的 终结 。 相 反 ， 新 的 螺旋 是 以 系统 的 维护 与 发 展开 始 的 。 该 螺旋 可 以 进 一 
步 优化 以 更 清晰 地 说 明知 识 获 取 、 编 码 、 评 估 和 计划 的 整个 阶段 。 


6.7 详细 生命 周期 模型 


一 个 成 功 地 用 于 许多 专家 系统 项 目的 生命 周期 模型 是 线性 模型 〈Linear Model), WE 6.7 Bra, 
这 个 模型 包括 从 计划 到 系统 评估 的 许多 阶段 ， 它 对 系统 开发 的 描述 一 直到 功能 评估 这 种 程度 上 ， 之 后 ， 
它 的 生命 周期 重复 着 ， 从 计划 到 系统 评估 ， 直 到 系统 交付 正常 使 用 。 然 后 ， 生 命 周 期 再 进入 随后 的 系 
统 维护 与 发 展 。 虽 然 没有 明确 地 示 出 ， 但 验证 与 证 实 与 这 些 阶 段 是 并 行进 行 的 。 与 仅仅 是 修改 某 些 漏 
洞 不 同 ， 沿 着 开发 阶段 的 同样 次 序 对 专家 系统 的 质量 进行 维护 是 十 分 重要 的 。 跳 过 这 些 阶段 ， 即 使 只 
是 修改 一 个 小 漏洞 ， 亦 会 损害 整个 系统 。 

生命 周期 可 以 认为 是 螺旋 模型 的 一 条 环 路 。 每 个 阶段 都 包含 任务 〈tasks)。 当 然 并 非 所 有 任务 对 某 
个 阶段 都 是 必要 的 ， 特 别 是 当 系统 进入 维护 与 发 展 时 。 这 些 任 务 是 整个 生命 周期 ， 从 初始 构想 一 直到 
软件 退出 中 所 有 任务 的 一 个 合成 。 它 们 依赖 于 具体 的 应 用 ， 且 只 能 作为 一 个 指导 ， 而 不 是 每 个 阶段 所 
必须 完成 的 绝对 要 求 。 

我 们 将 详细 探讨 该 生命 周期 模型 ， 以 说 明 对 一 个 大 型 高 质量 专家 系统 来 说 ， 有 很 多 因素 都 必须 考 
虑 。 对 那些 不 打算 作为 一 般 用 途 的 小 型 研究 原型 来 说 ， 并 非 所 有 任务 或 每 个 阶段 都 是 必需 的 。 不 过 ， 
又 有 多 少 设计 作为 个 人 或 研究 用 途 的 软件 获得 许可 ， 进 入 了 一 般 用 途 呢 ? 








知识 基线 设计 基线 产品 基线 
知识 设计 知识 证 实 
来 源 鉴别 | 获取 分 析 | 详细 形式 | ”测试 
与 选择 | 与 提炼 | 定义 | 设计 测试 | or 
工作 计划 知识 复查 “初始 数 “知识 系统 “测试 准 测试 审 RA 


BEE 设计 复查 wee Bee 复查 
图 6.7 专家 系统 开发 生命 周期 的 线性 模型 
计划 
计划 阶段 的 目的 在 于 产生 一 个 专家 系统 开发 的 正式 工作 计划 (work plan) ， 该 工作 计划 是 用 来 指导 


和 评估 开发 的 一 套 文档 。 表 6.2 列 出 了 该 阶段 的 任务 。 
表 6.2 计划 阶段 的 任务 





任 务 A 的 

可 行 性 评价 决定 系统 是 否 值得 建立 ,如 果 值 得 ,是 否 要 用 到 专家 系统 技术 

资源 管理 估计 所 需 的 人 力 ,时间 、 软 硬件 。 如 何 获取 和 管理 所 需 资源 

任务 指派 具体 说 明 各 任务 和 在 阶段 中 的 顺序 

时 间 表 指定 各 阶段 中 任务 的 开始 和 完成 日 期 

初始 功能 设计 通过 指明 系统 高 层 功能 来 定义 系统 必须 完成 什么 ,这 个 任务 说 明了 系统 的 目的 
高 层 需求 从 高 层 的 角度 描述 系统 功能 该 如 何 实现 


可 行 性 分 析 是 生命 周期 中 最 重要 的 任务 。 它 必须 回答 这 个 项 目 是 否 值 得 做 以 及 相应 的 选用 专家 系 
统 是 否 合适 。 这 两 个 问题 的 答案 决定 了 项 目 是 否 应 用 专家 系统 方法 进行 。 可 行 性 分 析 涉 及 许多 因素 ， 
正如 第 6.1 节 所 讨论 的 那样 ， 这 些 因 素 包括 选择 一 个 合适 的 专家 系统 问题 领域 、 成 本 、 收 益 等 等 。 
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知识 定义 


知识 定义 阶段 (knowledge definition stage) 的 目的 是 定义 专家 系统 的 知识 需求 ， 包 括 下 面 两 个 主要 
任务 : 

。 知识 来 源 鉴别 与 选择 

。 知识 获取 、 分 析 与 提炼 

每 个 主要 任务 由 其 他 任务 组 成 。 表 6.3 描述 了 知识 来 源 鉴别 与 选择 的 任务 。 

获取 、 分 析 与 提炼 任务 在 表 6.4 中 描述 。 


表 6.3 知识 来 源 鉴别 与 选择 任务 








任务 E 的 
来 源 鉴 别 知识 来 源 于 谁 , 来 源 于 什么 ,不 考虑 可 获取 性 
来 源 重 要 性 以 开发 的 重要 性 次 序 排列 知识 来 源 
来 源 可 获取 性 以 可 获取 性 排列 知识 来 源 ,Web .书籍 和 其 他 文献 一 般 比 专家 更 容易 获取 
来 源 选 择 根据 重要 性 和 可 获取 性 选择 来 源 

表 6.4 知识 获取 、 分 析 与 提炼 任务 

£ # E 的 
获取 策略 详细 说 明知 识 如 何 获取 的 方法 ,如 访问 专家 .参阅 文档 .规则 归纳 ,搜集 积累 等 等 
知识 成 分 鉴别 从 来 源 中 挑选 出 在 生命 周期 的 该 次 反复 中 有 用 的 特别 知识 
知识 分 类 系统 对 知识 分 类 和 组 织 以 帮助 开发 者 验证 和 理解 。 尽 可 能 使 用 层次 分 组 法 
详细 功能 设计 详细 说 明 系 统 的 功能 。 这 是 从 更 为 技术 的 层次 ,而 初始 功能 设计 是 从 管理 的 层次 
初始 控制 流程 Se RENE EI RA TAREA NOSE BST 
初始 用 户 手册 从 用 户 角度 措 述 系统 ,这 是 系统 必须 有 但 常常 被 忽略 的 一 个 部 分 。 应 尽早 有 用 户 参 与 以 


便 得 到 反馈 信息 ,这 是 至 关 重 要 的 。 如 果 他 们 不 使 用 系统 ,那么 所 做 一 切 都 是 徒然 的 
需求 说 明 准确 定义 系统 意图 。 专 家 系统 将 根据 这 些 需求 来 进行 证 实 


规定 系统 的 知识 基线 。 此 时 任何 改变 都 必须 有 一 个 正式 的 改变 请 求 。 此 时 所 得 到 的 高 层 
知识 可 用 于 下 一 阶段 的 知识 设计 


知识 获取 任务 、 知 识 分 析 任务 和 知识 提取 任务 的 主要 目的 是 产生 和 验证 系统 所 需要 的 知识 ， 从 知 
识 被 确定 基线 开始 ， 它 应 是 正确 的 和 合适 的 以 便 进行 下 阶段 的 知识 设计 。 除 了 常用 的 访问 专家 方法 外 ， 
许多 软件 工具 也 可 用 来 实现 自动 知识 获取 ， 这 些 工具 由 软件 工具 商 提 供 。 通 过 知识 工程 师 从 专家 那里 
提取 知识 的 知识 获取 方法 需要 很 多 技巧 ， 在 (Grzymala-Busse 91) 中 有 更 多 讨论 。 

知识 设计 

知识 设计 阶段 (knowledge design stage) 的 目的 是 产生 专家 系统 的 详细 设计 。 该 阶段 包括 两 个 主要 
任务 : 

。 知识 定义 

。 详细 设计 

表 6.5 描述 了 知识 定义 的 任务 。 


知识 基线 


表 6.5 知识 定义 任务 


t 2 A 的 
知识 表示 说 明 如 何 表示 知识 ,例如 规则 ,框架 或 逻辑 。 这 依赖 于 专家 系统 工具 支持 哪 种 表示 


详细 控制 结构 说 明 三 种 一 般 控 制 结构 :(1) 如 果 系统 嵌入 到 过 程 代码 中 , 它 将 怎样 被 调用 ; (2) 系 统 执行 
a “a 中 有 关 规 则 组 的 控制 ;(3) 规 则 的 元 级 控制 结构 
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( 续 ) 
任 务 A 的 
内 部 事实 结构 以 一 致 方式 说 明 内 部 事实 结构 ,以 帮助 理解 和 优化 设计 
初始 用 户 界面 说 明 初 始 用 户 界面 ,从 用 户 处 获得 有 关 界 面 的 反馈 
初始 测试 计划 说 明代 码 将 如 何 测试 。 定 义 测试 数据 ,测试 装置 以 及 如 何 分 析 测试 结果 


表 6.5 中 描述 的 内 部 事实 结构 将 在 关于 CLIPS 的 章节 中 更 详细 地 讨论 。 明 确 事 实 结构 的 基本 思想 
是 便于 优化 设计 。 例 如 ， 像 “10” 这 样 的 事实 本 身 意义 并 不 明确 -“10” 代 表 什么 呢 ? 如 果 在 事实 中 含 
有 附加 信息 ， 如 “价格 10” 或 者 更 进一步 ,“ 黄 金价 格 10"， 那 么 黄金 价格 就 是 有 意义 的 。 注 意 事实 的 
这 种 形式 是 传统 的 对 象 - 属性 - 值 形式 ， 因 此 很 方便 人 们 阅读 与 理解 。CLIPS 通过 规则 的 自 定义 模板 
结构 以 及 对 象 机 制 支 持 这 种 形式 。 

在 某 些 专家 系统 语言 中 ， 域 可 能 具有 强 类 型 (strong typing) 以 致 只 人 允许 特定 值 。 如 果 某 一 规则 想 
指定 一 个 不 允许 值 ， 则 推理 机 将 标识 这 是 一 个 错误 。 知 识 的 详细 设计 阶段 (detailed design stage) 如 表 
6.6 所 示 。 

详细 设计 阶段 的 成 果 是 原始 设计 文档 ， 依 据 它 才能 开始 编码 。 这 些 原 始 设计 文档 需 经 历 知识 系统 
设计 复查 ， 这 是 代码 生成 前 的 最 后 一 次 检查 。 


表 6.6 知识 的 详细 设计 任务 





任 务 HE 的 
设计 结构 说 明知 识 在 知识 库 中 是 如 何 逻 辑 组 织 的 ,并 说 明知 识 库 中 有 什么 
实现 策略 说 明 系统 如 何 实现 
详细 用 户 界 面 说 明 从 初始 用 户 界面 设计 中 收 到 用 户 反馈 后 的 详细 用 户 界 面 
设计 说 明 书 与 报告 设计 文档 
详细 测试 计划 精确 说 明代 码 将 如 何 测试 和 验证 
编码 与 校 验 


表 6.7 描述 了 编码 与 校 验 阶 段 (code and checkout stage) ， 它 从 实际 的 代码 实现 开始 。 
表 6.7 编码 与 校 验 任务 





T 4 E 的 
编码 代码 实现 
测试 使 用 测试 数据 测试 装置 和 测试 分 析 程 序 测试 代码 
源 代码 列表 产生 注释 过 的 文档 化 源 代码 
用 户 手册 产生 工作 用 户 手 册 以 便 专家 和 用 户 能 得 供 反馈 
安装 /操作 指南 为 用 户 提供 系统 的 安装 /操作 文档 
系统 描述 文档 专家 系统 功能 .局限 及 存在 问题 的 文档 


这 个 阶段 结束 于 测试 准备 复查 (test readiness review)， 测 试 准备 复查 决定 专家 系统 是 否 已 为 下 一 
阶段 的 知识 验证 做 好 了 准备 。 


知识 验证 


知识 验证 阶段 (knowledge verification stage) 的 目的 是 决定 系统 的 正确 性 、 完备 性 和 一 致 性 。 该 阶 
段 分 为 两 个 主要 任务 : 

。 形式 测试 

。 测试 分 析 
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# 6.8 描述 了 知识 验证 阶段 的 形式 测试 任务 (formal test task). 

测试 分 析 任务 (test analysis task) 如 表 6.9 所 示 。 测 试 分 析 和 希望 解决 下 面 主 要 问题 : 

。 不 正确 答案 

。 不 完全 答案 

。 不 一 致 答案 
并 决定 问题 是 出 自 规则 、 推 理 链 、 不 确定 性 还 是 这 三 个 因素 的 组 合 。 如 果 问 题 不 是 出 在 专家 系统 ， 那 
么 得 分 析 专 家 系统 工具 软件 的 漏洞 ， 这 是 最 后 的 步骤 。CLIPS 和 其 他 工具 的 不 同 处 在 于 它 提供 所 有 源 
代码 以 便于 你 分 析 漏 洞 。 








表 6.8 知识 验证 阶段 的 形式 测试 任务 表 6.9 测试 分 析 任务 

任务 目 的 任务 自 的 

测试 程序 实现 形式 的 测试 程序 结果 评估 分 析 测 试 结果 

测试 报告 测试 结果 文档 建议 建议 与 测试 结论 文档 
系统 评估 


正如 表 6.10 所 描述 那样 ， 系 统 开发 生命 周期 的 最 后 一 个 阶段 是 系统 评估 阶段 (system evaluation 
stage)。 该 阶段 的 目的 是 总 结 从 改进 和 完善 建议 中 我 们 学 到 了 什么 。 


表 6.10 系统 评估 阶段 任务 





Tt 3 E 的 
结果 评估 总 结 测试 与 验证 结果 
建议 建议 对 系统 的 修改 
证 实 证 实 系统 正确 实现 了 用 户 需 求 
中 期 或 最 终 报 告 如 果 系 统 已 完成 ,发 布 最 终 报告 。 如 果 未 完成 ,发 布 中 期 报告 。 申 请 更 多 经 费 


由 于 专家 系统 的 建立 是 一 个 反复 过 程 ， 因 此 随 着 新 知识 的 增加 ， 系 统 评估 阶段 所 形成 的 报告 ， 常 
常 作为 描述 系统 新 增 功 能 的 中 期 报告 。 但 是 ， 系 统 新 功能 必须 通过 本 身 验证 ,而且 是 作为 系统 原 有 知 
识 的 一 部 分 。 也 就 是 说 ， 必 须 在 系统 所 有 知识 合 取 的 情况 下 实施 系统 验证 ， 而 不 仅仅 是 对 新 知识 。 此 
外 ,每 当 这 一 阶段 ， 专 家 系统 都 应 进行 证 实 而 不 是 等 到 最 后 一 次 反复 。 目 前 ， 有 关 知 识 库 的 自动 验证 
系统 也 正在 研究 中 。 


6.8 小 结 


在 本 章 中 ,我 们 讨论 了 建造 专家 系统 的 软件 工程 方法 。 目 前 ， 专 家 系统 技术 已 用 于 解决 现实 世界 
问题 包括 防御 系统 等 ， 因 此 ， 它 必须 是 一 个 高 质量 的 产品 。 

在 设计 一 个 专家 系统 时 必须 考虑 许多 因素 ， 如 选择 问题 、 成 本 和 收益 等 。 要 建立 一 个 成 功 系统 ， 
管理 和 技术 方面 都 应 进行 考虑 (Gonzalez 93). 

软件 工程 中 一 个 非常 有 用 的 概念 是 生命 周期 。 生 命 周 期 把 软件 开发 从 开始 构思 到 退出 视 为 一 系列 
的 阶段 。 然 而 随 着 从 去 除 漏洞 ， 修 复 / 增 强 中 赚 取 更 多 钱 的 现代 商业 范围 的 出 现 ， 好 像 从 不 使 软件 退休 
更 有 利 。 坚 实地 沿 着 生命 周期 ， 就 有 可 能 建立 高 质量 的 软件 。 本 章 讨论 了 专家 系统 的 几 个 不 同 生 命 周 
期 模型 ， 并 且 详细 介绍 了 其 中 一 个 。 

RuleXML, Rule Markup Initiative 和 RuleML 致力 于 使 规则 极其 更 具 可 读 性 (http: // 
www. ruleml.org)o 


习题 
6.1 思考 一 个 简单 的 基于 知识 的 汽车 问题 诊断 系统 。 描 述 该 系统 线性 模型 的 每 一 阶段 (不必 写 出 每 一 





专家 系统 设计 233 








个 任务 )。 假 定 有 很 多 人 参加 这 个 项 目 ， 考 虑 他 们 之 间 的 协作 。 并 解释 你 所 用 的 假设 。 

6.2 写 一 份 关于 KM 的 一 个 商业 自动 工具 的 报告 。 从 附录 G 中 的 链接 或 网 页 上 找到 测试 版 本 下 载 。 
列 出 能 发 现 的 所 有 问题 以 及 其 花费 。 

6.3” 试 述 线性 模型 对 于 由 许多 人 开发 一 个 大 型 项 目 和 一 个 人 开发 一 个 小 型 项 目的 不 同 或 区 别 。 
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7.1 概述 


本 章 开 始 介绍 一 些 实际 的 概念 ， 这 些 概念 对 于 建立 一 个 专家 系统 是 必要 的 。 从 第 -1 章 到 第 6 章 我 
们 介绍 了 专家 系统 的 背景 、 历 史 、 定 义 、 术 语 、 概 念 、 工 具 和 应 用 。 简 而 言 之 ， 它 让 我 们 明白 了 什么 
是 专家 系统 和 它 能 做 些 什 么 。 这 种 概念 和 算法 的 理论 框架 对 建立 一 个 专家 系统 是 必 不 可 少 的 。 然 而 ， 
对 于 建立 专家 系统 来 说 ， 还 有 许多 实际 方面 必须 通过 动手 实验 来 学 习 。 建 立 一 个 专家 系统 很 像 用 一 种 
程序 语言 来 编写 程序 。 知 道 一 个 算法 的 工作 原理 并 不 等 于 会 编 一 个 程序 来 实现 这 个 算法 。 同 样 ， 掌 握 
了 专家 系统 的 知识 并 不 等 于 会 建立 专家 系统 。 所 以 ,使 用 专家 系统 工具 的 实际 经 验 对 学 习 专 家 系统 是 
非常 重要 的 。 

在 本 书 的 后 面部 分 ， 用 专家 系统 语言 CLIPS 来 展示 各 种 概念 。 由 CLIPS 支持 的 编程 范例 有 3 种 : 
基于 规则 的 、 面 向 对 象 的 和 面向 过 程 的 。 第 7、8、9% 章 包括 了 基于 规则 的 程序 开发 ， 第 10 章 涵盖 了 过 
程 化 程序 设计 ， 第 11 章 包含 面向 对 象 程序 设计 。 最 后 ， 第 12 章 讨论 几 个 范例 问题 ， 以 演示 前 面 章节 
介绍 的 特性 。 第 7 一 12 章 重点 讨论 了 作者 眼中 最 有 用 的 CLIPS 特性 和 会 被 使 用 到 的 内 容 。 尽 管 这 些 章 
节 和 相关 附录 可 以 作为 CLIPS 编程 语言 的 参考 指南 ， 但 这 些 内 容 首 要 的 是 教会 你 如 何 写 一 个 CLIPS 程 
序 , 它们 并 不 是 CLIPS 所 提供 的 所 有 特性 的 详尽 描述 文档 。 随 书 附带 的 CD - ROM 光盘 包含 了 电子 格 
式 的 指南 :“CLIPS 基本 编程 指南 (CLIPS Basic Programming Guide)” 是 CLIPS 编程 的 完整 参考 。 当 你 
已 经 懂得 如 何 编写 CLIPS 程序 但 是 需要 某 个 特性 的 详细 信息 时 ， 它 将 是 特别 有 用 的 参考 手册 。 

本 章 描述 CLIPS 中 具有 的 基于 规则 的 专家 系统 的 基本 组 成 (如 第 1 章 所 讨论 的 )。 这 些 基 本 组 
成 是 : 

1) BER (fact list): 包含 推理 所 需 的 数据 

2) 知识 库 (knowledge base): 包含 所 有 规则 

3) 推理 机 (inference engine): 对 运行 进行 总 体 控制 
CLIPS 的 这 3 个 组 成 部 分 将 是 本 章 的 重点 。 第 一 部 分 一 一 事实 ,会 详细 介绍 。 将 要 讨论 的 内 容 有 : 添 
加 、 删 除 、 修 改 、 复 制 、 显 示 和 跟踪 事实 。 之 后 ， 将 解释 CLIPS 程序 的 规则 是 怎样 与 事实 相互 作用 使 
程序 执行 的 ， 其 中 包含 模式 匹配 中 变量 和 通配符 的 使 用 。 最 后 ， 第 7.23 节 将 演示 多 条 规则 的 相互 
作用 。 


7.2 CLIPS 


CLIPS 是 一 种 多 范例 编程 语言 ， 它 支持 基于 规则 的 、 面 向 对 象 的 和 面向 过 程 的 编程 。 基 于 规则 的 
CLIPS 编程 语言 的 推理 和 表示 能 力 与 OPSS 相似 ， 但 功能 更 强 。 在 语法 方面 ，CLIPS 规则 与 Eclipse、 
CLIPS/R2 和 Jess 语言 的 规则 极为 相似 。CLIPS 仅 支 持 正 向 链 规则 ， 而 不 支持 反 向 链 规则 。 

CLIPS 中 面向 对 象 的 编程 能 力也 就 是 指 CLIPS 面向 对 象 语言 (CLIPS Object-Oriented Language, 
COOL), 它 除 加 入 了 许多 新 的 思想 之 外 ， 还 结合 了 其 他 面向 对 象 语言 的 特征 ， 如 公共 Lisp 对 象 系统 
(CLOS) 和 SmallTalk。CLIPS 中 面向 过 程 的 编程 语言 的 特征 类 似 于 C、Ada 和 Pascal 语言 ， 语 法 上 类 
似 于 LISP。 

CLIPS 是 “C 语 言 集成 产生 式 系 统 (C Language Integrated Production System)” 的 首 字母 缩 略 词 。 
它 是 美国 航空 航天 局 约翰逊 太 空中 心 (NASA/Johnson Space Center) 用 C 语言 设计 的 。 设 计 目 的 是 可 
移植 性 高 、 成 本 低 和 易于 与 外 部 系统 集成 。 然 而 ，CLIPS 的 部 分 首 字 母 缩 略 词 的 含义 可 能 会 引起 误解 。 
最 初 ，CLIPS 仅 支 持 基 于 规则 的 编程 〈 所 以 称 之 为 “产生 式 系 统 ”)。CLIPS 5.0 版 本 则 引进 了 面向 过 
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程 和 面向 对 象 的 编程 。 由 于 CLIPS 有 一 个 版 本 是 完全 用 Ada 开发 的 ， 所 以 ， 缩 略 词 中 的 “C 语言 ” 几 
个 词 所 代表 的 含义 也 会 引起 误解 。 本 书 附带 的 光盘 包含 有 可 在 DOS, Windows 2000/XP 和 MacOS 环境 
运行 的 CLIPS 6.2 版 本 、 电 子 文档 和 CLIPS 的 C 源 代 码 。 

由 于 CLIPS 具有 可 移植 性 ， 所 以 ， 它 已 安装 在 多 种 类 型 的 计算 机 上 ， 从 PC 机 到 CRAY 超级 计算 
机 都 有 。 本 章 和 以 后 几 章 的 大 多 数 例子 都 可 以 在 安装 了 CLIPS 的 任何 计算 机 上 运行 。 建 议 用 户 学 习 一 
些 CLIPS 所 在 计算 机 上 用 的 操作 系统 的 知识 。 例 如 ， 在 不 同 的 操作 系统 中 ， 规 定 文件 的 方法 常常 是 有 
所 不 同 的 。 依 所 用 的 机 器 或 操作 系统 不 同 ， 命 令 可 能 也 不 同 ， 这 一 点 今后 还 会 提 到 。 


7.3 记号 


这 一 章 和 后 面 几 章 将 使 用 相同 的 记号 来 描述 将 要 学 习 到 的 各 种 命令 和 结构 的 语法 。 这 类 记号 由 3 
种 不 同类 型 的 待 输 入 的 文本 组 成 。 

第 一 类 记号 是 符号 和 字符 ， 它 们 要 按 所 显示 出 来 的 那样 准确 输入 。 这 类 记号 包括 没有 被 字符 对 < >、 
[ ] 或 1 上 括 住 的 任何 东西 。 例 如 ， 下 面 的 语法 描述 : 


(example) 


这 个 语法 描述 表示 (example) 应 按 它 所 显示 的 那样 输入 。 确 切 地 说 ， 应 首先 输入 字符 “(”， 然 后 
EFE “e”, x’. a, “m P P e, 最 后 输入 字符 “)”。 
FES [ ] 表示 括号 中 的 内 容 是 可 选 的 。 例 如 ， 语 法 描述 ， 
(example [1}) 
表示 括号 里 的 1 是 可 选 的 。 因 此 ， 下 面 的 输入 
(example) 
与 上 面 的 语法 一 致 ， 就 像 下 面 的 输入 与 之 一 致 一 样 。 
(example 1) 
尖 括 号 < > 表示 由 括号 中 的 内 容 规定 的 一 类 值 要 被 替换 掉 。 例 如 ， 下 面 的 语法 描述 ; 
<integer> 
表示 要 用 一 个 实际 的 整数 值 代替 它 。 以 前 面 的 例子 为 例 ， 语 法 描述 : 
(example <integer>) 
可 替换 成 : 
(example 1) 
或 
(example 5) 
或 
(example -20) 
或 更 多 的 输入 ， 只 要 包含 字符 “ (example" ， 后 接 一 个 整数 ， 最 后 是 字符 “)” 就 行 。 我 们 要 注意 语句 
中 所 示 的 空格 也 应 该 输入 ， 这 是 很 重要 的 。 
另 一 个 记号 是 语句 描述 后 面 的 “* "”。 它 表示 语句 可 以 用 规定 的 值 替换 0 次 或 更 多 次 。 在 每 一 个 值 
之 后 应 该 输入 空格 。 例 如 ， 语 法 描述 : 
<integer>* 


可 以 被 替换 成 
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或 者 任何 数目 的 整数 ， 或 者 根本 没有 数据 。 
描述 后 面 跟 一 个 “+ ”号 的 语句 表示 ， 该 描述 所 规定 的 一 个 或 多 个 值 应 该 被 用 来 代替 这 语句 描述 。 
注意 ， 对 于 这 种 记号 ， 语 名 


<integer>+ 


等 价 于 语句 


<integer> <integer>* 


一 条 竖 线 “| ”表示 在 由 此 竖 线 分 开 的 一 个 或 多 个 选项 中 选择 一 项 。 例 如 ， 语 名 


all | none | some 


可 以 替换 成 


none 


some 


7.4 字段 


随 着 知识 库 的 构建 ，CLIPS 必须 从 键盘 和 文件 中 读 取 输入 ， 以 便 执行 命令 并 调 人 程序 。 当 CLIPS 
从 键盘 或 文件 中 读 和 人 字符 时 ， 它 把 字符 组 合 起 来 形成 标记 (token)。 标 记 代 表 多 组 字符 ， 对 CLIPS 有 
特殊 意义 。 有 些 标 记 ， 如 左右 括号 仅 由 一 个 字符 组 成 。 

这 组 标记 就 是 我 们 所 知 的 字段 〈field)， 它 具有 特别 重要 的 意义 。CLIPS 有 8 种 字段 ， 也 称 为 
CLIPS 原始 数据 类 型 : 浮 点 型 (float), BB (integer), FSH (symbol) 、 字 符 串 型 (string)、 外 部 地 
址 (external address), 、 事 实地 址 (fact address), SHIA (instance name) 和 实例 地 址 (instance ad- 
dress) o 

头 两 种 字段 ， 浮 点 型 和 整 型 ， 叫 作 数 字 字 段 (numeric field) ， 或 简单 地 叫 作 数字 (number), MF 
字段 由 三 部 分 组 成 : 符号 、 值 和 指数 。 符 号 和 指数 是 可 选 的 。 符 号 为 + 或 - 。 值 包括 一 个 或 多 个 数 
F, 也 可 包括 小 数 点 。 指 数 由 字母 e 或 上 、 后 跟 一 个 可 选 的 + 或 -~ 、 之 后 是 一 个 或 多 个 数字 组 成 。 
任何 由 一 个 可 选 的 符号 、 之 后 跟着 的 仅仅 是 数字 组 成 的 任何 数字 都 作为 整 型 (integer) 来 存储 。 所 有 
其 他 的 数字 都 作为 浮 点 型 (float) 来 存储 。 

下 面 是 CLIPS 的 合法 浮 点 数 的 例子 ; 


符号 (symbol) 是 一 种 字段 ， 它 以 一 个 可 打印 的 ASCII 字符 开头 、 后 接 零 个 或 多 个 字符 。 符 号 以 
一 个 分 界 符 (delimiter) 为 结尾 。 分 界 符 包括 任何 非 打 印 ASCII 字符 〈 包 括 空格 、 制 表 符 tsb、 回 车 和 
换行 )、《〈 双 引号 ) 字符 、( (ES) FA) BES) 字符 、; (分 号 ) FAL & (Band) 字符 、 
| CERF, FAM (小 于 ) 字符 。 符 号 中 不 能 包括 分 界 符 (< 小 于 号 除外 ， 它 可 以 是 符号 的 
第 一 个 字符 。 同 样 ,? 和 $? 字符 串 不 能 出 现在 一 个 符号 的 开头 ， 因 为 它们 被 用 来 表示 变量 〈 见 第 
7.19 节 )。 另 外 ,一 个 不 完全 遵循 数字 字段 格式 的 字符 序列 被 当 作 是 一 个 符号 。 
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下 面 是 合法 符号 的 例子 : 

Space-Station 

February 

fire 


activate_sprinkler_system 
notify~fire-department 

shut -down-electrical-junction-387 
1?#S** 

345B 

346-95~6156 


TER, FRA (M) AES A CB ~- ) 是 怎样 把 符号 联结 成 一 个 字段 的 。 
CLIPS 会 保持 标记 (token) 中 的 大 小 写字 母 。 因 为 CLIPS 区 别 大 小 写字 母 ， 所 以 它 被 称 为 大 小 写 
敏感 的 〈case-sensitive)。 例 如 ， 下 面 的 符号 ，CLIPS 认为 是 不 同 的 ， 


case-sensitive 
Case-Sensitive 
CASE-SENSITIVE 


下 一 种 字段 类 型 是 字符 串 (string)。 字 符 串 必须 以 双 引号 开始 和 结束 ， 双 引号 也 是 字段 的 一 部 分 。 
双 引 号 间 可 以 有 零 个 或 多 个 任意 字符 ， 包 括 通常 用 作 CLIPS 分 界 符 的 那些 字符 。 下 面 是 合法 的 CLIPS 
字符 串 ; 

"Activate the sprinkler system.” 

"Shut down electrical junction 387." 


“E?HS** 
"John Q. Public" 


在 CLIPS 中 ， 空 格 通常 用 作 分 界 符 ， 用 来 将 字段 〈 如 符号 ) 和 其 他 标记 隔 开 。 标 记 间 多 余 的 空格 将 
会 被 握 弃 。 然 而 ， 字 符 串 里 面 的 空格 会 被 保留 。 例 如 ，CLIPS 会 认为 下 面 的 字符 串 是 4 种 不 同 的 字符 串 ; 

"spaces" 

“spaces " 


" spaces" 
" spaces " 


如 果 去 掉包 围 的 双 引 号 ， 则 CLIPS 会 认为 每 一 行 包含 相同 的 词 ， 因 为 那些 未 用 作 分 界 符 的 空格 会 被 
忽略 。 
因为 双 引 号 用 作 字 符 串 的 分 界 符 ， 所 以 ， 不 能 直接 在 一 个 字符 串 里 输入 双 引 号 。 例 如 ， 


""three-tokens"" . 
会 被 CLIPS 解释 成 以 下 3 个 不 同 的 标记 : 


three-tokens 


这 是 因为 双 引 号 起 分 界 符 的 作用 。 

要 在 一 个 字符 串 里 包含 双 引 号 ， 可 以 使 用 反 斜 杠 \、。 例如: 

"\"single-token\"" 
在 CLIPS 里 被 解释 为 字符 串 

""single-token"" 

因为 反 斜 杠 阻止 后 续 的 双 引 号 用 作 分 界 符 ， 所 以 仅 有 一 个 字段 产生 。 反 斜 杠 本 身 也 可 以 通过 使 用 
连续 两 个 反 斜 杠 而 出 现在 字符 串 里 。 如 : 

"\\single-token\\" 
在 CLIPS 里 被 解释 为 字符 串 字段 

"\single-token\" 

下 一 个 字段 外 部 地 址 (external address) ， 对 于 探究 CLIPS 的 基于 规则 的 编程 能 力 的 重要 性 有 限 。 
外 部 地 址 代表 由 用 户 自 定义 函数 (user-defined function) 返回 的 外 部 数据 结构 的 地 址 (用户 自 定义 函数 
是 一 个 用 诸如 C 或 Ada 语 言 编写 、 与 CLIPS 连接 以 添加 附加 功能 的 函数 )。 由 于 外 部 地 址 的 值 不 能 由 
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形成 标记 的 字符 序列 规定 ， 且 CLIPS 基本 原版 本 不 包含 有 返回 外 部 地 址 的 函数 ， 所 以 ,在 CLIPS 的 这 
种 版 本 里 不 可 能 创建 这 种 类 型 的 字段 。 

剩 下 的 3 种 字段 是 事实 地 址 、 实 例 地 址 和 实例 名 。 事 实 是 CLIPS 提供 的 复杂 数据 表示 ， 我 们 将 简 
要 讨论 。 事 实地 址 用 来 指向 一 个 特定 的 事实 。 就 像 外 部 地 址 一 样 ， 事 实地 址 不 能 由 形成 标记 的 字符 序列 
规定 。 然 而 ， 规 则 可 以 获取 事实 地 址 作为 模式 匹配 过 程 的 一 部 分 。 我 们 将 在 第 7.21 节 讨论 其 实现 语法 。 

实例 是 CLIPS 提供 的 其 他 复杂 数据 表示 ， 将 会 在 第 11 章 详细 讨论 。 实 例 可 以 通过 实例 地 址 或 实 
例 名 来 引用 。 一 个 实例 地 址 就 像 事实 地 址 一 样 ， 但 是 指向 一 个 实例 而 不 是 事实 。 实 例 也 可 以 通过 名 字 
引用 。 实 例 名 是 一 种 以 左右 方 括号 括 起 来 的 特定 类 型 符号 。 例 如 ，[pump-1] 是 一 个 实例 名 。 

零 个 或 多 个 字段 组 合 在 一 起 被 称 为 多 字段 值 (multifield value)。 复 合 字段 值 通常 是 通过 调用 一 个 画 
数 (以 后 几 章 将 会 介绍 ) 或 规定 字段 的 一 系列 值 而 被 创建 。 当 打印 时 ， 一 个 多 字段 值 会 被 左右 括号 括 
住 。 例 如 ， 长 度 为 零 的 多 字段 会 打印 成 如 下 形式 : 

0 
而 包含 符号 this 和 that 的 多 字段 ， 会 打印 成 如 下 形式 : 


(this that) 


7.5 进入 和 退出 CLIPS 
通过 输入 适当 的 运行 命令 到 装 有 CLIPS 的 计算 机 上 ， 即 可 进入 CLIPS. CLIPS 的 提示 符 显示 如 下 : 


CLIPS> 
至 此 ， 可 以 直接 给 CLIPS 输入 命令 。 这 种 模式 叫 项 层 (top level). 

退出 CLIPS 的 一 般 做 法 是 输入 exit 命令 。 命 令 语法 是 ， 

(exit) 

TER, exit 是 被 一 对 匹配 的 括号 括 住 的 。 许 多 基于 规则 的 语言 起 源 于 LISP， 而 LISP 使 用 括号 作为 分 界 
符 。 既 然 CLIPS 是 基于 最 初 使 用 LISP 机 而 发 展 起 来 的 语言 ， 所 以 它 保留 了 这 些 分 界 符 。 不 带 括号 的 
exit 与 带 括号 的 exit 的 意义 是 非常 不 同 的 。 带 括号 的 exit 表明 这 exit 是 将 被 执行 的 命令 ， 而 不 仅仅 是 个 
符号 exit。 后 面 我 们 将 会 看 到 括号 对 于 命令 来 说 是 作为 重要 的 分 界 符 起 作用 的 。 

现在 要 紧 的 是 ， 记 住 每 一 条 CLIPS 命令 必须 有 数目 相等 的 左右 括号 ， 并 且 要 互相 匹配 。 

输入 匹配 的 括号 后 ， 执 行 CLIPS 命令 的 最 后 一 步 是 按 回 车 键 。 回 车 键 也 可 以 在 任何 标记 输入 之 前 
或 之 后 按 。 例 如 , 在 输入 “ex” 后 、 输 入 “it” 之 前 按 回 车 ， 会 产生 两 个 标记 : 一 个 是 符号 ex tric, 
另 一 个 是 符号 it 标记 。 

现 以 下 面 的 命令 序列 作为 样 例 ， 演 示 会 话 过 程 : 进入 CLIPS、 求 一 个 国定 字段 值 、 求 一 个 函数 值 、 
然后 用 exit 命令 退出 。 示 出 的 例子 是 在 使 用 MS-DOS 的 IBM PC 机 上 、CLIPS 可 执行 文件 存储 在 A OR 
动 器 的 磁盘 上 、 当 前 驱动 器 也 为 A 的 情况 下 演示 的 。CLIPS 可 执行 文件 的 名 称 假定 为 CLIPS DOS, 
MS-DOS 或 CLIPS 显示 的 输出 以 正常 字体 显示 。 所 有 需 由 用 户 键 人 的 输入 以 黑体 显示 。 回 车 键 为 .4。 
WÈ, CLIPS 是 大 小 写 敏 感 的 ， 所 以 ， 要 完全 按 所 显示 的 大 小 写 键 和 人。 


A: \>CLIPSDOS.! 
CLIPS (V6.22 06/15/04) 
CLIPS> exit 
exit 
CLIPS> (+ 3 4)4 
7 
CLIPS> (exit) 
A:\> 


当 处 于 顶层 时 ，CLIPS 会 接收 来 自用 户 的 输入 ， 并 试图 求 值 输入 以 作出 适当 的 反应 。 输 人 字段 本 
身 会 被 认为 是 常量 ， 对 一 个 常量 求 值 的 结果 是 常量 本 身 。 因 此 ， 当 键 人 符号 exit 和 一 个 回 车 键 时 ， 
CLIPS 求 值 这 个 输入 ， 并 显示 符号 exit 作为 结果 。 一 个 由 括号 揪 住 的 符号 被 看 作 一 个 命令 或 一 个 函数 
调用 。 因此 , 输入 (+ 3 4) 是 对 执行 加 法 的 + 函数 的 调用 。 此 函数 调用 的 返回 值 是 7〈 返 回 值 将 在 
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第 8 章 更 详细 地 讨论 )。 最 后 , 输入 (exit) 将 调用 exit 命令 ， 于 是 退出 CLIPS, K% (function) 和 命 
令 (command) 两 词 可 以 互 换 使 用 。 不 过 在 本 书 ， 函 数 指 有 返回 值 ， 而 命令 没有 返回 值 或 一 般 在 顶层 
提示 符 下 执行 。 


7.6 事实 


为 了 解决 一 个 问题 ，CLIPS 程序 必须 有 数据 或 信息 ， 以 便 推理 。 在 CLIPS 中 ， 一 个 信息 块 
(chunk) 被 称 为 事实 (fact)。 事 实 由 关系 名 (relation name， 一 个 符号 字段 )、 BERETS Me (slot, 
也 是 符号 字段 ) 以 及 它们 的 相关 值 组 成 。 以 下 是 一 个 事实 的 例子 : 


{person (name "John Q. Public”) 
(age 23) 
(eye-color blue) 
(hair-color black) ) 


整个 事实 以 及 每 个 槽 由 一 对 左右 括 导 限定 。 符 号 peron 是 事实 的 关系 名 。 此 事实 包括 4 ME: name, 
age, eye-color 和 hair-color. #8 name WMH “John. Q. Public”, fi age 的 值 是 23, #8 eye-color 的 值 是 
blue, #§ hair-color 的 值 是 black。 注 意 ， 覃 的 顺序 是 无 关 紧 要 的 。 事 实 : 
(person (hair-color biack) 
{name "John Q. Public") 


(eye-color blue) 
(age 23)) 


与 前 一 个 person 事实 在 CLIPS 中 是 等 同 的 。 
自 定义 模板 结构 


事实 被 创建 之 前 ， 必 须 告知 CLIPS 一 个 给 定 关系 名 的 合法 权 的 列表 。 共 享 相同 的 关系 名 和 包含 共 

同 的 信息 的 几 组 事实 可 以 利用 自 定义 模板 (deftemplate) 结构 来 描述 。 通 过 加 入 程序 员 的 知识 到 CLIPS 

ae 结构 (construct) 形成 了 CLIPS 程序 的 核心 ， 它 与 函数 和 命令 不 同 。 自 定义 模板 结构 类 似 于 
ascal 语言 中 的 记录 结构 。 自 定义 模板 结构 的 一 般 格 式 是 : 


{deftemplate <relation-name> [<optional-comment>] 
<slot-definition>*} 


<slot-definition> 的 语法 描述 定义 为 : 
(slot <slot-name>) | (multislot <slot-name>) 


使 用 这 种 语法 ， 事 实 person 可 描述 成 下 面 自 定义 模板 : 


(deftemplate person "An example deftemplate” 
(slot name) 
(slot age) 
(slot eye-color) 
(slot hair-color)) 


& FER (Multifield Slot) 


一 个 事实 的 槽 在 它们 相应 的 自 定义 模板 中 用 关键 词 sot (W) 指定 后 ， 就 只 能 包含 一 个 值 (这 些 值 
被 称 为 单字 段 槽 )。 但 我 们 经 常 希望 可 以 在 一 个 给 定 的 槽 中 输入 0 个 或 多 个 字段 。 这 可 以 通过 在 它们 相 
应 的 自 定义 模板 中 用 关键 词 multislot (SH) 指定 事实 的 槽 〈 这 些 值 被 称 为 多 字段 槽 ) 来 实现 。 例 如 ， 
在 自 定义 模板 person 中 的 槽 name， 将 此 人 的 名 字 作 为 单个 字符 串 值 来 存储 。 如 果 模 name 用 关键 词 
multislot 来 定义 ， 那么 ， 它 可 以 存储 任意 多 个 字段 。 因 此 ， 如 果 name RFE, 那么 ， 事 实 : 


(person (name John Q. Public) 
(age 23) 
(eye-color blue) 
(hair-color brown) ) 


将 是 不 合法 的 。 但 如 果 name RASH, WEEAKH. —TbAER RR h A FERNE FERR 
任意 组 合 形成 。 
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有 序 事实 


有 关系 名 且 有 一 相应 自 定义 模板 的 事实 称 为 自 定义 模板 事实 (deftemplate fact)。 有 关系 名 而 没有 
相应 自 定义 模板 的 事实 称 为 有 序 事实 (ordered fact) 。 有 序 事实 有 一 个 隐 含 的 多 字段 槽 ， 以 存储 关系 名 
下 的 所 有 值 。 事 实 上 ， 每 当 CLIPS 遇 到 一 个 有 序 事实 时 ， 它 就 会 为 该 事实 自动 生成 一 个 隐 式 自 定义 模 
板 (implied deftemplate， 与 显 式 自 定义 模板 (explicit deftemplate) 相反 ， 它 使 用 自 定 义 模板 结构 创建 ) 。 
既然 一 个 有 序 事实 仅 有 一 个 槽 ， 所 以 ， 定 义 一 个 事实 时 ， 可 以 不 要 槽 各 。 倒 如， 可 用 下 面 事实 来 表示 
一 列 数字 : 

(number-list 7 9 3 4 20) 

本 质 上 ， 它 与 定义 下 面 的 自 定义 模板 是 等 同 的 : 

(deftemplate number-list (multislot values)) 
然后 ,定义 事实 如 下 : 

{number-list (values 7 9 3 4 20)) 

一 般 地 ， 我 们 应 该 尽 可 能 使 用 自 定 义 模 板 事实 ， 因 为 槽 名 使 事实 更 具 可 读 性 和 更 易于 操作 。 在 两 
种 情况 下 ， 有 序 事实 是 很 有 用 的 。 第 一 ， 仅 由 一 个 关系 名 组 成 的 事实 用 作 标记 是 有 用 的 ， 而 且 ， 不 论 
自 定 义 模 板 是 否 已 定义 ， 其 外 观 是 完全 相同 的 。 例 如 ， 有 序 事实 : 

(all-orders-processed) 

可 用 作 标 记 以 标明 所 有 orders 何 时 已 被 处 理 。 
第 二 ， 当 事实 仅 包含 一 个 槽 ， 这 个 槽 名 通常 是 关系 名 的 同义词 。 例 如 ， 事 实 : 


(time 8:45) 
{food-groups meat dairy bread 
fruits-and-vegetables) 


与 下 列 事实 具有 同样 的 含义 : 
(time (value 8:45)) 
(food-groups (values meat dairy bread 
fruits-and-vegetables) } 


AL 7.1 描述 了 本 节 介 绍 的 术语 间 的 关系 。 


结构 
JS-A 
自 定义 模板 
IS-A IS-A 
隐 式 自 定义 模板 显 式 自 定义 模板 


N 


(deftemplate person 








(multislot name) 


有 序 事实 自 定义 模板 事实 。 (slot age) 
{slot eye-color) 
(slot hair-color)) 
IS-A IS-A 
{number-list 7 9 3 4 20) (person) (name John Q. Public) ”多 字段 村 
一 一 一 (age 23) 
字段 H (eye-color blue) 单字 段 模 
(hair-color brown)) 


INE 
g 槽 名 ME (一 个 字段 ) 


图 7.1 自 定 义 模 板 总 览 
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7.7 增加 和 删除 事实 


CLIPS 把 所 有 已 知 的 事实 组 都 存储 在 事实 表 中 。 我 们 可 以 从 事实 表 中 增加 或 删除 表示 信息 的 事实 。 
可 以 用 assert 命令 把 新 的 事实 增加 到 事实 表 中 。assert 命令 的 语法 为 : 


(assert <fact>+) 


作为 一 个 例子 ,我 们 用 person 自 定义 模板 来 把 一 些 人 描述 成 事实 。 通 过 使 用 下 面 的 命令 ， 可 以 把 
关于 John Q. Public 的 信息 增加 到 事实 表 中 : 


CLIPS> 
(deftemplate person 
(slot name) 
(slot age) 
(slot eye~-color) 
(slot hair-color) )— 
CLIPS> 
(assert (person (name "John Q. Public") 
(age 23) 
(eye-color blue) 
(hair-color black) ))-~ 
<Fact-0> 
CLIPS> 


TER. assert 命令 返回 一 个 值 ，<Fact-0>。 返回 值 的 使 用 将 会 在 第 8 章 讨论 。 
命令 facts 可 以 用 来 显示 事实 表 中 的 事实 。facts 命令 的 基本 语法 是 : 


(facts) 
例如 : 
CLIPS> (facts) 
f-0 (person (name "John Q. Public") 


(age 23) 
(eye-color blue) 
(hair-color black) ) 
For a total of 1 fact. 
CLIPS> 


“f-0” 是 CLIPS 指定 给 该 事实 的 事实 标识 符 (fact identifier)。 每 一 个 插入 到 事实 表 中 的 事实 都 被 指 
定 一 个 唯一 的 事实 标识 符 。 事 实 标识 符 以 字母 了 开头， 后 接 一 个 称 为 事实 索引 (fact index) 的 整数 。 
事实 索引 0 也 在 前 一 个 assert 命令 的 返回 值 <Fact-0> 中 显示 。 注 意 ， 正 如 本 书 所 说 的 ， 在 facts HOH 
输出 中 添加 附加 的 空格 ,例如 在 槽 (age 23) A (eye-color blue) 之 间 ， 是 为 了 提高 可 读 性 。 通 常 ， 
CLIPS 仅 在 槽 之 间 留 一 个 空格 ， 并 且 将 输出 按 从 最 左 端 到 最 右 端的 顺序 自动 换行 。 在 本 书 的 其 他 例子 
中 ， 只 要 增加 的 空格 不 会 引起 混乱 ， 就 会 偶尔 在 CLIPS 的 输出 中 增加 一 些 空 格 以 提高 可 读 性 。 

通常 ，CLIPS 不 接受 一 个 事实 的 重复 输入 (尽管 这 种 情况 可 以 改变 ， 正 如 第 12.2 节 所 示 的 )。 因 
此 ， 试 图 输入 第 二 个 具有 相同 槽 值 的 John Q. Public 事实 到 事实 表 是 不 会 产生 结果 的 。 当 然 ， 其 他 不 会 
与 现 有 事实 重复 的 事实 可 以 很 容易 地 增加 到 事实 表 中 。 例 如 : 

(asses (person (name “Jane Q. Public") 

(age 36) 
({eye-color green) 
(hair-color red))) 
<Fact-i> 
CLIPS> (facts) 
£-0 (person (name "John Q. Public") 
(age 23) 
(eye-color blue) 
(hair-color black)) 

f-2 (person (name "Jane Q. Public"} 
(age 36) 
(eye-color green) 
(hair-color red)) 


For a total of 2 facts. 
CLIPS> 
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正如 assert 命令 的 语法 所 表明 的 ， 一 个 assert 命令 可 以 声明 多 个 事实 。 例 如 ， 命 令 : 
(assert (person (name “John Q. Public") 
(age 23) 
(eye-color biue) 
(hair-color black)) 
(person (name “Jane Q. Public") 
(age 36) 
{eye-color green} 
(hair-color red))) 


将 增加 两 个 事实 到 该 事实 表 中 。 

认识 到 事实 表 的 标识 符 不 必 连 续 是 很 重要 的 。 正 如 我 们 可 以 把 事实 增加 到 事实 表 一 样 ， 同 样 也 可 
以 删除 事实 。 当 事实 被 删除 后 ， 被 删除 事实 的 标识 符 就 会 从 表 中 消失 。 所 以 ， 当 CLIPS 程序 执行 时 ， 
事实 标识 符 可 能 并 不 会 严格 按 序 排列 。 

因为 一 个 事实 表 里 可 包含 大 量 的 事实 ， 所 以 ， 能 够 查看 事实 表 的 一 部 分 常常 是 有 益 的 。 要 这 样 做 ， 
只 需 在 使 用 facts 命令 时 使 用 一 些 附 加 选项 就 行 。facts 命令 的 完整 语法 是 : 

{facts [<start> [<end> [<maximum>]]}) 
ZE, <start>. <end>#l< maximum > RER. HER facts 命令 允许 选用 O~3 TBR. MRK 
有 指定 参数 ， 则 会 显示 所 有 事实 。 如 果 规 定 了 < start> 参 数 ， 则 事实 索引 号 之 <start> 的 所 有 事实 会 显 
示 出 来 。 如 果 同 时 规定 < start> 和 <end> 参 数 ， 则 事实 索引 号 之 <start> 且 委 <end> 的 所 有 事实 会 被 
显示 。 最 后 ， 如 果 < maximum> 参 数 连同 < start> 和 < end> 参 数 一 起 被 规定 ， 则 最 多 < maximum > 个 
事实 被 显示 。 

就 像 事实 可 以 被 增加 到 事实 表 中 一 样 ， 它 们 同样 也 可 以 被 删除 。 从 事实 表 中 删除 事实 叫 作 撤 销 
(retraction) ， 可 以 使 用 retract 命令 完成 。retract 命令 的 语法 是 : 

(retract <fact-index>+) 
retract 命令 的 选项 可 以 包括 1 个 或 多 个 待 撤销 事实 的 事实 索引 号 。 例 如 ， 用 下 面 的 命令 可 以 删除 事实 
表 中 的 John Q. Public 事实 : 

(retract 0) 
同样 ,命令 

(retract 1) 
将 撤销 Jane Q. Public 事实 。 

试图 撤销 一 个 不 存在 的 事实 将 会 产生 以 下 错误 信息 (这 里 [PRNTUTILI] 是 在 《CLIPS Refer- 
ence Manual》 中 查询 错误 信息 的 一 个 关键 词 ): 

[PRNTUTIL1] Unable to find fact <fact-identifier>. 


例如 ， 


CLIPS> (retract 1) 

CLIPS> (retract 1)Jj 

{PRNTUTIL1} Unable to find fact f-1. 
CLIPS> 


可 以 使 用 单个 retract 命令 同时 删除 多 个 事实 。 例 如 ， 命 令 


(retract 0 1) 


可 撤销 事实 f0 M £1. 
7.8 修改 和 复制 事实 
我 们 可 用 modify 命令 来 修改 自 定义 模板 事实 的 槽 值 。modify 命令 的 语法 为 : 


(modify <fact-index> <slot-modifier>+) 


XE, <slot-modifier>W: 


(<slot-name> <slot-value>) 


例如 ， 如 果 John Q. Public 刚 过 完 生日 ， 则 可 用 modify 命令 把 他 的 年 龄 从 23 改 为 24。 
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CLIPS> (modify 0 (age 24)) 


<Fact-2> 
CLIPS> (facts) 
£-2 (person (name "John Q. Public”) 


{age 24) 
(eye-color blue) 
(hair-color black) ) 
For a total of 1 fact. 
CLIPS> 


修改 命令 通过 撤销 原 事实 、 然 后 用 修改 过 的 指定 槽 值 声 明 一 个 新 事实 来 完成 操作 。 因 为 这 一 点 ， 
CLIPS 会 为 一 个 被 修改 的 事实 产生 一 个 新 的 事实 索引 。 

duplicate 命令 的 工作 情况 与 此 相同 ， 只 不 过 它 并 不 撤销 原 事实 。 辟 如 ， 如 果 John (约翰 ) 的 长 期 
失踪 的 挛 生 兄弟 Jack (杰克 ) 被 找到 了 ， 则 可 以 通过 复制 约翰 的 事实 并 改变 name (KER) WE Jack 添 
加 到 事实 表 中 。 


CLIPS> (duplicate 2 (name “Jack S. Public")), 

<Fact-3> 

CLIPS> (facts) 

f-2 (person (name "John Q. Public") 
(age 24) 
(eye-color blue) 
(hair-color black) ) 

£-3 (person (name "Jack S$. Public”) 
(age 24) 
(eye-color blue) 
(hair-color black) ) 

For a total of 2 facts. 

CLIPS> 


modify (修改 ) 命令 和 duplicate (复制 ) 命令 不 能 用 于 有 序 事实 。 
7.9 监视 命令 


watch 命令 对 于 调试 程序 是 很 有 用 的 。 监 视 事 实 的 作用 将 在 本 节 论 述 ， 剩 下 的 监视 项 目 会 在 本 章 
和 后 续 几 章 中 讨论 。 这 一 命令 的 语法 格式 如 下 : 
(watch <watch-item>) 


其 中 ，< watch-item> 是 facts (事实 ) rules (规则 ) activations (RIE). statistics (统计 ) 、complica- 
tions (编译 ) 、focus (焦点 ) 、deffunction、global、generic-function、method instance, slot, message, 
message-handler 等 符号 之 一 或 all。 

这 些 项 目 可 以 以 任何 组 合 被 监视 ， 以 提供 正确 的 调试 信息 。 监 视 (watch) 命令 可 多 次 使 用 来 监视 
CLIPS 执行 的 多 个 特征 。“all” 一 词 可 用 于 选 定 全 部 监视 特征 。 默 认 状态 下 ， 当 CLIPS 首次 启动 时 ， 则 
编译 受到 监视 ， 而 剩 下 的 监视 项 目 则 不 被 监视 。 

如 果 事 实 正 受到 监视 ， 则 CLIPS 会 自动 打印 一 则 消息 ， 表 明 一 旦 事实 被 声明 或 被 撤销 ， 事 实 表 就 
会 完成 一 次 更 新 。 下 面 的 命令 说 明了 这 一 调试 命令 的 用 法 : 

CLIPS> (facts 3 3) 

£-3 {person (name "Jack S. Public") 

(age 24) 
(eye-color blue) 
(hair-color black) ) 

For a total of 1 fact. 

CLIPS> (watch facts)! 

CLIPS> (modify 3 (age 25))J 

<== f-3 (person (name "Jack S. Public") 

(age 24) 
(eye-color blue) 
(hair-color black) ) 
==> f-4 (person (name "Jack S. Public") 
(age 25) 
(eye-color blue) 
{hair-color black) ) 
<Fact-4> 
CLIPS> 
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字符 序列 < = = 表示 该 事实 正在 被 撤销 。 字 符 序列 = => 表示 事实 正在 被 声明 。 

通过 在 watch 命令 后 指定 一 个 或 多 个 自 定 义 模板 名 可 以 监视 指定 的 事实 。 例 如 ，(watch facts per- 
son) 将 显示 person 事实 的 信息 。 

使 用 对 应 的 unwatch 命令 可 以 关闭 watch 命令 的 作用 。unwatch 命令 的 语法 格式 是 : 


(unwatch <watch-item>) 
7.10 自 定义 事实 结构 

能 够 自动 声明 一 组 事实 ， 而 不 用 在 顶层 键入 相同 的 声明 信息 ， 这 是 很 方便 的 。 这 特别 适合 于 那些 
在 程序 运行 前 已 知 是 正确 的 事实 ( 即 初始 知识 ) 的 情况 。 运 行 测试 实例 去 调试 程序 是 另 一 种 情况 ， 在 
此 情况 下 ， 能 自动 地 声明 一 组 事实 也 是 很 有 用 的 。 表 示 初 始 知识 的 一 组 事实 可 使 用 自 定义 事实 
(deffacts) 结 构 来 定义 。 例 如 ， 下 面 自 定义 事实 语句 提供 了 我 们 已 经 遇 到 过 的 一 些 人 的 初始 信息 : 


(deffacts people "Some people we know" 


{person (name "John Q. Public") (age 24) 
(eye-color blue) (hair-color black) ) 

(person (name “Jack S. Public") (age 24) 
(eye-color blue) (hair-color black} ) 

(person (name "Jane Q. Public") (age 36) 


(eye-color green) (hair-color red))) 


自 定 义 事实 的 一 般 格 式 是 : 


(deffacts <deffacts name> [<optional comment>] 
<facts>*} 


自 定义 事实 关键 词 后 是 本 结构 必需 的 自 定义 事实 名 。 任 何 有 效 的 符号 都 可 用 作 自 定义 事实 名 。 在 
本 例 中 ， 选 取 的 自 定义 结构 名 为 people。 此 名 字 后 面 的 双 引 号 中 是 可 选 的 注释 。 与 规则 的 注释 一 样 ， 
在 CLIPS 调和 人 之后， 该 注释 和 自 定义 事实 一 起 被 一 直 保留 。 名 字 或 注释 后 是 事实 ， 它 将 被 此 自 定义 事 
实 语句 声明 到 事实 表 中 。 

使 用 CLIPS 的 reset 命令 可 以 声明 自 定 义 事实 语句 中 的 事实 。reset 命令 会 删除 事实 表 中 的 所 有 事 
实 ， 然 后 根据 现 有 的 自 定 义 事实 语句 声明 事实 。reset 命令 的 语法 是 : 

(reset) 
假设 自 定义 事实 people 已 经 输入 (在 自 定义 模板 person 之 后 输入 )， 下 面 的 对 话 展示 了 reset 命令 如 何 
将 事实 添加 到 事实 表 中 。 


CLIPS> (unwatch facts). 
CLIPS> (reset) 
CLIPS> (facts) 


f-0 (initial-fact) 
f-1 (person (name “John Q. Public") 
(age 24) 


(eye-color blue) 
(hair-color black) ) 

£-2 (person (name “Jack S. Public") 
{age 24) 
(eye-color blue) 
(hair-color black)) 

£-3 (person (name “Jane Q. Public") 
{age 36) 
(eye-color green) 
(hair-color red) ) 

For a total of 4 facts. 

CLIPS> 


此 输出 显示 了 自 定义 事实 语句 中 的 事实 ， 并 显示 了 由 reset 命令 产生 的 一 个 新 事实 ， 称 之 为 初始 事 
实 (initial-fact)。 一 旦 启动 ，CLIPS 自动 定义 以 下 两 个 结构 : 
(deftemplate initial-fact) 


{deffacts initial-fact 
(initial-fact) ) 
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因此 ， 即 使 你 没有 定义 任何 的 自 定义 事实 ，reset 命令 也 会 声明 此 事实 〈initial-fact) initial-fact 《初始 
事实 ) 的 事实 标识 符 总 是 f- 0。initialfact 的 作用 在 于 启动 一 个 程序 的 执行 (这 将 在 下 一 节 中 论述 )。 


7.11 规则 的 组 成 


为 了 完成 有 用 的 工作 ， 专 家 系统 必须 定 出 规则 以 及 事实 。 由 于 事实 的 声明 和 撤销 已 论述 过 了 ， 因 
此 ,现在 可 以 论述 规则 的 工作 原理 。 

规则 可 以 直接 键入 CLIPS 或 从 编辑 器 创建 的 规则 文件 中 调和 人 《从 文件 中 调 人 结构 将 在 第 7.17 节 
中 论述 )。 除 了 一 些 最 小 的 程序 外 ， 你 可 能 想 要 使 用 CLIPS 提供 的 一 个 集成 编辑 器 。 有 关 编 辑 器 的 信 
息 (对 Windows 2000/XP 和 MacOS 可 执行 文件 ) 可 在 “接口 指南 (Interfaces Guide)” FRS, CUE 
子 格式 存 于 随 书 附送 的 光盘 中 。 关 于 EMACS 编辑 器 ( 它 可 用 于 如 Unix 等 环境 中 ) 的 信息 在 “基本 编 
程 指南 (Basic Programming Guide)” 论 述 。 集 成 编辑 器 可 以 使 你 在 程序 开发 过 程 中 有 选择 地 重新 定义 
结构 ， 这 是 非常 有 用 的 。 例 如 ， 如 果 在 顶层 提示 符 下 输入 了 一 个 结构 ， 你 有 了 该 结构 的 版 式 ， 则 你 仍 
须 重新 键 入 整个 结构 。 但 如 果 你 先 在 编辑 器 中 输入 该 结构 ， 那 么 ， 你 在 此 编辑 器 中 敲 几 个 键 就 可 以 更 
正 该 版 式 或 重 定义 该 结构 。 开 始 时 ， 示 出 的 例子 将 是 一 些 规则 ， 它 们 在 顶层 直接 输入 到 CLIPS 中 。 

作为 例子 ， 让 我 们 思考 事实 和 规则 的 类 型 ,它们 可 用 于 监视 和 响应 一 定 范围 内 可 能 的 紧急 事件 。 
这 些 紧急 事件 的 例子 可 能 是 火灾 或 洪水 。 在 一 个 工厂 的 监视 专家 系统 中 ， 一 个 可 能 规则 的 伪 代 码 表示 
uF: 


IF the emergency is a fire 
THEN the response is to activate 
the sprinkler system 


在 将 伪 代 码 转换 成 规则 之 前 ， 规 则 涉及 的 事实 类 型 的 自 定 义 模 板 必须 先进 行 定义 。 一 个 紧急 事件 
(emergency) 可 由 下 面 的 自 定义 模板 来 表示 : 


(deftemplate emergency (slot type)) 


其 中 ，emergency 事实 的 type 字段 可 包括 fire (KK), flood OKK) 和 power outage (停电 ) 之 类 的 符 
号 。 类 似 地 ， 其 响应 可 用 下 面 的 自 定义 模板 进行 描述 : 

(deftemplate response (slot action)} 
EH, response 事实 的 action 字段 表示 待 采取 的 响应 。 

此 规则 用 CLIPS 的 语法 表示 如 下 。 此 规则 可 在 CLIPS 提示 符 后 键入 ， 但 你 必须 先 输入 emergency 
和 response 的 自 定义 模板 之 后 才能 这 样 做 。 然 而 ， 在 输入 任何 这 类 结构 之 前 ， 在 顶层 提示 符 下 键入 命 
令 (clear) 并 回 车 ， 这 会 清除 前 一 节 建 立 的 自 定义 模板 和 自 定义 事实 。clear (清除 ) 命令 将 在 第 7.13 
节 详 细 解 释 。 


(defrule fire-emergency "An example rule” 
(emergency (type fire)) 
=> 
{assert (response 
(action activate-sprinkler-system) })) 


如 果 此 规则 如 上 所 示 那 样 输入 正确 ， 则 CLIPSH RASH. A, WRIA. Bl BE 
的 提示 错误 是 关键 词 拼写 出 错 或 括号 放 错 了 位 置 。 

下 面 是 同一 条 规则 ， 但 它 对 规则 的 各 个 部 分 加 入 了 相应 的 注释 。 注 释 以 分 号 开始 ， 到 回 车 符 处 结 
束 。 注 释 会 被 CLIPS 省 略 ， 这 将 在 第 7.18 节 讨论 。 


; Rule header 
(defrule fire-emergency "An example rule” 
; Patterns 
(emergency (type fire)) 
; THEN arrow 
=> 
; Actions 
(assert (response 
(action activate-sprinkler-system) ) ) ) 
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规则 的 一 般 格 式 是 : 


(defrule <rule name> [<comment>] 
<patterns>* ; Left-Hand Side (LHS) of the rule 
=> 
<actions>*) ; Right-Hand Side (RHS) of the rule 


整 条 规则 必须 用 括号 括 起 ， 规 则 中 的 每 一 个 模式 (paten) MTA (action) 也 必须 用 括号 括 起 。 
一 条 规则 可 能 有 多 个 模式 和 行为 。 如 果 模 式 和 行为 被 内 套 ， 则 将 它们 括 住 的 括号 必须 适当 地 配对 。 在 
fire-emergency 规则 中 ， 只 有 一 个 模式 和 一 个 行为 。 

规则 的 开头 包括 3 个 部 分 。 它 必须 以 关键 词 defrule 开头 ， 接 着 是 规则 名 。 规 则 名 可 以 是 CLIPS 中 
用 的 任何 合法 符号 。 如 果 输 入 的 规则 名 与 一 个 已 存在 的 规则 同名 ， 那 么 ， 新 的 规则 将 会 取代 旧 的 那 条 
规则 。 在 本 规则 中 ， 规 则 名 是 fire-emergency。 接 下 来 是 可 选 的 注释 字符 串 。 对 本 规则 ， 注 释 是 “An 
example rule”( 样 例 规 则 )。 注 释 一 般 用 于 描述 规则 的 目的 或 程序 员 想 要 的 其 他 信息 。 规 则 名 后 的 注释 
与 以 分 号 开头 的 注释 不 同 ， 前 者 不 会 被 忽略 ， 它 会 与 规则 的 其 余部 分 一 起 被 显示 出 来 (用 ppdefrule fr 
令 ， 该 命令 将 在 第 7.13 节 中 介绍 )。 

在 规则 头 之 后 ， 是 零 个 或 多 个 条 件 元 素 (conditional element，CE)。 最 简单 的 条 件 元 素 是 模式 条 件 
元 素 (pattern CE) 或 简称 为 模式 〈pattern)。 每 一 个 模式 由 一 个 或 多 个 约束 构成 ， 其 目的 是 匹配 自 定义 
模板 事实 中 的 字段 。 在 fire-emergency 规则 中 ， 模 式 是 (emergency (type fire))。type 字段 的 约束 表示 这 一 
规则 只 满足 在 type 字段 中 包含 符号 fire 的 emergency 事实。CLIPS 试图 使 规则 的 模式 与 事实 表 中 的 事实 相 
匹配 。 如 果 规 则 的 所 有 模式 与 事实 匹配 ， 则 规则 就 被 激活 (activated) 并 放 人 议程 (agenda) 一 一 已 被 激 
活 的 规则 集合 。 在 议程 中 可 能 没有 也 可 能 有 多 条 规则 。 

规则 中 模式 后 的 符号 = > MEMA 〈arrow)。 它 由 一 个 = 和 一 个 > 构成 。 箭 头 是 IF-THEN 规则 
中 THEN 部 分 开始 的 标记 。 第 头 前 的 规则 部 分 称 之 为 左 部 (LHS)， 之 后 的 部 分 称 之 为 右 部 (RHS)。 

如 果 一 条 规则 没有 模式 ， 那 么 ， 将 添加 一 特殊 模式 (initial-fact) 作为 该 规则 的 模式 。 既 然 initial- 
fat 自 定义 事实 是 自动 定义 的 ， 那么 ， 自 动 声明 initial-fact 事实 后 一 旦 执行 rese 命令 ， 那 么 ， 就 会 激活 
在 规则 的 LHS 侧 没有 模式 的 任何 规则 。 因 此 ， 当 执行 reset 命令 后 ， 任 何 无 LHS 模式 的 规则 都 会 被 置 
于 议程 之 中 。 

规则 的 最 后 一 部 分 是 行为 列表 ， 当 此 规则 触发 Cire) 时 这 些 行为 就 会 被 执行 。 有 些 规则 可 能 没有 
行为 ， 这 样 做 没有 特定 的 作用 ， 但 允许 这 样 做 。 在 我 们 的 例子 中 ， 行 为 是 声明 事实 (response (action 
activate-sprinkler-system) )。 触 发 的 意思 是 CLIPS 执行 议程 中 某 条 规则 的 行为 。 当 议程 中 没有 规则 时 ， 
CLIPS 正常 地 停止 执行 。 当 议程 中 有 多 条 规则 时 ，CLIPS 会 自动 决定 哪 条 是 要 触发 的 规则 。CLIPS 按 
从 低 到 高 的 优先 级 对 议程 中 的 规则 排序 ， 并 触发 优先 级 最 高 的 那 条 规则 。 规 则 的 优先 级 是 一 种 整数 属 
E, MERER (salience)。 优 先 级 将 在 第 9 章 作 更 详细 的 论述 。 

7.12 议程 与 执行 

可 以 用 run 命令 使 CLIPS 程序 运行 。run 命令 的 语法 结构 是 : 

(run [<limit>]) 

其 中 ， 可 选 的 参数 <limit> 是 要 被 触发 的 规则 的 最 大 数目 。 如 果 < limit> 没 输入 或 <limit> 等 于 -1， 
则 规则 会 被 触发 ， 直 到 议程 中 无 规则 剩 下 为 止 。 否 则 ， 触 发 < limit> 规 定 的 规则 个 数 后 ， 规 则 的 执行 
就 会 停止 。 

当 运 行 CLIPS 程序 时 ， 议 程 中 优先 级 最 高 的 规则 会 被 触发 。 如 果 这 时 议程 中 只 有 一 条 规则 ， 显 然 
它 将 触发 。 由 于 fire-emergency 规则 的 条 件 元 素 与 事实 (emergency (type fire)) 匹配 ， 因 此 ， 当 此 程序 
运行 时 ，fire-emergency 规则 被 触发 。 

每 当 规 则 的 全 部 模式 与 事实 相 匹配 ， 规 则 即 变 为 激活 状态 。 无 论 事实 是 否 在 规则 定义 之 前 或 定义 
之 后 被 声明 ， 模 式 匹 配 过 程 总 是 一 直 进 行 并 不 断 更 新 。 
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因为 规则 需要 事实 来 执行 ， 在 CLIPS 中 reset 命令 是 启动 或 重新 启动 专家 系统 的 主要 方法 。 一 般 
地 ， 用 reset 命令 声明 的 事实 与 一 条 或 多 条 规则 的 模式 相 匹配 ， 并 把 这 些 规 则 的 激活 状态 置 于 议程 之 
中 。 发 出 run 命令 则 开始 执行 该 程序 。 


议程 显示 
使 用 agenda 命令 可 以 显示 议程 中 的 规则 清单 。agenda 命令 的 语法 结构 是 : 
(agenda} 


如 果 议 程 中 无 激活 存在 ， 则 在 发 出 agenda 命令 后 CLIPS 提示 符 会 重新 出 现 。 如 果 事 实 索 引号 为 1 
的 (emergency (type fire)) 事实 激活 了 (fire-emergency) 规则 ， 则 agenda 命令 会 产生 以 下 输出 ， 


CLIPS> (reset). 

CLIPS> (assert (emergency (type fire))) 
<Fact-1> 

CLIPS> (agenda). 

0 fire-emergency: f-1 

For a total of 1 activation. 

CLIPS> 


0 表示 议程 中 规则 的 优先 级 ， 其 后 是 规则 名 和 与 该 规则 的 模式 匹配 的 事实 标识 符 。 在 本 例 中 ， 只 有 一 
个 事实 标识 符 ,为 {- 1。 


规则 和 反射 
由 于 议程 中 有 fire-emergency 规则 ， 因 此 ，run 命令 将 使 得 该 规则 触发 。 (response (action activate- 
sprinkler-system)) 事实 将 作为 规则 的 行为 被 加 和 人 到 事实 表 中 ， 像 下 面 所 输出 的 那样 ; 


CLIPS> (run) 
CLIPS> (facts)! 


£-0 (initial-fact) 
f-1 {emergency (type fire) ) 
£-2 (response 


{action activate-sprinkler-system) } 
For a total of 3 facts. 
CLIPS> 


在 这 里 出 现 了 一 个 有 趣 的 问题 : 若 再 次 发 出 run 命令 会 产生 什么 呢 ? 由 于 有 一 条 规则 ， 并 有 一 个 
满足 该 规则 的 事实 ， 因 此 ， 该 规则 应 该 再 次 触发 。 然 而 ， 若 试图 使 用 run 命令 ， 则 此 命令 不 会 产生 任 
何 结果 。 检 查 该 议程 ， 会 确认 是 因为 该 议程 中 已 没有 任何 规则 ， 所 以 没有 规则 被 触发 。 

由 于 CLIPS 的 设计 方式 ， 因 此 该 规则 没有 再 次 触发 。CLIPS 中 的 规则 具有 一 种 叫 作 反射 (refrac- 
tion) 的 特性 ， 它 是 指 对 于 一 个 特定 的 事实 集合 ， 规 则 不 会 触发 一 次 以 上 。 如 果 没有 反射 ， 则 专家 系统 
会 一 直 陷 于 无 用 的 循环 之 中 。 也 就 是 说 ,一 旦 规则 被 触发 ， 它 就 会 一 次 又 一 次 地 被 同一 事实 不 断 触发 。 
在 现实 世界 中 ， 引 发 触发 的 刺激 作用 最 终 会 消失 。 例 如 : 火灾 最 终 会 被 酒水 系统 扑灭 或 自己 熄灭 。 然 
而 ,在 计算 机 世界 中 ,一 旦 事实 进入 事实 表 ， 它 就 会 一 直 保留 ， 直 到 被 明确 删除 为 止 。 

如 果 有 必要 ， 可 以 通过 撤销 (emergency (type fire)) 事实 并 重新 声明 它 来 使 此 规则 再 次 触发 。 基 
AL, CLIPS 会 记 住 使 规则 触发 的 事实 标识 符 。 而 且 ， 若 事实 标识 符 的 组 合 完全 相同 ， 则 CLIPS 不 会 
再 激活 该 规则 。 相 同 的 几 组 事实 标识 符 必须 既 在 顺序 上 又 在 事实 索引 上 相 匹 配 。 本 章 后 面 的 例子 将 会 
显示 一 个 事实 如 何以 多 种 方法 与 模式 匹配 。 在 本 例 中 ， 对 一 条 规则 来 说 ， 有 相同 事实 标识 符 集合 的 九 
个 激活 可 以 置 人 此 议程 中 ， 每 一 个 对 应 着 不 同 的 匹配 。 

另外 ， 可 使 用 refresh 命令 使 该 规则 再 次 触发 。refresh 命令 把 对 于 某 一 规则 已 经 触发 的 全 部 激活 重 
新 放 回 到 该 议程 中 (条件 是 ， 触 发 此 激活 的 事实 仍然 还 在 事实 表 中 )。refresh (更 新 ) 命令 的 语法 结构 是 : 


(refresh <rule-name>) 


以 下 命令 演示 refresh (更 新 ) 命令 怎样 重新 激活 fire-emergency 规则 : 
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CLIPS> (agenda) 
CLIPS> (refresh fire-emergency) 
CLIPS> (agenda) 


0 fire-emergency: f-1 
For a total of 1 activation. 
CLIPS> 


监视 激活 、 规 则 和 统计 数据 


如 果 激 活 正在 被 监视 ， 则 每 当 一 个 激活 被 加 入 到 议程 或 从 议程 中 清除 时 ，CLIPS 就 会 自动 打印 一 
个 消息 。 对 事实 而 言 ， 字 符 序列 < = = 表示 一 个 激活 正在 从 议程 中 移 走 ， 而 字符 序列 = => 表示 一 
个 激活 正在 被 加 入 到 议程 中 。 在 初始 字符 序列 之 后 ， 打 印 出 此 激活 ， 且 有 相同 的 由 agenda 命令 使 用 的 
格式 。 下 面 的 命令 序列 阐明 了 正在 被 监视 的 事实 : 


CLIPS> (reset) 
CLIPS> (watch activations) 
CLIPS> (assert (emergency (type fire)))~— 


==> Activation 0 fire-emergency: f-1 
<Fact-1> 

CLIPS> (agenda). 

0 fire-emergency: f-1 


For a total of 1 activation. 
CLIPS> (retract 1) 


<== Activation 0 fire-emergency: £-1 

CLIPS> (agenda) 

CLIPS> 
如 果 规 则 正 处 于 被 监视 状态 ， 则 一 旦 触发 某 个 规则 ，CLIPS 就 会 打印 一 则 消息 。 以 下 命令 序列 说 明了 
处 于 被 监视 状态 下 的 激活 和 规则 |; 


CLIPS> (reset) 

CLIPS> (watch rules) 

CLIPS> (assert (emergency (type fire)))~— 
==> Activation 0 fire-emergency: f-1 
<Fact-1> 

CLIPS> (run) 

FIRE 1 fire-emergency: f-1 

CLIPS> (agenda) 

CLIPS> 


符号 FIRE 后 的 数字 表示 在 发 出 run 命令 后 已 有 多 少 条 规则 被 触发 。 举 个 例子 ， 如 果 另 一 条 规则 要 
在 fire-emergency 规则 后 触发 ， 则 此 规则 前 会 显示 “FIRE 2” 字样 。 在 触发 顺序 打印 出 来 之 后 ， 该 规则 
名 也 被 打印 ， 规 则 名 的 后 面 是 与 该 规则 模式 匹配 的 事实 索引 。 注 意 ， 当 触 发 一 条 规则 (因此 会 从 此 议 
程 中 删除 掉 ) 时 ， 监 视 激 活 不 会 显示 消息 。 

通过 在 监视 命令 后 指定 一 个 或 多 个 规则 名 ， 可 以 监视 特定 的 规则 和 行动 ， 例 如 ，(watch activations 
fire-emergency) 将 显示 fire-emergency 规则 的 行为 信息 。 

如 果 统 计数 据 处 于 被 监视 状态 下 ， 则 CLIPS 会 在 运行 结束 后 打印 出 如 下 式样 的 信息 性 消息 : 


CLIPS> (unwatch all) 

CLIPS> (reset) 

CLIPS> (watch statistics) 

CLIPS> (assert (emergency (type fire)))-! 
<Fact-1> 

CLIPS> (run)-J 

1 rules fired Run time is 0.02 seconds 
50.0 rules per second 

3 mean number of facts (3 maximum) 

1 mean number of instances (1 maximum) 

1 mean number of activations (1 maximum) 

CLIPS> (unwatch statistics) 

CLIPS> 


若 统计 数据 被 监视 ， 则 在 run 命令 后 会 显示 6 个 统计 量 。 被 触发 的 规则 总 数 、 触 发 规则 所 需 的 时 
间 (以 秒 为 单位 ) 和 每 秒 平均 触发 规则 的 数目 (第 一 个 统计 量 除 以 第 二 个 统计 量 ) 会 显示 出 来 。 另 外 ， 
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在 每 一 次 执行 循环 中 ，CLIPS 都 会 保持 有 关 事 实数 、 激 活 数 和 实例 数 的 统计 数据 。 事 实 的 平均 数 等 于 
在 每 条 规则 触发 后 在 事实 表 上 的 事实 总 数 除 以 已 触发 的 规则 数 。 插 号 内 maximum 一 词 之 前 的 数字 表示 
对 任 一 触发 规则 其 事实 表 中 包含 的 最 大 事实 数 。 同 样 ， 激 活 的 平均 数 和 最 大 数 两 个 统计 数据 分 别 表示 
每 条 规则 触发 的 平均 激活 数 和 任 一 触发 规则 在 议程 中 的 最 大 激活 数 。 实 例 的 平均 数 和 最 大 数 表示 的 是 
与 COOL 有 关 的 信息 。 


7.13 结构 处 理 命令 


显示 特定 结构 的 成 员 清单 


list-defrules 命令 用 于 显示 由 CLIPS 维护 的 当前 规则 清单 。 类 似 地 ，list-deftemplates 命令 和 list-def- 
facts 命令 分 别 用 于 显示 当前 的 自 定义 模板 列表 和 当前 的 自 定义 事实 表 。 这 些 命令 的 语法 结构 是 : 


{list-defrules) 
(list-deftemplates) 


(list-deffacts) 


例如 ， 


CLIPS> (list-defrules) 
fire-emergency 

For a total of 1 rule. 
CLIPS> (list-deftemplates) -| 
initial-fact 

emergency 

response 

For a total of 3 deftemplates. 
CLIPS> (list-deffacts) .| 
initial-fact 

For a total of 1 deffacts. 
CLIPS> 


显示 指定 结构 成 员 的 文本 描述 


ppdefrule (pretty print defrule， 漂 亮 打 印 自 定义 规则 ) ppdeftemplate (pretty print deftemplate， 漂 亮 
打印 自 定 义 模板 ) 和 ppdeffacts (pretty print deffacts， 漂 亮 打 印 自 定义 事实 ) 命令 分 别 用 于 显示 自 定义 
规则 、 自 定义 模板 和 自 定 义 事实 的 文本 描述 。 这 些 命令 的 语法 结构 如 下 : 

(ppdefrule <defrule-name>) 


(ppdeftemplate <deftemplate-name>) 


{ppdeffacts <deffacts-name>) 
每 一 个 命令 有 一 个 参数 ， 用 于 规定 待 显示 的 自 定义 规则 、 自 定义 模板 和 自 定义 事实 的 名 称 。 当 它 
们 被 显示 时 ，CLIPS 会 在 不 同 的 行 显示 不 同 的 结构 部 分 以 增加 可 读 性 。 举 例如 下 : 


CLIPS> (ppdefrule fire-emergency) 
(defrule MAIN::fire-emergency "An example rule" 
{emergency (type fire)) 
=> 
(assert (response 
(action activate-sprinkler-system) ))) 
CLIPS> (ppdeftemplate response) 
(deftemplate MAIN: : response 
(slot action) ) 
CLIPS> (ppdeffacts initial-fact) 
CLIPS> (deffacts start-fact (start-fact))~! 
CLIPS> (ppdeffacts start-fact)— 
(deffacts MAIN: :start-fact 
(start-fact)) 
CLIPS> 
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在 每 一 个 结构 名 之 前 的 符号 MAIN:: 表示 已 将 结构 置 于 该 模块 (module) 中 。 模 块 提供 了 分 割 知 
识 库 的 方法 ， 这 将 在 第 9 章 更 详细 地 讨论 。 注 意 ，initial-fact 自 定义 事实 没有 文本 描述 (因为 它 是 由 
CLIPS 自动 生成 的 )。 但 是 , 输入 的 start-fact 自 定义 事实 则 有 文本 描述 。 


删除 指定 的 结构 成 员 


undefrule、undeftemplate 和 undeffacts 命令 分 别 用 于 删除 自 定义 规则 、 自 定义 模板 和 自 定义 事实 。 
这 些 命令 的 语法 结构 是 : 
(undefrule <defrule-name>) 


(undeftemplate <deftemplate-name>) 


(undeffacts <deffacts-name>) 


每 一 条 命令 有 一 个 参数 ， 规 定 待 删除 的 自 定 义 规则 、 自 定义 模板 和 自 定义 事实 的 名 称 。 例 如 : 


CLIPS> (undeffacts start-fact) 
CLIPS> (list-deffacts) 
initial-fact 

For a total of 1 deffacts. 

CLIPS> (undefrule fire-emergency) -! 
CLIPS> (list-defrules) 

CLIPS> 


注意 ，initial-facts 自 定义 事实 和 initial-facts 自 定义 模板 像 其 他 用 户 自 定义 结构 一 样 可 以 被 删除 。 如 
果 执 行 reset 命令 ， 则 initial-facts 事实 不 会 被 添加 到 此 事实 表 中 。 

如 果 符 号 * 作为 任何 结构 删除 命令 的 一 个 参数 ， 则 会 删除 所 有 相应 类 型 的 结构 。 例 如 : (undefrule * ) 
会 删除 所 有 的 自 定义 规则 结构 。 符 号 * 也 可 以 与 retract (撤销 ) 命令 一 起 使 用 以 删除 所 有 事实 。 

被 其 他 结构 参照 的 结构 ， 只 有 在 参考 它 的 结构 被 删除 后 才能 被 删除 。 如 以 下 对 话 所 示 ， 在 initial- 
fact 自 定义 事实 、(initial-fact) 事实 和 example 自 定义 规则 被 删除 前 ，initial-fact 自 定义 模板 是 不 能 被 删 
除 的 (使 用 默认 的 initial-fact 模式 ): 


CLIPS> (defrule example =>). 

CLIPS> (undeftemplate initial-fact) 
[PRNTUTIL4] Unable to delete deftemplate 
initial-fact. 

CLIPS> (undeffacts initial-fact)— 

CLIPS> (undeftemplate initial-fact) 
{PRNTUTIL4] Unable to delete deftemplate 
initial-fact. 

CLIPS> (undefrule example) .i 

CLIPS> (undeftemplate initial-fact)-~! 
[PRNTUTIL4] Unable to delete deftemplate 
initial-fact. 

CLIPS> (retract *).J 

CLIPS> (undeftemplate initial-fact) 
CLIPS> 


清除 CLIPS 环境 中 的 所 有 结构 


clear 命令 可 用 于 删除 CLIPS 环境 中 的 所 有 信息 。 此 命令 会 删除 当前 包含 在 CLIPS 中 的 所 有 结构 和 
事实 表 中 的 所 有 事实 。clear 命令 的 语法 结构 如 下 : 


(clear) 


在 清除 CLIPS 环境 之 后 ，clear 命令 会 把 initial-facts 自 定义 事实 添加 到 CLIPS 环境 中 : 


CLIPS> (list-deffacts) 
CLIPS> (list-deftemplates) .| 
emergency 

response 

start-fact 

For a total of 3 deftemplates. 
CLIPS> (clear) 
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CLIPS> (list-deffacts)— 
initial-fact 

For a total of 1 deffacts. 
CLIPS> (list-deftemplates) .| 
initial-fact 

For a total of 1 deftemplate. 
CLIPS> 


7.14 打印 输出 命令 


除了 在 规则 的 RHS 声明 事实 之 外 ，RHS 也 可 以 通过 使 用 printout 命令 打印 输出 信息 。printout (FJ 
印 输出 ) 命令 的 格式 是 : 


(printout <logical-name> <print-items>*) 


其 中 ，< logical-name> 表 示 printout (打印 输出 ) 命令 的 输出 目标 ，< print-items> * 是 由 该 printout 命 
令 打 印 的 零 个 或 多 个 项 目 。 
下 面 的 规则 演示 了 printout (打印 输出 ) 命令 的 用 法 : 


(defrule fire-emergency 
(emergency (type fire)) 
=> 
(printout t “Activate the sprinkler system" 
crlf)) 


非常 重要 的 一 点 是 要 在 printout 命令 后 包括 字母 t+， 因 为 此 参数 t 指 明了 输出 的 目标 。 这 个 目标 也 
叫 作 逻辑 名 (logical name), WEAR, BRA t 告诉 CLIPS 把 输出 结果 发 送 给 计算 机 的 标准 输出 设备 
(standard output device) ， 标 准 输出 设备 通常 是 终端 。 但 是 ， 这 种 设备 可 以 重新 定义 ， 因 此 ， 标 准 输 出 
设备 可 以 是 其 他 东西 ， 如 modem (调制 解 调 器 ) 或 打印 机 。 侵 辑 名 的 概念 将 在 第 8.6 节 详 细 介绍 。 

逻辑 名 后 的 变量 是 由 printout (打印 输出 ) 命令 打印 的 项 目 。 字 符 串 


"Activate the sprinkler system" 


将 被 除去 双 引 号 打印 在 终端 上 。crlf 被 printout 命令 特殊 处 理 。 它 会 强制 回 车 /换行 , 这样， 对 在 不 同 
行 上 的 输出 进行 格式 化 ， 可 以 改善 输出 显示 。 


7.15 使 用 复合 规则 


到 现在 为 止 ， 提 到 的 都 是 只 由 一 条 规则 组 成 的 最 简单 的 程序 。 然 而 ， 仅 由 一 条 规则 组 成 的 专家 系 
统 并 没有 多 少 应 用 价值 。 实 际 的 专家 系统 可 能 由 成 百 上 千 条 规则 组 成 。 除 了 fire-emergency 规则 外 ， 监 
视 工 厂 的 专家 系统 还 包括 对 应 于 其 他 一 些 紧 急 情 况 的 规则 ， 如 发 大 水 。 扩 展 的 一 组 规则 如 下 所 示 : 


(defrule fire-emergency 
(emergency (type fire)) 
=> 
(printout t "Activate the sprinkler system" 
erlf)) 


(defrule fiood~emergency 
(emergency (type flood)) 
=> 
(printout t "Shut down electrical equipment" 
crlf)) 


这 些 规则 一 旦 输入 到 CLIPS 中 ， 声 明 (emergency (type fire)) 事实 、 然 后 发 出 run 命令 ， 将 会 产 
生 Activate the sprinkler system 的 输出 结果 。 声 明 (emergency (type flood)) 事实 并 发 出 run 命令 ， 将 会 
产生 Shut down the electrical equipment 的 输出 结果 。 


在 规则 中 捕获 真实 世界 
如 果 只 有 火灾 和 水 灾 两 种 紧急 情况 需 处 理 ， 那 么 ， 上 述 规则 就 足够 了 。 然 而 ， 真 实 世 界 并 非 那 么 
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简单 。 例 如 ， 火 灾 并 非 都 能 用 水 来 扑灭 。 有 些 火灾 需 用 化 学 灭火 剂 。 如 果 火 灾 产 生 毒气 或 引发 爆炸 ， 
该 怎么 办 呢 ? 除 了 现场 消防 员 之 外 ， 还 需要 通知 不 在 现场 的 消防 部 门 吗 ? 大 楼 的 哪 层 发 生 大 火影 响 重 
K? 启动 二 楼 的 喷 水 装置 可 能 会 在 一 楼 和 二 楼 引起 水 患 。 两 层 楼 的 设备 供电 可 能 必须 被 切断 。 若 大 火 
发 生 在 首 层 ， 则 可 能 只 需 关 掉 首 层 的 设备 供电 。 如 果 大 楼 被 水 浸 ， 则 有 没有 可 以 关闭 的 防水 门 防止 水 
的 侵害 呢 ? 如 果 检 测 到 工厂 遭 抢 动 又 该 怎么 办 ? 如 果 所 有 这 些 情况 都 包括 在 规则 中 , 那么 ， 是 否 所 有 
的 可 能 性 已 经 包括 了 呢 ? 

很 遗憾 ， 答 案 是 否定 的 。 在 真实 世界 中 ， 事 物 并 非 总 是 运作 得 完美 无 缺 。 在 专家 系统 中 捕捉 所 有 
相关 的 知识 是 很 困难 的 。 最 好 的 情况 是 ， 能 够 识别 最 主要 的 紧急 情况 ， 并 提供 规则 让 专家 系统 知道 何 
时 不 去 捕捉 紧急 情况 。 


多 模式 的 规则 


大 多 数 真实 世界 的 启发 式 应 用 都 过 于 复杂 ， 以 至 不 能 仅 用 一 种 简单 模式 来 表达 成 规则 。 例 如 ， 对 
不 同类 型 的 火灾 启动 喷 水 装置 ， 可 能 不 仅 是 错误 的 ， 甚 至 还 是 危险 的 。 涉 及 普通 易 燃 物 如 纸 、 木 、 布 
的 火灾 (A 类 火灾 ) 可 以 用 水 或 水 剂 灭火 器 扑灭 。 涉 及 易 燃 液体 、 油 脂 和 类 似 材 料 的 火灾 (BAK 
灾 )， 必 须 使 用 不 同 的 方法 来 扑灭 ， 如 二 氧化 碳 灭 火器 。 多 模式 的 规则 可 用 于 表示 这 些 情况 。 例 如 : 
{deftemplate extinguisher-system 


(slot type) 
(slot status) ) 


(defrule class-A-fire-emergency 
(emergency (type class-A-fire)) 
(extinguisher-system (type water-sprinkler) 
(status off)) 
=> 
(printout t "Activate water sprinkler" crlf)) 


(defrule class-B-fire-emergency 
(emergency (type class-B-fire) ) 
(extinguisher-system (type carbon-dioxide) 
(status off)) 
=> 
{printout t "Use carbon dioxide extinguisher" 
erlf)) 


两 套 规则 都 有 两 种 模式 。 第 一 种 模式 确定 发 生 了 大 火 ， 并 确定 大 火 是 A 类 还 是 BB 类 。 第 二 种 模式 
确定 是 否 已 经 打开 合适 的 灭火 装置 。 可 添加 更 多 的 规则 来 关闭 灭火 装置 (例如 ， 喷 水 装置 已 启动 ， 而 
KREWE BEAK, WKAR, 或者， 如 果 火 灾 已 被 扑灭 ， 则 关闭 灭火 装置 )。 还 可 用 更 多 的 规 
则 来 确定 是 否 是 一 种 特定 的 燃烧 材料 形成 了 A 类 或 B 类 火灾 。 

规则 中 可 包括 任意 多 种 模式 。 要 认识 到 的 重要 一 点 是 ， 只 有 所 有 模式 与 事实 匹配 ， 该 规则 才 被 置 
于 议程 中 。 这 种 限制 叫 作 与 条 件 元 素 (and conditional element)。 因 为 所 有 规则 的 模式 都 隐 含 地 包含 在 
一 个 and 条 件 元 素 中 ， 因 此 ， 如 果 只 有 一 个 模式 得 到 匹配 ， 则 该 规则 不 会 触发 。 在 一 条 规则 的 LHS 得 
到 匹配 ， 且 该 规则 置 于 议程 中 之 前 ， 所 有 事实 必须 存在 : 


7.16 设置 断 点 命令 
CLIPS 有 一 个 调试 命令 ， 叫 作 set-break 命令 。 该 命令 允许 指定 的 一 组 规则 中 任何 一 个 被 触发 之 前 ， 
执行 被 暂停 。 一 个 在 触发 前 被 暂停 执行 的 规则 称 为 断 点 (breakpoint). set-break 命令 的 格式 如 下 ，; 


(set-break <rule-name>) 


其 中 ，< mle-name> (规则 名 ) 是 被 设置 断 点 的 规则 名 。 例 如 ， 思 考 下 面 的 规则 (注意 有 序 事实 的 使 
用 ， 如 第 7.6 ATE): 
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(defrule first 
=> 
(assert (fire second))) 


(defrule second 
(fire second) 
=> 
(assert (fire third))) 


(defrule third 
(fire third) 
=>) 
下 列 命令 行 显示 没有 设置 断 点 时 规则 的 执行 情况 : 


CLIPS> (watch rules). 
CLIPS> (reset) 
CLIPS> (run) 

FIRE 1 first: f-0 
FIRE 2 second: f-1 
FIRE 3 third: 工 -2 
CLIPS> 


当 发 出 run 命令 后 ， 所 有 3 条 规则 都 相继 触发 。 下 列 命令 行 演 示 了 使 用 set-break 命令 暂停 执行 的 

方法 : 

CLIPS> (set-break second) -! 

CLIPS> (set-break third) 

CLIPS> (reset) — 

CLIPS> (run) 

FIRE 1 first: f-0 

Breaking on rule second 

CLIPS> (run) 

FIRE 1 second: f-1 

Breaking on rule third 

CLIPS> (run) 

FIRE 1 third: 上 -2 

CLIPS> 


在 这 个 例子 中 ， 规则 2 和 规则 3 被 允许 触发 之 前 ， 执 行 暂停 下 来 。 注意 ,在 断 点 停止 执行 前 ，run 
命令 必须 触发 至 少 一 条 规则 。 例 如 ， 规 则 2 (second) 终止 执行 后 ， 再 输入 run 命令 时 ， 此 规则 不 会 再 
次 终止 执行 。 

show-breaks 命令 用 于 列 出 所 有 断 点 。 其 格式 是 : 


{show-breaks) 


remove-break 命令 用 于 删除 断 点 。 其 格式 是 ; 


(remove-break [<rule-name>]) 


如 果 有 < mle-name> 参 数 ， 则 只 有 该 规则 中 的 断 点 才 被 删除 。 否 则 ， 将 删除 所 有 断 点 。 
7.17 调 入 和 保存 结构 


从 文件 中 调 入 结构 
使 用 load 命令 可 以 把 用 文本 编辑 器 产生 的 结构 文件 调 入 到 CLIPS 中 。load 命令 的 格式 如 下 : 


(load <file-name>) 
其 中 ，<flename> 是 包含 待 调 人 文件 名 的 字符 串 或 符号 。 
假设 emergency 规则 和 自 定义 模板 保存 在 一 台 IBM PC 机 驱动 器 B 上 文件 名 为 fire.clp 的 文件 中 ， 
下 列 命令 将 把 此 结构 调 人 到 CLIPS 中 : 


(load "B:fire.clp") 


当然 ,文件 名 规范 会 因 机 器 的 不 同 而 不 同 ， 这 个 例子 应 该 仅 作为 指导 。 由 于 反 斜 杠 字符 在 某 些 操 
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作 系统 中 用 作 路 径 分 隔 符 ， 因 此 ， 在 调 人 时 可 能 会 出 现 问 题 。 因 为 CLIPS 把 反 斜 杠 解释 为 转 义 字符 ， 
所 以 ， 在 字符 串 中 要 用 两 个 反 斜 杠 才能 产生 一 个 反 斜 杠 字符 。 例 如 ， 普 通 的 路 径 名 可 能 写作 : 
B:\usr\clips\fire.clp 
为 保留 反 斜 杠 字 符 ， 路 径 名 必须 按 如 下 命令 形式 写 出 : 
(load "B:\\usr\\clips\\fire.clp") 
结构 并 非 都 要 保存 在 一 个 文件 中 。 它 们 可 以 保存 在 多 个 文件 中 ， 并 使 用 几 个 load 命令 调 人 。 如 果 
调 人 文件 时 未 出 现 错误 ， 则 load 命令 会 返回 符号 TRUE (第 8 章 将 详细 讨论 返回 值 )。 否 则 ， 返 回 符号 
FALSE. 


监视 编译 


当 编 译 被 监视 时 (这 是 默认 情况 )， 对 于 用 load 命令 调和 人 的 每 个 结构 都 会 打印 出 一 则 包含 该 结构 名 
的 消息 。 例 如， 假设 CLIPS 刚 被 启动 ， 并 输入 下 列 命令 : 


CLIPS> (load "fire.clp")— 

Defining deftemplate: emergency 
Defining deftemplate: response 
Defining defrule: fire-emergency +j 
TRUE 

CLIPS> 


这 些 消 息 表 明 ， 有 两 个 自 定义 模板 被 调和 人 (BI emergency 和 response) ， 接 着 调 人 的 是 fire-emergen- 
cy 规则 。 跟 在 Defining defrule 消息 后 的 字符 串 +j Æ CLIPS 关于 被 编译 规则 的 内 部 结构 的 信息 。 此 信息 
对 于 调整 程序 是 很 有 用 的 ， 这 将 在 论述 效率 的 第 9 章 中 讨论 。 

如 果 编 译 不 受 监 视 ， 则 CLIPS 会 为 每 个 被 调和 人 的 结构 打印 出 一 个 字符 : x 指 自 定义 规则 ,% 指 自 
定义 模板 ，$ 指 自 定义 事实 。 例 如 : 


CLIPS> (clear) 

CLIPS> (unwatch compilations) 
CLIPS> (load fire.clp) 

TSt 

TRUE 

CLIPS> 


将 结构 保存 到 文件 中 


CLIPS 也 提供 了 一 个 与 load 命令 相对 的 命令 。save 命令 允许 存 于 CLIPS 中 的 一 组 结构 被 保存 到 磁 
盘 文 件 中 。save 命令 的 格式 是 : 


(save <file-name>) 


例如 ， 以 下 命令 将 把 fire 结构 保存 到 B 盘 上 的 fire. clp 文件 中 : 
(save "B:fire.cip") 
ve 命令 将 CLIPS 中 的 所 有 结构 保存 到 指定 的 文件 中 。 它 不 能 把 指定 的 结构 保存 到 一 个 文件 中 。 
正常 情况 下 如 果 编 辑 器 用 来 创建 并 修改 结构 ， 则 不 必 使 用 save 命令 ， 因 为 你 在 使 用 编辑 器 时 这 些 
结构 会 被 保存 。 然 而 ， 有 时 在 CLIPS 的 提示 符 下 直接 输入 结构 然后 将 其 保存 在 某 个 文件 中 ， 是 很 方 
便 的 。 


7.18 注释 结构 


把 一 些 注释 添加 到 CLIPS 程序 中 是 一 个 好 想法 。 有 时 ， 结 构 难 以 理解 ， 此 时 注释 可 用 来 向 读者 解 
释 这 些 结构 将 做 些 什 么 。 注 释 还 用 于 编写 好 的 程序 文档 ， 这 对 于 长 程序 是 非常 有 用 的 。 
CLIPS 中 注释 是 任何 以 分 号 开头 、 以 回 车 结尾 的 文本 。 下 面 是 在 fire 程序 中 使 用 注释 的 例子 : 
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雪 挛 六 广 灾 鹤 二 寅 灾 坎 二 次 灾 裕 究 宽 宣 灾 赤 灾 寥 亦 灾 赤 赤 宙 齐 裕 宽 宽 裕 坟 击 宽 灾 


:* Programmer: G. D. Riley 
.* 


;* Title: The Fire Program 
x 
;* Date: 05/17/04 


* 


+ + + +++ 


; 
r Mateliciialiehateleteliehatetetelaieheheteleialeistsleleieleleieteieielelel 


; Deftemplates 
(deftemplate emergency “template #1" 
(slot type)? ; What type of emergency 


{deftemplate response "template #2" 
_ {slot type) ) ; How to respond 
; The purpose of this rule is to activate 
; the sprinkler system if there is a fire 


(defrule fire-emergency "An example rule" ; IF 
; There is a fire emergency 
(emergency (type fire) ) 
=> ; THEN 
; Activate the sprinkler system 
(assert (response 
(action activate-sprinkler-system) )))} 


把 这 些 结构 调 人 CLIPS， 然 后 ， 应 用 漂亮 打印 法 打印 它们 时 会 发 现 ， 每 一 个 以 分 号 开头 的 注释 在 
CLIPS 中 都 被 删 掉 了 。 只 有 在 结构 名 后 被 引号 括 起 的 注释 才 被 保留 下 来 。 


7.19 变量 


正如 其 他 编程 语言 ，CLIPS 有 一 些 变量 (variable) 可 用 来 保存 变量 值 。CLIPS 中 的 变量 在 语法 上 
总 是 由 一 个 问号 后 接 一 个 标识 字段 名 组 成 。 变 量 名 遵循 标识 符 的 语法 ， 但 必须 以 一 个 字符 开头 。 一 种 
好 的 程序 设计 风格 ， 其 变量 应 该 取 有 意义 的 名 称 。 变 量 的 例子 如 下 : 


?Speed 
?sensor 
?value 
?noun 
?color 


问号 和 标识 字段 名 间 没 有 空格 。 以 后 会 讨论 到 ， 问 号 本 身 是 有 其 作用 的 。 在 规则 的 LHS 上 可 使 用 
变量 保存 槽 值 ， 这 些 槽 值 可 与 规则 的 LHS 上 的 其 他 值 相 比 较 ， 或 者 可 以 在 规则 的 RHS 上 访问 这 些 模 
值 。 术 语 被 约束 (bound) 和 约束 (bind) 用 来 说 明 将 某 个 值 赋 给 某 个 变量 。 

变量 通常 用 于 约束 规则 LHS 上 的 变量 ， 然 后， 在 规则 的 RHS 上 调用 该 值 。 例 如 ; 


CLIPS> {clear)J 
CLIPS> 
(deftemplate person 
(slot name) 
(slot eyes) 
(slot hair)) 
CLIPS> 
(defrule find-blue-eyes 
(person (name ?name) (eyes blue) ) 
=> 
(printout t ?name " has blue eyes." erlf)) 
CLIPS> 
(deffacts people 
(person (name Jane) 
(eyes blue) (hair red)) 
(person (name Joe) 
(eyes green) (hair brown) ) 
(person (name Jack) 
(eyes blue) (hair black) ) 
(person (name Jeff) 
(eyes green) (hair brown) ))-/ 
CLIPS> (reset) 
CLIPS> (run) 
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Jack has blue eyes. 
Jane has blue eyes. 
CLIPS> 


Jane 和 Jack 都 是 蓝 眼 睛 ， 所 以 规则 find-blue-eyes 激活 了 两 次 ， 描 述 Jane 和 Jack 的 事实 各 一 次 。 规 
则 被 激活 时 ， 它 便 检测 激活 它 的 事实 的 names 槽 值 ， 并 把 该 值 用 于 打印 输出 语句 。 

如 果 在 规则 的 RHS 上 引用 某 变量 ， 而 在 规则 的 LHS 上 没有 约束 它 ， 则 CLIPS 将 打印 以 下 错误 信 
E (假设 未 约束 的 变量 为 ? x): 


[PRCCODE3] Undefined variable x referenced in 
RHS of defrule. 


7.20 变量 的 复合 用 法 


在 规则 LHS 的 多 个 地 方 使 用 的 同名 变量 ， 有 一 个 重要 县 有 用 的 属性 。 一 个 变量 首次 约束 于 某 一 值 
时 ， 该 变量 在 此 规则 内 便 保持 该 值 。 其 他 同名 的 变量 必须 约束 为 这 第 一 个 变量 的 值 。 

除了 可 以 编写 一 条 规则 只 查找 蓝 眼睛 的 人 之 外 ， 还 可 以 声明 一 个 事实 ， 指 定 所 要 查找 的 特定 的 眼 
BAE. Pin, 


CLIPS> (undefrule *).| 
CLIPS> (deftemplate find (slot eyes) )-~! 
CLIPS> 
(defrule find-eyes 
(find (eyes 7eyes) ) 
(person (name fname) (eyes ?eyes)) 
=> 
(printout t ?name " has " ?eyes " eyes." 
erlf)) 
CLIPS> 


自 定义 模板 find 说 明了 眼睛 颜色 ， 这 是 由 eyes 槽 值 规定 的 。 规 则 find-eyes 从 find 自 定义 模板 的 
eyes 槽 值 中 获取 该 值 ， 然 后 查找 eves PAS? evs 变量 约束 值 相同 的 所 有 person 事实 。 下 面 说 明 其 工 
作 原 理 : 


CLIPS> (reset) 

CLIPS> (assert (find (eyes blue)))-— 
<Fact-5> 

CLIPS> (run) 

Jack has blue eyes. 

Jane has blue eyes. 

CLIPS> (assert (find (eyes green) ))-! 
<Fact-6> 

CLIPS> (run) 

Jeff has green eyes. 

Joe has green eyes. 

CLIPS> (assert (find (eyes purple) ))— 
<Fact-7> 

CLIPS> (run) 

CLIPS> 


注意 ， 声 明 事实 (find (eyes purple)) 时 ， 不 会 激活 任何 规则 ， 因 为 在 eyes 槽 值 中 没有 值 为 purple 的 
person 事实 。 


7.21 事实 地 址 


事实 的 撤销 、 修 改 和 复制 是 很 普遍 的 操作 ， 一 般 在 规则 的 RHS 上 完成 ， 而 不 是 在 顶层 完成 。 不 
过 ,我 们 也 展示 了 在 顶层 提示 下 ， 利 用 事实 指针 对 事实 执行 这 些 操作 的 过 程 。 在 规则 的 RHS 上 处 理 一 
个 事实 前 ， 必 须 以 某 种 方式 规定 与 某 特定 模式 匹配 的 事实 。 为 此 ， 使 用 模式 约束 (pattern binding) 操 
作 符 “< - ”在 规则 的 LHS 将 某 个 变量 约束 到 匹配 某 个 模式 的 事实 地 址 (fact address) 上 。 该 变量 约 
束 后 ， 就 可 以 在 事实 指针 处 和 撤销 、 修 改 或 复制 命令 一 起 使 用 。 例 如 ， 以 下 说 明 如 何在 规则 的 RHS 更 
新 自 定 义 模板 槽 值 。 
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CLIPS> (clear) 
CLIPS> 
(deftemplate person 
{slot name) 
{slot address) )-~i 
CLIPS> 
(deftemplate moved 
(slot name) 
(slot address) ) 
CLIPS> 
(defrule process-moved-information 
?f1 <- (moved (name ?name) 
(address ?address) ) 
?f2 <- (person (name ?name) ) 
=> 
(retract ?f1) 
(modify ?f2 (address ?address) ))~ 
CLIPS> 
(deffacts example 
(person (name "John Hill") 
(address "25 Mulberry Lane") ) 
(moved (name “John Hill") 
(address "37 Cherry Lane")))-! 
CLIPS> (reset) 
CLIPS> (watch rules) 
CLIPS> (watch facts)! 
CLIPS> (run)-i 


FIRE 1 process~moved-information: f-2,f-1 
<== f-2 (moved (name “John Hill") 

{address "37 Cherry Lane") ) 
<== f-1 (person (name "John Hill") 


(address "25 Mulberry Lane")) 
==> £-3 (person (name "John Hill") 

(address "37 Cherry Lane") ) 
CLIPS> 


本 例 使 用 了 两 个 自 定义 模板 。 自 定义 模板 person 用 于 存储 关于 某 个 人 的 信息 ， 在 本 例 中 就 是 人 的 
姓名 和 地 址 。 也 可 存储 其 他 信息 ， 如 年 龄 或 眼睛 颜色 。 自 定义 模板 moved 用 于 说 明 某 人 的 地 址 已 改变 。 
其 新 地 址 在 address PAH. 

规则 process-moved-information 的 第 一 个 模式 确定 地 址 改变 是 否 需要 处 理 , 第 二 个 模式 查找 事实 
person 中 有 待 改 变 的 地 址 信息 。 事 实 moved 的 事实 地 址 约束 于 变量 ? fl 中 , 从 而 ， 处 理 完 此 地 址 变化 
后 ， 即 可 撤销 该 事实 。 事 实 person 的 事实 地 址 约束 于 变量 ? 人 中， 之 后 ,该 变量 可 在 规则 的 RHS 用 来 
修改 address BHAA. 

注意 ， 可 以 使 用 事实 中 具有 约束 值 的 变量 ， 也 可 以 使 用 具有 事实 地 址 约束 值 的 变量 。 另 外 ,在 变 
量 ? address 获取 值 的 事实 被 撤销 后 ， 该 变量 的 值 还 可 用 于 RHS 上 。 

在 规则 process-moved-information 的 RHS 上 撤销 事实 moved 对 规则 的 正确 运行 是 非常 重要 的 。 注 
意 ， 删 去 命令 retract 后 ， 会 出 现 什 么 情况 ; 


CLIPS> 

(defrule process-moved-information 
(moved (name ?name) (address ?address) ) 
?f2 <- (person (name ?name) ) 
=> 
(modify ?£2 (address ?address) )) 

CLIPS> (unwatch facta) 

CLIPS> (unwatch rules) t 

CLIPS> (reset) 

CLIPS> (watch facts)! 

CLIPS> (watch rules). 

CLIPS> (watch activations) 

CLIPS> (run 3) 


FIRE 1 process-moved-information: f-2,f-1 
<== f-1 (person (name "John Hill") 

(address "25 Mulberry Lane")) 
==> £-3 (person (name "John Hill") 


(address "37 Cherry Lane") ) 
==> Activation 0 process-moved-information: f£-2,f-3 
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FIRE 2 process-moved-information: f-2,f-3 
<== f-3 (person (name "John Hill”) 

(address "37 Cherry Lane") ) 
==> f-4 (person (name "John Hill") 


(address "37 Cherry Lane") ) 
==> Activation 0 process-moved-information: f-2,f-4 
FIRE 3 process-moved-information: f£-2,£-4 


<== £-4 (person (name "John Hill") 
(address "37 Cherry Lane") ) 
==> £-5 {person (name *John Hill”) 


(address "37 Cherry Lane") ) 
==> Activation 0 process-moved-information: f-2,f-5 
CLIPS> 


由 于 在 修改 约束 给 ? 2 的 事实 后 声明 了 一 个 新 的 person 事实 ， 因 此 ， 程 序 进 入 死 循环 ， 从 而 重复 
激活 process-moved-information 规则 。 记 住 ， 一 个 modify 命令 可 作为 一 个 retract 命令 和 一 个 assert 命令 
对 待 。 因 为 只 要 求 run 命令 激活 三 条 规则 ， 因 此 ， 这 就 指明 了 程序 运行 结束 的 时 间 。 如 果 run 命令 没有 
限制 条 件 ， 程 序 将 无 限 循 环 下 去 。 在 运行 CLIPS 的 计算 机 上 ， 终 止 这 种 循环 的 惟一 办 法 是 用 Contro- C 
中 断 CLIPS， 或 者 用 另 一 个 合适 的 中 断 命令 。 


7.22 单字 段 通配符 


有 时 检测 一 个 槽 内 字段 的 存在 性 但 不 实际 赋值 给 一 个 变量 是 很 有 用 的 ， 尤 其 是 对 多 字段 权 。 例 如 ， 
我 们 想 打 印 出 姓 某 个 姓 的 所 有 人 的 社会 保险 导 。 下 面 显 示 用 来 描述 每 一 个 人 的 自 定义 模板 、 某 些 预 定 
义 的 人 的 自 定 义 事实 和 打印 姓 某 个 姓 的 所 有 人 的 社会 保险 号 的 规则 : 


(deftemplate person 
(multislot name) 
{slot social-security-number)} } 


(deffacts some~people 
(person (name John Q. Public) 
(social-security-number 483-98-9083))} 
{person (name Jack R. Public) 
(social-security-number 483-98-9084))) 


(defrule print-social-security-numbers 
(print-ss-numbers-for ?last~name) 
(person (name ?first-name ?middle-name 
?last-name) 
(social-security-number ?ss-number) } 
=> 
(printout t ?ss-number crlf)) 


规则 print-social-security-mumbers 把 此 人 的 第 一 个 名 字 和 中 间 名 分 别 赋值 给 变量 ” first-name 和 ? 
middle-name。 但 这 些 变量 不 能 被 规则 RHS 上 的 操作 、LHS 上 的 其 他 模式 或 槽 引用 。 当 需要 一 个 字段 而 
不 关心 其 值 时 ， 可 以 使 用 单字 段 通 配 符 (single-field wildcard) ， 而 不 必 使 用 变量 。 单 字段 通配符 用 一 个 
问号 表示 。 利 用 单字 段 通配符 后 ， 规 则 print-social-security-numbers 可 以 重 写 如 下 : 


(defrule print-social-security-numbers 
(print-ss-numbers-for ?last-name) 
(person (name ? ? ?last-name) 
(social-security-number ?ss-number) } 
=> 
(printout t ?ss-number crlf)) 


TER, person 事实 的 槽 name 必须 包括 待 激活 规则 print-social-security-numbers 的 三 个 字段 。 例 如 ， 事 实 


(person (name Joe Public) 
(social-security-number 345-89-3039) ) 


就 不 满足 规则 print-social-security-numbers 的 要 求 。 
注意 ， 问 号 和 变量 符号 名 之 间 没 有 空格 。 模 式 


(person (name ?first ?last)) 
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要 求 name 模 有 两 个 字段 ,但 模式 


` (person (name ?first ? last)) 


要 求 name 槽 有 三 个 字段 ， 最 后 一 个 字段 一 定 是 符号 last。 
当 模 式 中 没有 说 明 单 字段 槽 时 ，CLIPS 会 自动 为 该 模式 的 槽 添加 一 个 单字 段 通配符 。 例 如 ， 模 式 
(person (name ?first ?last)) 

被 转换 成 : 


(person (name ?first ?last) 
(social-security-number ?))} 


7.23 块 世界 


为 了 演示 变量 的 约束 ,我 们 将 建立 一 个 程序 使 块 在 一 个 简单 的 块 世界 里 移动 。 这 种 程序 和 传统 的 
块 世界 中 的 程序 类 似 ， 程 序 中 的 知识 范围 只 限于 块 《Firebaugh 88 )。 这 是 一 个 规划 的 范例 ， 它 可 应 用 
于 通过 机 器 手 控制 部 件 的 自动 制造 中 。 

在 块 世 界 里 惟一 有 趣 的 东西 就 是 块 。 单 一 的 块 可 以 堆 在 另 一 个 块 上 。 一 个 复杂 的 块 世界 程序 的 目 
的 是 通过 最 少 的 移动 次 数 使 块 达到 所 要 求 的 目标 结构 。 就 这 个 例子 来 说 ,需要 作 一 些 简 化 限制 。 第 一 
个 限制 是 只 允许 有 一 个 最 初 目标 并 且 这 个 目标 只 能 是 把 某 个 块 移 到 另 一 个 块 上 。 在 这 个 限制 下 ， 决 定 
最 优 移动 来 达到 目标 并 不 很 重要 。 如 果 目 标 是 把 块 x 移 到 块 y 上 ， 就 把 块 x 上 和 块 y 上 的 所 有 块 移 到 
底层 (floor) E, REIER x 移 到 块 > 上 即 可 。 

第 一 个 限制 是 ， 任 何 目标 还 没有 被 达 到 。 即 是 说 ， 如 果 奖 x F) A7 
已 经 在 块 y 的 上 面 ， 则 此 目标 就 不 能 是 把 块 x 移动 到 块 y 上 面 。 这 AL | 
是 一 个 相当 容易 检测 的 情况 。 然 而 ， 这 种 情况 的 合适 的 检测 语法 
要 在 第 8 章 才 介绍 。 B 

开始 解决 这 个 问题 时 ， 建 立 一 个 用 来 检测 程序 的 块 结构 是 很 f 
有 用 的 。 图 7 2 示 出 了 将 要 用 到 的 世 结 构 。 在 这 个 结构 中 有 两 个 维 。 | 人 
栈 。 第 一 个 堆栈 是 块 A 在 块 B 上面 ，B 在 块 C 上面。 第 二 个 堆栈 
ik DRE Li, RE TERE ET, 图 7.2 Silt FA ae Bc 

为 了 决定 究竟 哪 种 规则 解决 这 个 问题 更 有 效 ， 就 要 按部就班 地 完成 一 个 块 世界 目标 。 把 块 CBB 
块 下 上 面 要 采取 什么 步骤 ?最 简单 的 解决 办 法 是 直接 把 块 C 移 到 块 下 上面。 但 这 个 规则 只 有 在 块 C 和 
块 下 上 都 没有 块 时 才能 用 。 这 个 规则 的 伪 码 是 ; 


RULE MOVE-DIRECTLY 
IF The goal is to move block ?upper on top of 
block ?lower and 
block ?upper is the top block in its stack and 
block ?lower is the top block in its stack, 
THEN Move block ?upper on top of block ?lower. 


规则 move-directly 在 这 个 例子 中 不 能 用 ， 因 为 块 A 和 块 B 在 块 C 上 , RDEREL. AT RAM 
则 move-directly 把 块 C 移 到 块 下 上 ， 块 A、 块 B 和 块 D 必须 被 移 到 底层 。 因 为 这 是 使 它们 不 妨碍 移动 
的 最 简单 的 办 法 。 简 单 块 世界 不 要 求 块 重 新 堆 起 来 ， 只 需 达 到 一 个 简单 的 初始 目标 ， 所 以 不 必 把 移 开 
的 块 重 新 堆 上 。 这 个 规则 可 以 用 两 个 伪 码 程序 表示 : 一 个 规则 是 将 待 移动 的 块 上 面 的 块 移 走 ， 另 一 个 
规则 是 将 被 堆砌 的 块 上 面 的 块 移 走 。 


RULE CLEAR-UPPER-BLOCK 

IF The goal is to move block ?x and 
block ?x is not the top block in its stack and 
block ?above is on top of block ?x, 

THEN The goal is to move block ?above to the floor 


RULE CLEAR-LOWER-BLOCK 
IF The goal is to move another block on top of 
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block ?x and 
block ?x is not the top block in its stack and 
block ?above is on top of block ?x, 
THEN The goal is to move block ?above to the floor 


规则 clear-upper-block 将 块 C 上 的 块 移 走 。 它 首先 决定 块 B 需 要 移 到 底部 。 为 了 把 块 B 移 到 底层 ， 
同样 的 规则 会 决定 块 A 需 要 移 到 底部 。 类 似 地 ， 规 则 clear-lower-block 会 决定 块 D 要 移 到 底层 以 便 把 其 
他 块 移 到 块 下 上 。 

现在 有 了 一 些 子 目标 就 是 把 块 A、 块 B 和 块 D 移 到 底层 。 块 A 和 块 D 可 以 直接 移 到 底层 。 如 果 写 
得 适当 ， 规 则 move-directly 可 以 将 块 移 到 底层 ， 或 移 到 其 他 块 的 上 面 。 因 为 底层 实际 上 并 不 是 块 ， 所 
以 对 底层 的 处 理 方法 可 以 是 不 同 的 。 下 面 的 伪 码 规则 是 把 块 移 到 底层 的 特例 ， 


RULE MOVE-TO-FLOOR 
IF The goal is to move block ?upper on top of 
the floor and 
block ?upper is the top block in its stack, 
THEN Move block ?upper on top of the floor. 


规则 move-to-floor 现在 可 以 把 块 A MR DBAKRET. ~-ARABBUKE, BM move-tofloor 就 可 以 
把 块 B 移 到 底层 了 。 由 于 块 A、 块 B 和 块 D 在 底层 ， 所 以 ， 块 C 和 块 玉 现在 就 在 堆栈 的 顶层 ， 就 可 以 
用 规则 move-directly 把 块 C BARE E. 

现在 这 个 规则 已 经 用 伪 码 写 出 来 了 ， 规 则 用 到 的 事实 应 该 是 确定 的 。 由 于 没有 原型 ， 需 要 的 事实 
的 类 型 不 能 完全 确定 。 在 这 个 例子 中 ， 伪 码 规 则 指出 了 几 种 将 会 用 到 的 事实 类 型 。 举 例 来 说 ， 哪 些 块 
在 其 他 块 上 这 一 信息 就 是 很 重要 的 。 这 一 信息 可 以 用 以 下 自 定义 模板 来 描述 .: 


(deftemplate on~-tov-of 
(slot upper) 
(slot lower)) 


而 且 ， 这 一 模板 描述 的 事实 是 : 


(on-top-of (upper A) (lower B)) 
{on-top-of (upper B) (lower C)) 
(on-top-of (upper D) (lower E)) 
(on-top-of (upper E) (lower F)} 


因为 知道 哪些 块 在 堆栈 的 顶部 和 底部 也 是 很 重要 的 ， 所 以 ， 包 括 以 下 事实 也 很 有 用 : 


{on-top-of (upper nothing) (lower A)) 
(on-top-of (upper C) (lower floor)) 
(on-top-of (upper nothing) (lower D)) 
(on-top-of (upper F) (lower floor) ) 


单词 nothing 和 floor 在 这 些 事实 中 有 特殊 含义 。 事 实 (on-top-of (upper nothing) (lower A)) 和 
(on-top-of (upper nothing) (lower D)) 表示 块 A 和 块 DD 在 堆栈 顶 。 类 似 地 ， 事实 (on-top-of (upper C) 
(lower floor)) 和 (on-top-of (upper F) (lower floor)) 表示 块 C 和 块 下 在 堆栈 底部 。 包 含 这 些 事实 并 不 
一 定 能 确定 堆栈 的 栈 顶 和 栈 底 是 哪些 块 。 如 果 规 则 写 错 了 ， 则 单词 nothing 和 floor 可 能 会 被 误 认 为 是 
块 的 名 字 。 指 出 块 的 名 字 的 事实 可 能 也 是 有 作用 的 。 下 面 的 事实 用 了 隐 式 模板 block， 它 们 可 以 用 来 辨 
别 块 和 特殊 单词 nothing 和 floor. 


(block A) 
(block B) 
(block C) 
(block D) 
(block E) 
(block F) 


最 后 ， 需 要 一 个 事实 来 描述 正在 被 处 理 的 移动 块 的 目标 。 这 些 目标 可 以 用 自 定义 模板 来 描述 : 


(deftemplate goal (slot move) (slot on-top-of)) 


使 用 这 个 模板 的 初始 目标 是 ， 


(goal (move C) (on-top-of E)) 
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事实 和 模板 定义 后 ， 初 始 块 结构 可 以 用 以 下 自 定义 事实 来 描述 : 


{deffacts initial-state 
(block A) 
(block B) 
(block C) 
(block D) 
(block E) 
(block F) 
(on-top-of {upper nothing) (lower A))} 
{on-top-of (upper A) (lower B)) 
{on-top-of (upper B) (lower C)) 
{on-top-of (upper C) (lower floor))} 
(on-top-of (upper nothing) (lower D)} 
{on-top-of (upper D) (lower FE)) 
(on-top-of (upper E) (lower F)) 
(on-top-of (upper F) (lower floor)) 
{goal (move C) {on-top-of E))) 


规则 move-directly 可 写作 : 


{defrule move-directly 
?goal <- (goal (move ?block1) 
(on-top-of ?block2)) 
(block ?block1) 
(block ?block2) 
(on-top-of (upper nothing) (lower ?block1)) 


?stack-1 <- (on-top-of (upper ?block1) 
(lower ?block3) } 

?atack-2 <- (on-top-of (upper nothing) 
(lower ?block2)) 





=> 
{retract ?goal ?stack-1 ?stack-2) 
{assert (on-top-of (upper ?blockl) 
(lower ?block2)) 
{on-top-of (upper nothing) 
(lower ?block3))) 
(printout t ?blockl " moved on top of " ?block2 
"." crlf)) 


前 3 个 模式 确定 的 目标 是 把 一 个 块 移 到 另 一 个 的 项 上 。 其 中 ,模式 2 和 模式 3 保证 本 规则 不 会 将 
块 移 到 底层 。 第 4 和 第 6 个 模式 检查 这 些 块 是 否 处 于 栈 的 顶部 。 第 5 和 第 6 个 模式 匹配 所 需 的 信息 ， 
更 新 堆栈 ， 将 移动 块 从 堆栈 移 走 ， 或 移 人 堆栈 。 这 个 规则 的 操作 是 更 新 两 个 堆栈 的 栈 信息 ， 并 打印 一 
则 消息 。 在 已 移 走 的 块 下 面 的 块 ， 至 此 已 在 栈 的 顶部 ， 而 那个 被 移 走 的 块 也 已 在 另 一 个 栈 的 顶部 。 

规则 move-to-floor 可 实现 如 下 : 


(defrule move-to-floor 
?goal <- (goal (move ?block1) 
(on-top-of floor)) 
(block ?blockl) 
(on-top-of (upper nothing) (lower ?block1)) 
?stack <- (on-top-of {upper ?block1) 
(lower ?block2)) 
=> 
(retract ?goal ?stack) 
{assert (on-top-of (upper ?block1)} 
{lower floor)) 
{on-top-of (upper nothing) 
(lower ?block2))) 
(printout t ?blocki " moved on top of floor." 
erlf)) 


本 规则 和 move-directly 规则 类 似 ， 但 不 必 更 新 底层 的 一 些 信息 ， 因 为 它 不 属于 块 。 
规则 clear-upper-block 实现 如 下 : 


(defrule clear-upper-block 
(goal (move ?blockl)) 
(block ?blockl) 
(on-top-of (upper ?block2) (lower ?block1)} 
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(block ?block2) 

=> 

(assert (goal (move ?block2) 
(on-top-of floor)))) 


规则 clear-lower-block 实现 如 下 : 


(defrule clear-lower-block 
(goal (on-top-of ?block1) ) 
(block ?block1) 
{on-top-of (upper ?block2) (lower ?blocki)) 
(block ?block2) 
=> 
(assert (goal (move ?block2) 
(on-top-of floor)))) 
有 了 规则 move-directly , move-to-floor. clear-upper-block 和 clear-lower-block 和 自 定义 模板 goal, on- 
top-of 以 及 自 定 义 事实 initial-state， 这 个 程序 至 此 就 完整 了 。 以 下 输出 结果 展示 了 运行 此 块 世界 程序 的 
个 
一 了 范例 。 


CLIPS> (unwatch all) 
CLIPS> (reset). 

CLIPS> (run) 

A moved on top of floor. 
B moved on top of floor. 
D moved on top of floor. 
C moved on top of E. 
CLIPS> 


首先 把 块 A 和 块 B 移 到 底层 ， 以 清空 块 C 的 顶部 ; Ae, Ek DEIRE, MAZI E 的 顶部 。 
最 后 ， 便 可 以 把 块 C 移 到 块 D 的 顶部 ， 从 而 完成 了 初始 目标 。 

这 个 范例 说 明了 如 何 使 用 渐进 的 方法 来 建立 一 个 程序 。 首 先 ， 把 伪 码 规则 用 类 似 于 英语 的 文本 写 
出 来 。 其 次 ， 用 伪 码 规则 来 决定 所 需 事实 的 类 型 。 设 计 出 描述 这 些 事实 的 自 定义 模板 ， 并 用 这 些 模 板 
把 初始 知识 编 成 程序 代码 。 最 后 ， 以 自 定义 模板 作为 翻译 指南 ， 将 伪 码 规则 转换 成 CLIPS 规则 。 

一 个 专家 系统 的 开发 通常 要 比 本 例 有 更 多 的 原型 构造 和 反复 设计 。 也 并 非 总 是 可 以 决定 出 最 好 的 
方法 来 表示 建立 一 个 专家 系统 所 需 的 事实 和 规则 类 型 。 然 而 ， 当 需要 进行 大 量 的 原型 构造 和 反复 过 程 
时 ， 遵 循 一 个 一 致 的 方法 对 于 开发 专家 系统 是 有 帮助 的 。 


7.24 多 字段 通配符 和 变量 


多 字段 通配符 


多 字段 通配符 和 变量 可 用 来 匹配 模式 中 的 0 个 或 多 个 字段 。 多 字段 通配符 用 一 个 美元 符号 后 跟 一 
个 问号 ， 即 符号 “$ ?” 来 表示 ， 可 表示 出 现 0 个 或 多 个 字段 。 注 意 ， 普 通 的 变量 和 通配符 只 精确 匹配 
一 个 字段 。 这 是 一 个 小 区 别 ， 但 很 有 意义 。 为 了 说 明 多 字段 通配符 的 使 用 ， 让 我 们 回顾 在 第 7.22 节 中 
描述 的 print-social-security-numbers 规则 : 


(defrule print-social-security-numbers 
{(print-ss-numbers-for ?last-name) 
{person (name ? ? ?last-name) 
(social-security-number ?ss-number) ) 
=> 
(printout t ?ss-number crlf)) 


XARA ASA 3 个 字段 的 姓名 槽 匹配 。 于 是 事实 


{person (name Joe Public) 
(social-security-number 345-89-3039)) 


将 无 法 与 规则 匹配 。 然 而 ， 如 果 把 两 个 单字 段 的 通配符 换 成 单个 多 字段 通配符 (如 下 所 示 )， 则 模式 
person 就 能 与 至 少 包 含 一 个 字段 的 任何 姓名 槽 匹配 ， 并 把 其 最 后 的 字段 作为 指定 姓名 。 
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(defrule print~social-security-numbers 
(print-ss-numbers-for ?last-name) 
(person (name $? ?last-name) 
{social-security-number ?ss-number) } 





=> 
(printout t ?ss-number crlf)) 


类 似 地 ， 当 一 个 模式 中 的 多 字段 权 没 有 指定 时 ，CLIPS 会 自动 为 该 模式 的 槽 增加 一 个 多 字段 通 配 
RRE. Am, ER: 


(person (social-security-number ?ss-number) ) 


被 转换 成 ， 


(person (name $?) 
(social-security-number ?ss-number} ) 


多 字段 变量 


正如 单字 段 变 量 前 加 “?”， 多 字段 变量 前 则 加 “$ ?”。 下 列 指令 说 明 如 何 打印 一 特定 人 的 所 有 子 
女 的 姓名 : 


(deftemplate person 
(multislot name) 
(multislot children)) 


(deffacts some-people 
(person (name John Q. Public) 
(children Jane Paul Mary) ) 
(person (name Jack R. Public) 
(children Rick))) 


(defrule print-children 
(print-children $?name) 
(person (name $?name) 
(children $?children) ) 
=> 
(printout t ?name * has children * ?children 
crlf)) 


规则 print-children 的 第 一 个 模式 把 将 要 打印 出 其 子女 的 那个 人 的 姓名 约束 给 变量 S? name。 第 二 
个 模式 把 事实 person 与 包含 在 变量 $ ? name 中 的 指定 姓名 相 匹 配 ， 然 后 ， 将 此 人 的 子女 列表 约束 给 变 
E $? childerm。 该 值 随后 在 规则 的 RHS 中 打印 出 来 。 

注意 ,在 规则 的 RHS 中 引用 一 个 多 字段 变量 时 ， 无 须 在 变量 名 中 包含 符号 $ 。 符 号 $ 只 用 于 LHS 
中 来 表明 能 约束 给 该 变量 的 零 个 或 多 个 字段 。 
以 下 对 话 显 示 了 print-children 规则 如 何 运 行 : 

CLIPS> (reset) 

CLIPS> (assert (print-children John Q. Public) ) 

Aass mua) J 


(John Q. Public) has children (Jane Paul Mary) 
CLIPS> 


注意 ,约束 给 变量 ? name 和 ? children 的 多 字段 值 在 打印 时 ， 可 用 括号 括 起 。 
在 单个 模 中 可 以 使 用 多 个 多 字段 变量 。 例 如 ， 假 定 我 们 想 找 出 所 有 这 些 人 ， 他 们 有 一 个 孩子 ， 孩 
子 有 特定 的 姓名 。 以 下 规则 可 完成 这 一 任务 : 


(defrule find-child 
(find-child ?child) 
(person (name $?name) 
(children $?before ?child $?after)) 
=> 
(printout t ?name " has child " ?child crlf) 
(printout t "Other children are " 
?before " " ?after crlf}) 
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总 的 来 说 ， 如 果 我 们 只 对 变量 ? child 的 值 感 兴趣 ， 那么 就 可 用 多 字段 通配符 来 蔡 代 变量 ? before 
和 ? after (同时 删 去 与 这 两 个 变量 相关 联 的 打印 输出 语句 )。 以 下 对 话 显示 了 find-child 规则 如 何 运 行 : 


CLIPS> (reset) 

CLIPS> (assert (£ind-child Paul) ). 
<Fact-3> 

CLIPS> (run) 

(John Q. Public) has child Paul 
Other children are (Jane) (Mary) 
CLIPS> (assert (find-~child Rick) ) 
<Fact-4> 

CLIPS> (run) 

(Jack R. Public) has chiid Rick 
Other children are () () 

CLIPS> (assert (find-child Bill))J 
<Fact-5> 

CLIPS> (run) 

CLIPS> 


当 Paul 约束 给 变量 ? child 时， 变量” before 和 ? after 分 别 约 束 到 (Jane) 和 (Mary) 上 。 同样 ， 
当 Rick 约束 给 变量 ?child 时 ， 变 量 ? before 和 ? after HARB () 上 ， 多 字段 当然 也 包括 零 字 段 。 


以 多 种 方式 进行 模式 匹配 


到 目前 为 止 ， 我 们 已 处 理 了 单一 事实 以 单一 方式 与 模式 匹配 的 情形 。 通 过 使 用 多 字段 通配符 ， 可 
以 多 种 方式 进行 模式 匹配 。 假 定 输入 这 样 一 个 事实 ， 某 人 以 他 本 人 的 姓名 为 他 所 有 的 子女 命名 ， 参 看 
下 列 : 


CLIPS> (reset) 
CLIPS> (assert (person (name Joe Fiveman) 
(children Joe Joe Joa))) 


<Fact-3> 

CLIPS> (assert (find-child Joe)) 
<Fact-4> 

CLIPS> (agenda) 

0 find-child: f-4,£-3 

0 find-child: f-4,f-3 

0 find-child: £-4,£-3 

For a total of 3 activations. 


CLIPS> (xun)J 

(Joe Fiveman) has child Joe 
Other children are () (Joe Joe) 
(Joe Fiveman) has child Joe 
Other children are (Joe) (Joe) 
(Joe Fiveman) has child Joe 
Other children are (Joe Joe) () 
CLIPS> 


正如 本 规则 激活 情况 所 显示 的 ， 有 3 种 不 同 的 方式 使 变量 ?child、? before 和 ? after 约束 到 事实 人 3 
上 。 第 一 种 情形 ， 变 量 ? before 约束 到 (),? child 约束 到 Joe, ? after 约束 到 (Joe Joe)。 第 二 种 情 
形 ,? before 约束 到 (Joe),? child 约束 到 Joe,? after 约束 到 (Joe) 上 。 第 三 种 情形 下 ,? before 约束 到 
(Joe Joe) ,? child 约束 到 Joe,? after 约束 到 O 上 。 
堆栈 的 实现 

堆栈 (stack) 是 一 种 有 序 事实 结构 ， 其 元 素 能 被 添加 和 删除 ， 这 些 操作 在 “ 栈 顶 ”进行 。 新 的 元 
素 可 以 压 人 堆栈 (添加 ) 或 最 后 添加 的 元 素 从 栈 顶 弹出 (删除 ) 。 在 堆栈 中 ,最早 添加 的 元 素 最 后 被 移 
走 ， 最 后 添加 的 元 素 最 早 被 移 走 。 

堆栈 的 一 个 很 好 的 类 比 是 餐厅 的 盘子 ， 新 盘 加 在 盘 释 的 顶端 〈( 压 人 )， 最 后 加 到 项 端的 盘 最 先 被 移 
E (弹出 )。 

使 用 多 字段 变量 能 相对 容易 地 实现 堆栈 的 压 人 和 弹出 操作 。 首 先 ， 使 用 包含 一 组 元 素 的 有 序 事实 
stack。 以 下 规则 是 一 个 值 压 入 事实 stack 中 的 操作 : 
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{defrule push-value 
?push-value <- (push-value ?value) 
?stack <- (stack $?rest) 
=> 
(retract ?push-value ?stack) 
(assert (stack ?value $?rest)) 
(printout t “Pushing value " ?value crlf) 


实现 出 栈 操作 需 两 条 规则 : 一 条 用 于 空 栈 ， 另 一 条 用 于 非 空 栈 。 


(defrule pop-value-valið 
?pop-value <- (pop-value) 
?stack <- (stack ?value $?rest) 
=> 
(retract ?pop-value ?stack) 
(assert (stack S$?rest)) 
(printout t “Popping value " ?value crlf)) 


(defrule pop-value-invalid 
?pop-value <- (pop-value) 
(stack) 
=> 
(retract ?pop-value} 
(printout t "Popping from empty stack" crlf)) 


很 容易 将 这 些 规 则 转换 成 对 已 命名 的 堆栈 进行 的 压 人 和 弹出 操作 。 例 如 ， 下 列 模式 : 


?Push-value <- (push-value ?Value) 
?stack <- (stack $?rest) 


TERK: 


?push-value <- (Push-value ?name ?value) 
?stack <- (stack ?name $?rest) 


此 处 ,? name 代表 栈 名 。 
块 世界 问题 的 重新 探讨 


使 用 多 字段 通配符 和 变量 ， 可 使 块 世界 问题 的 解决 方式 大 大 简化 。 每 个 栈 可 由 一 个 单一 事实 表示 ， 
如 下 所 示 。 移 动 块 的 操作 类 似 于 人 栈 / 出 栈 操作 。 


(deffacts initial-state 
(stack A B C) 
(stack D E F} 
(goal (move C) (on-top-of E)) 
{stack)) 


设置 空 栈 事实 stack 是 为 了 防止 以 后 可 能 出 现 的 情况 。 比 如 ， 堆 栈 中 只 有 一 个 块 时 ， 把 它 移 到 另 一 
块 的 顶部 以 后 将 成 为 空 的 堆栈 。 
使 用 多 字段 变量 的 块 世界 程序 规则 如 下 : 


(defrule move-directly 

?goal <- (goal (move ?blocki) 
{on-top-of ?block2)) 

?stack-1 <- (stack ?blockl $?rest1) 

?stack-2 <- (stack ?block2 $?rest2) 

=> 

(retract ?goal ?stack-1 ?stack-2) 

(assert (stack $?rest1)) 

(assert (stack ?blockl ?block2 $?rest2)) 

(printout t ?blockl * moved on top of " 

?block2 "." crlf)) 


(defrule move-to-floor 
?goal <- (goal (move ?blockl) (on-top-of floor)) 
?stack-1 <- (stack ?blockl $?rest) 
=> 
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(retract ?goal ?stack-1} 

(assert (stack ?block1) ) 

(assert (stack $?rest)) 

(printout t ?blockl " moved on top of floor." 
crlf)) 


(Gefrule clear-upper-block 
(goal (move ?blocki)) 
(stack ?top $? ?blocki $?) 
=> 
(assert (goal (move ?top) (on-top-of floor)))) 


(defrule clear-lower-block 
{goal {on-top-of ?block1)) 
(stack ?top $? ?blockl $?) 
=> 
(assert (goal (move ?top) (on-top-of floor)))) 


7.25 小 结 


本 章 介 绍 了 CLIPS 的 基本 组 成 。 事 实 是 CLIPS 系统 中 的 第 一 个 组 成 部 分 ， 它 由 字段 组 成 。 字 段 可 
以 是 符号 、 字 符 串 、 整 数 或 者 是 浮 点 数 。 事 实 的 第 一 个 字段 一 般 用 于 显示 存储 在 该 事实 中 的 信息 类 型 ， 
称 为 关系 名 (relation name)。 自 定义 模板 结构 用 来 将 槽 名 指定 给 事实 中 特定 字段 ， 这 些 字段 以 一 个 指 
定 的 关系 名 开头 。 自 定义 事实 结构 用 来 将 事实 指定 为 初始 知识 。 

规则 是 CLIPS 系统 的 第 二 个 组 成 部 分 。 一 条 规则 可 分 为 LHS 和 RHS 两 部 分 。 规 则 中 的 LHS 可 被 
看 作 是 正 部 分 ，RHS 可 被 看 作 是 THEN 部 分 。 规 则 有 多 个 模式 和 行为 。 

CLIPS 的 第 三 个 组 成 部 分 是 推理 机 。 其 模式 与 事实 相 匹配 的 规则 会 产生 一 个 激活 ， 该 激活 被 置 于 
议程 中 。 反 射 会 使 规则 不 会 频繁 地 被 旧事 实 激活 。 

本 章 还 介绍 了 变量 的 概念 。 变 量 用 来 从 事实 获取 信息 ， 并 在 进行 规则 LHS 模式 匹配 时 约束 模 值 。 
变量 可 存储 规则 LHS 中 模式 的 事实 地 址 ， 使 与 模式 相 联系 的 事实 在 规则 的 RHS 上 可 以 被 撤销 。 如 果 
匹配 的 字段 可 以 任意 ， 且 它 的 值 在 规则 的 LHS 或 RHS 上 不 需要 时 ， 则 单字 段 通配符 可 以 代替 变量 。 
多 字段 变量 和 通配符 允许 匹配 模式 中 的 多 个 字段 。 


习题 
7.1 用 自 定义 事实 语句 把 下 列 句子 转换 成 事实 。 对 于 每 组 相关 的 事实 ， 定 义 一 个 自 定义 模板 ， 以 描述 
一 种 更 一 般 的 关系 。 


The father of John is Tom. (约翰 的 父亲 是 汤姆 ) 

The mother of John is Susan. (约翰 的 母亲 是 苏 姗 ) 

The parents of John are Tom and Susan. (约翰 的 父母 是 汤姆 和 苏 媚 ) 
Tom isa father. (汤姆 是 父亲 ) 

Susan is a mother. (JM ER) 

John is a son. (约翰 是 儿子 ) 

Tom is a male. (汤姆 是 男 的 ) 

Susan is a female. (JPME) 

John is a male. (约翰 是 男 的 ) 


7.2 为 包含 一 个 集合 信息 的 事实 定义 一 个 自 定义 模板 。 包 括 该 集合 的 名 称 或 描述 信息 、 集 合 中 的 元 素 
列表 和 它 是 否 为 另 一 集合 的 子 集 。 用 你 的 自 定义 模板 格式 把 下 列 集合 表示 为 事实 : 


= (1, 2, 3} 
1, 2, 3, red, green } 
red, green, yellow, blue } 


7.3 一 个 稀疏 数组 包含 相对 少 的 非 零 元 素 。 把 它 表示 成 链接 表 或 树 会 更 有 效 。 一 个 稀疏 数组 怎样 用 事 
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7.4 


7.5 


7.6 


7.7 


7.8 
7.9 


实 来 表示 ?描述 表示 该 数组 的 事实 所 用 的 自 定义 模板 。 与 在 过 程 语言 中 使 用 数组 数据 结构 相 比 ， 
用 事实 表示 数组 的 潜在 缺点 是 什么 ? 

把 图 2.4 (a) 表示 航线 的 一 般 网 络 转换 成 一 系列 以 自 定义 事实 语句 表述 的 事实 。 用 一 个 自 定义 模 
板 描述 这 些 事实 。 

把 图 2.4 (b) 表示 一 个 家 庭 的 语义 网 转变 成 一 系列 以 自 定 义 事实 语句 表述 的 事实 。 用 几 个 自 定 
义 模板 描述 所 产生 的 事实 。 

把 图 2.5 中 的 语义 网 转换 成 一 系列 以 自 定义 事实 语句 表述 的 事实 。 用 几 个 自 定义 模板 描述 这 些 事 
实 。 例 如 ，ISA 和 AKO 连接 是 关系 名 ， 每 一 个 连接 应 有 自己 的 自 定义 模板 。 

把 图 3.3 中 表示 动物 分 类 信息 的 二 又 判定 树 转换 成 一 系列 用 自 定义 事实 语句 表述 的 事实 。 说 明 怎 
样 才 能 表示 出 结 点 间 的 连接 。 叶 子 与 树 的 其 他 结 点 需要 不 同 的 表示 吗 ? 

利用 AKO 和 IS-A 自 定义 模板 ， 将 习题 2.1 中 的 语义 网 转换 成 自 定义 事实 语句 。 

植物 正常 生长 需要 多 种 不 同类 型 的 营养 素 。 化 肥 提 供 的 3 种 最 重要 的 营养 素 是 氮 、 磷 和 钾 。 这 3 
种 元 素 中 缺少 任何 一 种 都 会 引起 各 种 不 同 的 症状 。 把 下 面 的 直观 推断 转换 成 规则 ， 以 决定 是 否 缺 
乏 某 种 营养 素 。 假 设 此 植物 正常 时 是 绿色 的 。 

发 育 不 良 的 植物 可 能 缺 氮 。 

有 暗 黄 色 的 植物 可 能 缺 氮 。 

叶 边 红 褐 色 的 植物 可 能 缺 磷 。 

根 发 育 不 良 的 植物 可 能 缺 磷 。 

蕉 干 细 长 的 植物 可 能 缺 磷 。 

紫色 的 植物 可 能 缺 磷 。 

成 熟 期 推迟 的 植物 可 能 缺 磷 。 

叶 边 枯萎 的 植物 可 能 缺 钾 。 

茎 干脆 弱 的 植物 可 能 缺 钾 。 

种 子 或 果实 枯萎 的 植物 可 能 缺 钾 。 


用 自 定义 模板 描述 规则 中 使 用 的 事实 。 程 序 的 输入 应 该 通过 把 症状 声明 为 事实 来 形成 。 在 终端 打 
印 的 输出 应 该 指出 缺乏 哪 种 营养 素 。 设 计 一 种 方法 ， 避 免 缺 乏 一 种 营养 素 的 多 个 症状 产生 的 多 个 
打印 输出 。 用 以 下 输入 来 测试 你 的 程序 。 


植物 的 根 发 育 不 良 。 
植物 颜色 为 紫色 。 


7.10 根据 主要 的 燃烧 材料 ， 可 把 火灾 归 类 。 把 以 下 信息 转换 成 规则 ， 以 决定 火灾 的 类 型 


A 类 火灾 包括 如 纸 \ 木 和 布 等 普通 易 燃 物 。 

8B 类 火灾 包括 易 燃 液体 (如 石油 和 石油 气 ) .油脂 和 类 似 的 物质 。 

C 类 火灾 包括 使 用 电力 的 电器 。 

D 类 火灾 包括 易 燃 的 金属 ,如 镁 、 钠 和 钾 。 

用 来 灭火 的 灭火 器 类 型 取决 于 火 的 类 型 。 把 下 面 的 信息 转换 成 规则 ; 

A 类 火灾 应 该 使 用 吸 热 或 阻 燃 型 灭火 器 灭火 ,如 水 或 水 类 液体 和 无 水 化 学 品 。 

B 类 火灾 应 该 通过 隔绝 空气 .抑制 易 燃 蒸汽 的 释放 或 终止 易 燃 物 的 连锁 反应 来 灭火 。 灭 火器 包括 无 水 化 学 品 ,一 
化 碳 、 泡 沫 和 含 省 三 氟 甲 烷 。 

C 类 火灾 应 该 使 用 防 短路 的 非 导 电 媒质 灭火 。 如 果 可 能 的 话 ,应 切断 电源 。 灭 火器 包括 无 水 化 学 品 .二 氧化 碳 和 含 


省 三 气 甲 烷 。 
D 类 火灾 应 该 使 用 黎 煌 法 和 不 与 燃烧 金属 发 生 反 应 的 吸 热 化 学 品 灭 火 。 这 些 化 学 品 包 括 :三 甲 氧 硼 化 物 和 涂 有 石 


_ 黑 的 焦 碳 。 


描述 规则 中 所 用 的 事实 。 程 序 应 该 通过 声明 燃烧 材料 的 类 型 作为 事实 来 得 到 输入 。 输 出 结果 应 
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该 显示 可 以 使 用 何 种 灭火 器 以 及 应 该 采取 的 其 他 措施 ， 如 切断 电源 。 演 示 你 的 程序 ， 对 于 一 种 
材料 的 每 种 火灾 类 型 均 能 正常 处 理 。 

低 纬度 云 是 那些 高 度 等 于 或 低 于 6000 英尺 高 的 云 ， 包 括 层 云 和 层 积 云 。 中 纬度 云 是 那些 高 度 在 
6000 一 20000 英尺 的 云 ， 包括 高 层 云 、 高 积 云 和 乱 层 云 。 高 纬度 云 是 那些 高 于 20000 英尺 的 云 ， 
包括 卷 云 、 卷 层 云 和 卷 积 云 。 积 云 和 积 雨 云 可 以 从 低 到 高 纬度 之 间 分 布 。 层 云 、 高 层 云 、 卷 层 
云 、 积 云 和 积 雨 云 呈 大圆 堆 状 。 层 云 、 高 层 云 、 乱 层 云 和 卷 层 云 像 平滑 绵延 的 被 单 。 卷 云 有 纤 
细 的 外 观 ， 像 一 簇 簇 头发 。 乱 层 云 和 积 雨 云 是 含 雨 云 ， 呈 黑 灰色 。 编 写 一 个 程序 辨别 云 的 类 型 。 
程序 的 输入 应 该 是 描述 云 特征 的 事实 。 程 序 应 输出 已 辨别 出 来 的 云 的 类 型 。 

星体 被 分 成 不 同 的 颜色 群 ， 这 些 不 同 的 颜色 群 叫 光谱 类 型 。 这 些 类 型 的 范围 从 蓝 色 类 的 “O 型 ” 
星 ， 到 黄色 类 的 “G 型 ” 星 ， 再 到 红色 类 的 “M 型 ” 星 。 星 体 的 光谱 类 型 和 它 的 温度 有 关 : “0” 
类 星 的 温度 超过 37000'F;“B” 类 星 的 温度 从 17001°F 到 37000°F; “A” 类 星 的 温度 从 12501°F 
到 17000"F; “F” 类 星 的 温度 从 10301°F 到 12500°F; “G” 类 星 的 温度 从 8001°F 到 10300°F; 
“K” 类 星 的 温度 从 5501°F 到 8000"F;“M” 类 星 的 温度 等 于 或 低 于 5500"F。 星 体 还 可 根据 其 光 
度 (magnitude) 分 类 ， 光 度 是 星体 亮度 的 一 种 度量 。 光 度 越 低 ， 星 体 越 亮 。 假 设 光度 的 取 值 为 
-7 到 15 之 间 。 下 表 列 出 了 一 些 常见 的 最 亮 的 星体 和 它们 的 光谱 类 型 、 光 度 及 与 地 球 的 距离 
(以 光 年 为 单位 )。 编 写 一 个 程序 ， 以 表示 星体 光谱 类 型 和 光度 的 两 个 事实 为 输入 。 结 果 应 以 这 
种 顺序 输出 以 下 信息 : 有 指定 光谱 类 别 的 所 有 星体 ， 有 指定 光度 的 所 有 星体 ， 最 后 是 ， 光 谱 类 
型 和 光度 以 及 与 地 球 的 距离 (以 光 年 为 单位 ) 都 匹配 的 所 有 星 。 
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7.13 下 表 列 出 了 普通 宝石 的 特征 ， 包 括 硬 度 (对 外 部 压力 的 抵抗 能 力 ， 以 Mohs 刻度 度量 ) 、 密 度 


(单位 体积 的 重量 ， 以 g/cmr 为 单位 ) 和 颜色 。 根 据 给 定 的 表示 宝石 硬度 、 密 度 和 颜色 的 3 个 事 
实 ， 写 出 所 需 的 规则 以 判断 该 种 宝石 是 否 是 金 绿 宝石 。 


颜 色 
黄色 ,褐色 ,绿色 , 蓝 色 ,白色 ,无 色 
红色 ,粉红 色 , 黄 色 , 褐 色 ,绿色 , 蓝 色 , 紫 罗兰 ,黑色 ,白色 ,无 色 
黄色 ,褐色 ,绿色 
红色 ,粉红 色 ,黄色 ,褐色 ,绿色 , 蓝 色 ,紫罗兰 ,白色 ,无 色 
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( 续 ) 
宝石 | 硬度 | 密度 颜色 

黄玉 8 3.52-3.56 | HE, BAE, RE RE KE, KDZ AE, TE 
- 绿 柱石 7.5-8.0 2.7 红色 ,粉红 色 , 黄 色 , 褐 色 , 绿 色 , 蓝 色 , 白 色 ,无 色 

eG 6-7.5 4.7 黄色 ,神色 ,绿色 ,紫罗兰 ,白色 ,无 色 

石英 7 2.65 红色 ,粉红 色 , 绿 色 , 蓝 色 , 紫 罗兰 ,白色 ,黑色 ,无 色 

电气 石 7 3.1 HE BIE RE WE RE KE HE RE, TE 
RUA 6.5-7 3.3 黄色 ,褐色 ,绿色 

硬 玉 6.5-7 3.3 红色 ,粉红 色 , 黄 色 , 褐 色 , 绿 色 , 蓝 色 , 紫 罗兰 ,白色 ,黑色 ,无 色 
蛋白 石 5.5-6.5 2-2.2 红色 ,粉红 色 , 黄 色 , 褐 色 , 白 色 , 黑 色 , 无 色 

软 玉 5-6 2.9-3.4 绿色 ,白色 ,黑色 ,无 色 

绿 松石 5-6 2.7 蓝 色 














7.14 写 一 个 CLIPS 程序 ， 以 帮助 选择 种 植 适 当 的 灌木 。 下 表 列 出 了 几 种 灌木 ， 并 显示 每 种 灌木 是 否 
具有 某 些 特征 ,包括 耐寒 力 、 抗 阴暗 的 能 力 、 耐 时 能力、 抗 湿 土 能 力 、 抗 酸 土 能 力 、 适 应 城市 
居住 的 能 力 (抵抗 严重 污染 的 能 力 )、 在 容器 中 生长 的 能 力 ; 灌木 是 否 容易 养护 、 是 否 生长 迅 
速 。 一 个 黑 点 表示 此 灌木 具有 该 特征 。 程 序 的 输入 应 该 是 事实 ， 以 表示 灌木 必须 具有 的 所 需要 
的 特征 ， 程 序 的 输出 结果 应 列 出 具有 每 一 种 指定 特征 的 植物 。 
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7.15 在 某 堆栈 中 ， 第 一 个 压 人 栈 的 值 是 最 后 一 个 弹出 的 值 ; 而 最 后 一 个 压 和 的 值 是 第 一 个 弹出 的 值 。 
某 个 队列 以 相反 方式 工作 一 一 第 一 个 添加 的 值 是 第 一 个 移出 队列 的 值 ， 而 最 后 一 个 加 和 队列 的 
值 是 最 后 一 个 移出 队列 的 值 。 写 出 添加 和 移出 队列 的 规则 。 假 设 只 存在 一 个 队列 。 

7.16 编写 一 条 或 更 多 条 规则 ， 生 成 一 个 base 事实 的 全 部 排列 情况 ， 并 且 打 印 。 例 如 ， 事 实 


(base-fact red green blue) 
应 该 产生 的 输出 结果 为 : 


permutation is (red green blue) 
permutation is (red blue green) 
permutation is (green red blue) 
permutation is (green blue red) 
permutation is (blue red green) 
permutation is (blue green red) 
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7.17 给 出 一 个 形 为 
(input <value)) 
的 事实 ， 写 出 规则 ， 能 使 一 个 有 限 状态 机 从 目前 状态 转换 到 下 一 个 状态 。 状 态 机 和 它 的 弧 要 求 
表示 为 事实 。 状 态 机 进入 下 一 个 状态 时 ， 输 入 的 事实 应 该 被 撤销 。 根 据 图 3.5 和 图 3.6， 在 有 限 
状态 机 上 测试 你 编写 的 规则 和 事实 。 


参考 文献 


(Firebaugh 88). Morris W. Firebaugh, Artificial Intelligence: A Knowledge-Based Approach, 
Boyd & Fraser Publishing Co., pp. 224-226, 1988. 





第 8 章 高 级 模式 匹配 


8.1 概述 


第 7 章 所 述 的 规则 阐述 了 模式 与 事实 的 简单 模式 匹配 问题 。 本 章 将 介绍 几 个 概念 ， 以 提供 对 事实 
匹配 和 控制 的 强大 功能 。 第 一 个 概念 是 字段 约束 。 然 后 介绍 CLIPS 中 函数 的 使 用 ,包括 一 些 基 本 算术 
和 I/ 〇 操作 函数 。 并 将 讨论 控制 规则 执行 的 几 种 技巧 。 我 们 将 使 用 多 组 规则 来 建立 比 上 一 章 功 能 更 强 
大 、 结 构 更 复杂 的 程序 。 一 些 有 关 输 入 、 值 的 比较 和 产生 循环 的 技术 将 被 演示 ， 另外， 也 包括 应 用 规 
则 来 规定 控制 知识 的 技术 。 除 了 介绍 模式 CE 之 外 ， 还 会 介绍 一 些 其 他 类 型 的 条 件 元 素 。 这 些 条 件 元 
素 允 许 单独 的 一 条 规则 去 执行 几 条 规则 的 功能 ， 并 且 提 供 了 虚 事 实 匹 配 的 能 力 。 


8.2 字段 约束 


非 (NOT) 字段 约束 


除了 具有 文字 常量 和 变量 约束 的 基本 模式 匹配 能 力 之 外 ，CLIPS 还 有 许多 功能 很 强 的 模式 匹配 符 。 
这 些 新 增加 的 模式 匹配 能 力 ， 将 通过 对 确定 人 群 的 头发 和 眼睛 颜色 问题 的 重新 考虑 来 进行 介绍 说 明 。 
举例 来 说 ， 我 们 要 找 出 所 有 头发 不 是 褐色 的 人 。 其 中 一 种 解决 方法 是 为 每 一 种 头发 颜色 写 规则 。 例 如 ， 
以 下 规则 用 于 找 出 有 黑头 发 的 人 群 (第 7.19 节 中 的 自 定义 模板 person 将 用 于 本 节 的 例子 )。 


(defrule black-hair-is-not-brown-hair 
(person (name ?name) (hair black) ) 
=> 
(printout t ?name " does not have brown hair" 
erlf)) 


另 一 条 规则 可 找 出 有 金色 头发 的 人 群 。 


(defrule blonde-hair-is-not-brown-hair 
(person (name ?name) (hair blonde))} 
=> 
{printout t ?name " does not have brown hair" 
erlf)} 


此 外 ， 还 可 写 出 其 他 的 规则 来 找 出 有 红头 发 的 人 群 。 运 用 这 种 方式 写 出 规则 的 问题 来 检查 条 件 为 
头发 不 是 褐色。 上 面 的 规则 试图 以 一 种 迁 回 的 方式 检查 这 一 条 件 ， 即 这 些 规 则 选 出 所 有 非 褐色 的 头发 
颜色 ， 同 时 要 为 每 一 种 颜色 写 规则 。 如 果 能 规定 所 有 的 颜色 ， 那么 这 种 方法 就 行 得 通 。 在 本 例 中 ， 假 
定 头 发 可 以 是 任何 颜色 (甚至 是 紫色 或 绿色 ) 也 许 会 更 简单 。 

解决 这 一 问题 的 一 种 方法 是 使 用 字段 约束 (field constraint) 来 限制 一 个 字段 可 能 在 LHS 中 的 值 。 
其 中 一 种 被 称 作 连接 约束 (connective constraint) ， 命 名 的 原因 在 于 它 被 用 于 连接 变量 和 约束 )。 有 3 种 
连接 约束 ， 第 一 种 叫 非 约 束 (not constraint) ， 用 波浪 号 一 来 表示 。 非 约束 作用 于 其 后 的 约束 或 变量 上 。 
如 果 其 后 的 约束 同一 个 字段 相 匹配 ， 则 非 约束 成 功 ; 否则 ， 非 约束 失败 。 本 质 上 ， 非 约束 对 其 后 的 约 
束 结果 进行 和 否定。 

使 用 非 约束 可 使 找 出 无 褐色 头发 人 群 的 规则 大 大 简化 ， 


(defrule person-without -brown-hair 
(person (name ?name) (hair ~brown)) 
=> 
(printout t ?name " does not have brown hair" 
crlf)) 


通过 使 用 非 约束 ， 该 规则 与 许多 需 指明 每 种 可 能 头发 颜色 的 规则 具有 同样 的 效果 。 
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或 (OR) 字段 约束 


第 二 个 连接 约束 是 或 约束 (or constraint) ， 用 一 竖 杠 符号 | 表示 。 或 约束 允许 1 个 或 多 个 可 能 的 值 
与 一 个 模式 的 字段 相 匹配 。 
例如 ， 下 面 这 条 规则 使 用 了 或 约束 来 找 出 全 部 有 黑色 或 神色 头发 的 人 : 


(defrule black-or-brown-hair 
(person (name ?name) (hair brown | black)) 
=> 


(printout t ?name " has dark hair" crlf)) 


声明 事实 (person (name Joe) (eye blue) (hair brown)) and (person (name Mark) (eye brown) 
(hair black)) 会 为 议程 中 的 每 一 事实 激发 这 一 规则 。 


与 (AND) 字段 约束 


第 三 种 类 型 的 连接 约束 是 与 约束 (and constraint) 。 它 不 同 于 在 第 7.15 节 中 讲 过 的 与 条 件 元 素 。 与 
约束 用 符号 & 来 表示 。 与 约束 一 般 与 其 他 约束 联合 应 用 才 有 意义 ， 和 否则 ， 没 有 多 大 实用 价值 。 

与 约束 的 一 个 使 用 场合 是 在 需要 给 变量 的 约束 实例 以 附加 限制 时 。 例 如 ， 假 定 一 条 规则 被 这 样 的 
person 事实 激发 ， 即 一 个 人 的 头发 为 褐色 或 黑色 ， 通 过 使 用 或 (OR) 约束 可 容易 地 表达 寻找 该 事实 的 
模式 ， 如 上 例 所 示 。 然 而 ， 如 何 识别 头发 的 颜色 值 呢 ?解决 方法 是 通过 使 用 与 约束 ， 把 一 个 变量 约束 
到 匹配 的 颜色 上 ， 然 后 打印 出 该 变量 : 


(defrule black-or-brown-hair 
(person (name ?name) (hair ?color&brown|biack) ) 
=> 

* ?Color * hair” crlf)) 


(printout t ?name ” has 


变量 ? color 将 约束 到 与 black | brown 限制 条 件 匹 配 的 任 一 种 颜色 上 。 
与 约束 和 非 约 束 合用 同样 有 效 。 例 如 ， 下 述 规则 在 一 个 人 的 头发 既 非 黑色 又 非 褐色 的 情况 下 激发 ; 


(defrule black-or-brown-hair 
(person (name ?name) 
(hair ?color&~brown&~black) ) 
=> 
(printout t ?name " hair" crlf)) 


has " ?color " 


字段 约束 组 合 


字段 约束 与 变量 和 其 他 文字 值 混合 使 用 ， 可 以 提供 极 强 的 模式 匹配 能 力 。 比 如 ， 需 要 这 样 一 个 规 
则 以 确定 是 否 有 满足 以 下 条 件 的 两 个 人 : 第 一 个 人 有 蓝 眼 睛 或 绿 眼睛 ,但 没有 黑头 发 ; 第 二 个 人 眼睛 
颜色 与 第 一 个 人 不 同 ， 头 发 颜色 与 第 一 个 人 一 样 ， 或 者 是 红色 的 。 则 可 用 以 下 规则 匹配 这 些 约 束 : 


(defrule complex-eye-hair-match 


{person (name 
(eyes 

(hair 

(person (name 
(eyes 

(hair 

=> 
(printout t 


(printout t 


?namei * 
?hairl " 
?name2 
?hair2 " 


?namel) 
?eyesi&blue|green) 
?hairl&~black} } 
?name2&~?namel ) 
Peyes2&~?eyesl1) 
?hair2&red|?hair1)) 


has " 
hair" 
” has " 
hair" 


crif) 
?eyes2 
erlf)) 


?Peyesi " 


eyes and " 


" eyes and " 


本 例 值得 深入 研究 。 当 眼睛 为 蓝 色 或 绿色 这 一 事实 匹配 时 ， 第 一 个 模式 的 eyes (眼睛) HEP AUER 
制 条 件 ? eyesl &blue | green 将 第 一 个 人 的 眼睛 颜色 约束 给 变量 ? eyes。 当 头发 不 是 黑色 这 一 事实 匹配 
时 ， 第 一 个 模式 的 hair (头发 ) 槽 中 的 限制 条 件 ? hairl & ~ black 将 约束 给 变量 ? hairl。 
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第 二 个 模式 的 name (姓名 ) 槽 中 的 限制 条 件 ? name2& ~? namel 执行 一 项 很 有 用 的 操作 。 当 变 
量 ? name2 与 变量 ? namel 的 值 不 相等 时 ， 把 事实 person 的 name MAA RA ER? name2。 如 果 姓 名 
有 惟一 的 标识 符 〈 例 如 ,在 事实 库 中 不 存在 两 个 相同 的 人 名 )， 就 能 保证 两 个 模式 不 会 匹配 于 相同 的 事 
实 。 这 不 可 能 发 生 于 这 两 个 模式 ， 因 为 第 二 个 人 的 眼睛 颜色 一 定 不 同 于 第 一 个 人 的 。 然 而 ， 这 是 一 种 
有 用 的 技术 ， 它 有 许多 应 用 。 第 12.2 节 将 说 明 如 何 使 用 事实 地 址 来 确保 事实 相 异 ， 从 而 实现 这 种 技 
术 。 这 样 就 能 使 规则 在 人 们 姓名 相同 而 头发 和 眼睛 相 异 的 情形 下 仍 能 正常 运作 。 

第 二 个 模式 的 eyes 槽 中 的 限制 条 件 ? eyes2 人 一 ”eyesl 如 同 前 面 的 限制 条 件 一 样 执行 相同 的 检查 。 
如 果 头 发 的 颜色 是 红色 或 与 变量 ? hairl 的 值 一 样 ， 则 第 二 个 模式 的 hair (头发 ) 槽 中 的 最 后 一 个 限制 
条 件 ?hair2 &red | ? hairl 将 把 第 二 个 人 的 头发 的 颜色 值 约束 给 变量 ?hairs2。 须 指出 ， 如 果 变 量 被 用 
作 或 字段 约束 中 的 一 部 分 时 ， 该 变量 必须 已 被 约束 。 

只 有 当 这 些 变 量 是 某 字段 中 的 第 一 个 条 件 且 分 别 出 现 ,或 者 是 用 与 连接 约束 将 它们 与 其 他 条 件 连 
接 成 一 体 时 ， 这 些 变 量 才 必须 已 被 约束 。 例如， 以 下 语句 : 

{defrule bad-variable-use 

(person (name ?name) (hair red|?hair)) 


=> 
(printout t ?name " has " ?hair " hair " crlf)) 


会 产生 一 个 错误 结果 ， 因 为 ? hair 没有 被 约束 。 

对 组 合 限 制 条 件 的 最 后 一 点 说 明 是 ， 有 些 组 合 限制 条 件 是 不 起 实际 作用 的 。 例 如 ， 用 与 约束 来 连 
接 字符 常量 〈 例 如 black&blue) 会 引起 该 条 件 总 不 能 被 满足 ， 除 非 两 个 字符 常量 是 相同 的 。 同 样 ， 用 
or 约束 来 连接 相反 的 字符 常量 〈 例 如 一 black| 一 blue) 会 使 该 条 件 总 是 成 立 。 


8.3 郑 数 和 表达 式 


基本 数学 函数 


CLIPS 除了 可 以 处 理 用 符号 表示 的 事实 之 外 ， 还 可 以 进行 计算 。 请 记 住 ， 像 CLIPS 这 类 专家 系统 
语言 不 是 专 为 数据 处 理 而 设计 的 。 虽 然 CLIPS 的 数学 功 表 8 1 CLIPS 基本 算术 运算 符 
能 非常 强大 ,但 主要 是 用 于 处 理应 用 程序 中 有 关 推 理 的 数 一 一 一 一 一 一 一 一 一 一 一 一 





据 操作 。 其 他 计算 机 语言 如 FORTRAN 更 适合 于 不 需要 el = 
或 只 需要 很 少 推理 的 数据 处 理 。CLIPS 提供 了 最 基本 的 算 t is 
术 运 算 符 ， 见 表 8.1 (MR EFH T CLIPS 提供 的 一 系列 x 乘法 
其 他 数学 函数 。 随 书 附送 的 光盘 中 的 Basic Programming / 除法 


Guide 提供 了 更 详尽 的 CLIPS 函数 ) 。 

CLIPS 中 的 数学 表达 式 是 按 LISP 风格 表示 的 。 在 LISP 和 CLIPS 中 数学 表达 式 必须 写成 前 缀 形式 
(prefix form) ， 如 习惯 写法 2+ 3 要 写成 (+ 2 3)。 我 们 平时 写 的 数学 表达 式 叫 中 缀 形式 (infix form), 
即 算术 运算 符 放 在 两 个 操作 数 (operand) 或 参数 (argument) 之 间 。 但 在 CLIPS 中 是 采用 前 缀 形式 ， 
即 运算 符 必须 放 在 操作 数 的 前 面 ， 数 学 表达 式 用 符号 括 起 。 

把 中 缀 形式 的 数学 表达 式 转换 为 前 缀 形式 较为 容易 。 例 如 ， 假 设 要 检验 两 个 分 数 是 否 成 正比 例 ， 
习惯 用 中 缀 形式 可 写成 : 

{y2 - yl) / {x2 - x1) > 0 

注意 大 于 号 > 是 CLIPS 中 一 个 用 于 判断 前 一 个 数 是 否 大 于 后 一 个 数 的 函数 ( > 函数 的 描述 见 附 
F E & Basic Programming Guide)。 为 了 将 此 式 写 成 前 缀 形式 ， 可 把 分 子 认 为 是 (Y)， 分 母 认为 是 
(X)。 这 样 ， 上 述 表达 式 可 写成 


(Y) / (X) > 0 
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除法 的 前 级 形式 是 ， 
(CA (Y) (x) 


因为 前 缀 形式 中 运算 符 在 变量 的 前 面 ， 除 法 结果 必须 检验 以 确定 它 是 否 大 于 O. MA WAER 
是 这 样 的 : 


{> (/ (Y) (X)) 0) 


在 中 缀 形式 中 ，Y= 只 -了 1。 由 于 建立 的 是 前 缀 表达 式 ， 故 需 使 用 前 组 形式 。 所 以 ，Y 代替 的 是 
(-y2 yl), 而 X 代 替 的 是 (一 x2 xl)。 用 (Y) 和 (X) 的 前 缀 形式 来 表示 ， 最 后 会 得 到 这 样 一 个 表达 式 : 


(> (/ (= y2 yl) (- x2 x1)) 0) 


在 CLIPS 中 求 数学 表达 式 (以 及 其 他 表达 式 ) 最 简单 的 方法 是 在 顶层 提示 符 状 态 下 求 此 表达 式 的 
值 。 例 如 ， 在 CLIPS 提示 符 后 输入 (+ 2 2) 会 得 到 以 下 结果 : 


CLIPS> (+ 2 2) 
4 
CLIPS> 


计算 机 会 显示 出 正确 结果 : 4。 一 般 来 说 ， 任 何 待 求 值 的 CLIPS 表达 式 都 可 以 在 顶层 提示 符 状态 
下 输入 。 大 部 分 函数 ， 如 加 法 运算 ， 都 会 有 一 个 返回 值 (return value)。 这 个 返回 值 可 能 是 一 个 整数 、 
一 个 浮 点 数 、 一 个 符号 、 一 个 字符 串 或 者 甚至 是 一 个 多 字段 值 。 其 他 函数 ， 如 facts 命令 和 agenda 命 
令 ， 就 没有 返回 值 。 这 种 没有 返回 值 的 函数 一 般 都 有 所 谓 的 副作用 (side effect). facts 命令 的 副作用 就 
是 列 出 事实 表 中 的 事实 。 

其 他 数学 函数 也 可 以 在 提示 符 状 态 下 运行 。 以 下 一 些 例 子 展示 了 其 他 表达 式 的 计算 过 程 : 

CLIPS> (+ 2 3) 

CLIPS> (- 2 3). 


-1 
CLIPS> (* 2 3) 
6 


CLIPS> (/ 2 3)H 
0.66666667 
CLIPS> 


注意 ， 除 法 的 结果 可 能 在 最 后 一 个 数位 出 现 伟人 误差 。 此 结果 在 不 同 机 器 上 可 能 有 所 不 同 。 
如 果 加 、 减 和 乘法 运算 中 的 所 有 操作 数 都 是 整数 ， 则 其 结果 也 是 整数 。 只 要 其 中 有 一 个 是 浮 点 数 ， 则 
得 出 的 结果 也 是 浮 点 数 。 除 法 函数 的 第 一 个 操作 数 总 是 自动 转化 为 浮 点 数 ， 因 此 其 结果 也 为 浮 点 数 。 例 如 : 


CLIPS> (+ 2 3.0), 
5.0 

CLIPS> (+ 2.0 3) 
5.0 

CLIPS> (+ 2 3)J 

5 

CLIPS> 


可 变 参 数 运算 


用 前 缀 形式 来 表达 不 固定 的 操作 数 个 数 相当 简单 。 许 多 CLIPS 函数 允许 操作 数 的 个 数 不 固 定 。 在 
加 、 减 和 乘法 运算 表达 式 中 ， 参 与 运算 的 操作 数 可 多 于 两 个 。 对 于 2 个 以 上 的 操作 数 ， 其 运算 顺序 是 
一 样 的 。 下 面 的 例子 展示 3 个 操作 数 参 与 运算 的 情况 。 运 算 顺 序 是 从 左 到 右 。 


CLIPS> (+ 2 3 4)i 
9 

CLIPS> (- 2 3 4) 
-5 

CLIPS> (* 2 3 4) 
24 

CLIPS> (/ 2 3 4) 
0.16666667 

CLIPS> 
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再 次 提醒 注意 的 是 ， 除 法 的 结果 的 最 后 一 位 数 可 能 会 随 计算 机 的 不 同 而 不 同 。 
优先 级 和 幅 套 表达 式 


CLIPS 和 LIP 的 一 个 重要 特点 是 它们 没有 内 置 的 数学 运算 符 的 优先 级 。 在 其 他 计算 机 语言 里 ， 乘 
法 和 除法 的 优先 级 高 于 加 法 和 减法 运算 ， 即 计算 机 会 优先 做 高 优先 级 的 运算 。 在 CLIPS 和 LISP 中 ， 
所 有 的 运算 都 是 从 左 到 右 依次 进行 ， 优 先 级 只 由 括号 确定 。 

混合 运算 也 可 以 用 前 级 形式 运行 。 例 如 ， 假 定 要 求 下 面 中 缀 形式 的 表达 式 : 

2+3*4 

通常 是 3 先 乘 以 4， 再 加 上 2， 得 出 结果 。 但 在 CLIPS 中 ， 优 先 级 必须 明显 地 表示 出 来 ， 即 通过 如 
下 形式 的 表达 式 进行 计算 : 

CLIPS> (+ 2 (* 3 4))4 


14 
CLIPS> 


在 此 准则 下 ， 最 里 面 括号 内 的 运算 首先 执行 ， 即 3 先 乘 以 4， 所 得 的 结果 再 加 上 2. 如 果 所 需 的 运 
算是 (2+3) * 4， 即 先 执行 加 法 ， 则 表达 式 将 是 : 


CLIPS> (* (+ 2 3) 4})J 
20 
CLIPS> 


AOR GL, RART A A ARES A, AE, -DRERI WRB assert 命令 
例如 ， 


CLIPS> (clear). 

CLIPS> (assert (answer (+ 2 2))).) 
<Fact-0> 

CLIPS> (facts) 

£-0 (answer 4) 

For a total of 1 fact. 

CLIPS> 


而 且 ， 因 为 函数 的 名 称 也 是 符号 ， 所 以 使 用 它们 就 像 使 用 其 他 符号 一 样 。 例 如 ， 将 其 作为 fact 事 
实 中 的 字段 : 

CLIPS> (clear) 

CLIPS> (assert (expression 2 + 3 * 4))./ 

<Fact-0> 

CLIPS> (facts) 

£-0 (expression 2 + 3 * 4) 


For a total of 1 fact. 
CLIPS> 


然而 ， 在 CLIPS 中 括号 是 定 界 符 ， 因 此 ， 不 可 能 像 使 用 其 他 符号 那样 使 用 它们 。 为 了 在 事实 中 使 
用 它们 ， 或 将 它们 作为 函数 的 操作 数 ， 就 需要 用 引号 把 它们 括 起 来 ， 使 之 成 为 一 个 字符 串 。 


8.4 使 用 规则 求 和 


作为 一 个 使 用 函数 进行 运算 的 简单 例子 ， 思考 求 一 组 矩形 面积 的 和 。 和 矩形 的 长 和 宽 可 以 用 以 下 自 
定义 模板 规定 : 
(deftemplate rectangle (slot height) (slot width)) 


和 矩形 面积 之 和 可 以 使 用 一 个 有 序 事实 规定 ， 如 : 


(sum 20) 


一 个 自 定义 事实 语句 包含 以 下 简单 信息 : 


(deffacts initial-information 

(rectangle (height 10) (width 6)) 
(rectangle (height 7) (width 5)) 
{rectangle (height 6) (width 8)) 
(rectangle (height 2) (width 5)) 
(sum 0) ) 
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最 初试 图 产生 求 矩形 面积 之 和 的 规则 可 能 是 : 


{defrule sum-rectangles 
(rectangle (height ?height) (width ?width)) 
?sum <- (sum ?total) 
=> 
(retract ?sum) 
(assert (sum (+ ?total (* ?height ?width))))) 


但 这 条 规则 会 不 停 地 循环 运行 。 先 撤销 sum 事实 ， 然 后 再 次 声明 此 事实 将 通过 单个 rectangle 事实 
产生 一 次 循环 。 一 个 解决 办 法 是 在 将 各 个 和 矩形 面积 加 到 sum 事实 之 后 ， 才 撤销 rectangle 事实 。 这 防止 
了 该 规则 用 不 同 的 sum 事实 激活 同一 个 rectangle 事实 。 如 果 要 保持 rectangle 事实 ， 则 要 用 别 的 方法 。 
对 于 每 个 rectangle 事实 ， 可 创建 一 个 临时 事实 ， 它 包含 了 将 要 加 到 和 上 去 的 矩形 区 域 。 这 个 临时 事实 
可 以 撤销 ， 从 而 防止 了 无 限 循 环 。 以 下 是 修改 后 的 程序 : 


{defrule sum-rectangles 
(rectangle (height ?height) (width ?width)) 
=> 
{assert (add-to-sum {* ?height ?width)}))) 


{defrule sum-areas 
?sum <- (sum ?total) 
?new-area <- (add-to-sum ?area) 
a> 
(retract ?sum ?new-area} 
{assert {sum (+ ?total ?Parea)))) 


以 下 的 运行 结果 显示 了 这 两 个 规则 如 何 相互 配合 计算 出 矩形 面积 的 总 和 : 


CLIPS> (unwatch all) 
CLIPS> (watch rules) 
CLIPS> (watch facts) 
CLIPS> (watch activations) 
CLIPS> (reset). 
f-0 (initial-fact) 
f-1 {rectangle (height 10) (width 6)) 
Activation 0 sum-rectangles: f-1 
£-2 {rectangle (height 7) (width 5)) 
Activation 0 sum-rectangles: £-2 
£-3 (rectangle (height 6) (width 8)) 
Activation 0 sum-rectangles: £-3 
f-4 {rectangle (height 2) (width 5)) 
Activation 0 sum-rectangles: f-4 
£-5 (sum 0) 
PS> (run) 
1 sum-rectangles: f-4 
£-6 (add-to-sum 10} 
Activation 0 sum-areas: £-5,f-6 
2 sum-areas: f-5,f£-6 
£-5 (sum 0) 
£-6 (add-to-sum 10) 
f-7 (sum 10) 
3 sum-rectangles: f-3 
==> £-8 (add-to-sum 48) 
==> Activation 0 sum-areas: f-7,f-8 
FIRE 4 sum-areas: £-7,f£-8 
= £-7 (sum 10) 
= £-8 (add-to-sum 48) 
> £-9 (sum 58) 
5 sum-rectangies: f-2 
=> f-10 (add-to-sum 35) 
==> Activation 0 sum-areas: £-9,£-10 
FIRE 6 sum-areas: £-9,£-10 
== f-9 (sum 58) 
<== f£-10 ({add-to-sum 35) 
=> f£-11 (sum 93} 
FIRE 7 sum-rectangles: f-1 
==> £-12 (add-to-sum 60) 
==> Activation 0 sum-areas: f-11,f-12 
FIRE 8 sum-areas: f-11,f£-12 
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<== f-11 (sum 93) 

<== f-12 {add-to-sum 60) 
==> f-13 (sum 153) 
CLIPS> (unwatch all)— 
CLIPS> 


“4 reset 命令 声明 rectangle 事实 后 ，sum-rectangles 规则 被 激活 4 次 。 每 次 激活 sum-rectangles 规则 ， 
就 声明 一 事实 ， 激 活 sum-areas 规则 。sum-areas 规则 将 矩形 面积 加 到 中 间 和 上 ， 并 删除 add-to-sum 事 
实 。 因 为 sum-rectangles 规则 与 sum 事实 不 匹配 ， 所 以 ， 声 明 一 个 新 的 sum 事实 时 ， 不 会 再 次 激活 sum- 
rectangles 规则 。 


8.5 BIND 函数 


当 函 数 产生 副作用 时 ， 用 一 个 临时 变量 来 存放 结果 以 防止 重复 计算 是 一 个 好 方法 。bind 函数 可 以 
用 于 将 一 个 变量 的 值 约束 为 表达 式 的 值 。 其 语法 结构 是 ; 


(bind <variable> <value>) 


被 约束 的 变量 < variable> 使 用 单字 段 变量 语法 结构 。 新 的 值 < value> 应 该 是 一 个 求 单字 段 或 多 字 
段 值 的 表达 式 。 例 如 ，sum-areas 规则 可 以 打印 出 总 和 以 及 加 到 总 和 上 的 各 个 矩形 的 面积 。 


(defrule sum-areas 
?sum <- (sum ?total) 
?new-area <- (add-to-sum ?area) 
=> 
(retract ?sum ?new-area) 
(printout t "Adding " ?area * to " ?total crlf) 
(printout t "New sum is " (+ ?total ?Parea) crlf) 
(assert (sum (+ ?total ?area))))} 


YER, HATE (+ 7 total? area) 在 规则 的 RHS 中 用 了 两 次 。 用 一 个 bind 函数 来 代替 这 两 个 计算 
式 可 以 省 去 不 必要 的 计算 。 用 bind 函数 改写 后 的 规则 是 ， 


(defrule sum-areas 
?sum <- (sum ?total) 
?new-area <- (add-to-sum ?area) 
=> 
(retract ?sum ?new-area) 
(printout t "Adding " ?area " to " ?total crlf) 
(bind ?new-total (+ ?total ?area)) 
(printout t "New sum is " ?new-total crlf) 
(assert (sum ?new-total)))} 


bind 函数 除了 可 以 在 规则 的 RHS 上 创建 新 的 变量 之 外 ， 还 可 以 用 来 重新 约束 规则 LHS 上 的 变量 。 
8.6 1/0 函数 


Read 函数 


专家 系统 通常 需要 计算 机 用 户 输 入 信息 。CLIPS 允许 使 用 read 函数 从 键盘 读 人 信息 。Read 函数 在 
基本 语法 中 不 需要 自 变量 。 以 下 的 例子 说 明 如 何 用 read 函数 来 输入 数据 ; 


CLIPS> (clear) 
CLIPS> 
(defrule get-first-name 
z> 
(printout t "What is your first name? ") 
(bind ?response (read)) 
(assert (user’s-name ?response))) 
CLIPS> (reset). 
CLIPS> (run) 
What is your first name? Gary- 
CLIPS> (facts) 
f-0 (initial-fact) 
f-1 (user’s-name Gary) 
For a total of 2 facts. 
CLIPS> 
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注意 ， 每 次 读 人 的 事实 都 要 以 回 车 确认 ， 而 且 每 次 只 能 读 人 一 个 字段 。 在 第 一 个 字段 后 到 回 车 之 
间 输 入 的 所 有 附加 字符 都 被 丢弃 。 人 例如， 如果 get-first-name 规则 试图 读 人 下 列 输入 的 姓 和 名 : 


Gary Riley 


的 话 ， 则 只 有 第 一 个 字符 Gary 会 被 读 人 。 为 读 人 所 有 输入 ， 必 须 用 双 引 号 将 其 括 住 。 当 然 ， 输 入 一 旦 
用 双 引 号 括 起 ， 就 成 了 一 个 文字 字段 了 。Gary 和 Riley 字段 不 容易 分 开 访问 。 

Read 函数 允许 输入 除 符 导 、 字 符 串 .整数 和 小 数 之 外 的 字段 ， 如 允许 输入 括号 。 以 下 命令 行 展示 
了 这 种 情况 : 

CLIPS> (read) 

(4 


ace 
CLIPS> 


除了 键盘 输入 和 终端 输出 之 外 ，CLIPS 还 有 文件 读 写 功能 。 在 读 或 写 文件 之 前 ， 必 须 先 用 open R 
数 打 开 该 文件 。 能 同时 打开 的 文件 数目 取决 于 计算 机 硬件 和 操作 系统 。 

OPEN 函数 的 语法 结构 是 : 

(open <file-name> <file-ID> [<file-access>]) 

例如 ， 


(open “input.dat" data "r") 


open 的 第 一 个 参数 < fle-name> 表 示 文 件 名 字符 串 。 该 例子 中 ,文件 名 是 input. dat。 文件 名 还 可 以 
包括 其 路 径 信息 (此 文件 所 在 的 目录 )。 各 个 操作 系统 的 路 径 格式 都 有 所 不 同 ， 因 此 用 户 要 熟悉 自己 计 
算 机 的 操作 系统 。 

第 二 个 参数 <file-ID> 是 CLIPS 与 文件 联系 的 逻辑 名 (logical name)。 逻 辑 名 是 一 个 全 局 名 称 ， 因 
此 ，CLIPS 可 以 在 提示 符 状 态 下 或 语句 里 访问 该 文件 。 虽 然 逻 辑 名 可 以 取 与 文件 名 相同 的 名 字 ， 但 为 
了 避免 泥 清 ， 最 好 另 取 一 个 名 字 。 在 例子 里 ，data 就 是 input. dat 的 逻辑 名 。 当 然 ， 也 可 以 取 其 他 有 意 
义 的 名 字 ， 如 input 或 fle-data。 

运用 逻辑 名 的 一 个 好 处 是 ， 可 以 在 不 改变 程序 的 情况 下 将 文件 名 替换 。 因 为 文件 名 只 用 在 open R 
数 中 ， 后 来 由 它 的 逻辑 名 引用 ， 所 以 ， 当 要 读 另 一 个 文件 时 ， 只 要 改变 open 函数 即 可 。 

第 三 个 参数 < file-access> 是 一 个 表示 文件 存 取 的 4 种 方式 之 一 的 字符 串 。 表 8.2 列 出 了 这 4 种 存 





WARK. 表 8.2 文件 存 取 方式 

如 果 选 项 < file-access > 默认， 则 系统 将 存 取 方 式 默 认为 “fr 和 。 一 -一 一 
有 一 些 存 取 方式 可 能 在 某 些 操作 系统 上 不 通用 。 大 部 分 的 操作 系统 一 一半 = 
支持 “只 读 (输入 数据 )” 和 “只 写 (输出 数据 )” 这 两 种 方式 , O 5 na 
余 两 种 方式 可 能 无 效 。 . eas 

请 记 住 ,文件 打开 的 结果 可 能 随机 器 而 不 同 。 例如 ,IBM PC me 只 添加 


机 上 的 MS-DOS 或 Unix 操作 系统 不 支持 多 文件 版 本 ， 一 个 已 被 打 
开 的 “只 写 ” 文 件 可 能 会 覆盖 当前 已 存在 的 文件 。 相 反 ，VAX 上 的 VMS 里 ， 当 文件 已 存在 且 用 “只 
写 ” 方 式 打开 时 ， 会 另外 创建 一 个 新 的 文件 版 本 。 

open 函数 是 一 种 谓词 函数 (在 第 8.8 小 节 中 描述 ) 。 如 果 文 件 成 功 打开 ， 函 数 返 回 TRUE, TUE 
回 FALSE。 返 回 结果 可 用 作 错 误 检 测 。 例 如 ， 如 果 用 户 提供 的 文件 名 不 存在 而 试图 在 “只 读 ” 方 式 下 
打开 文件 ，open 函数 会 返回 FALSE。 打 开 文件 的 准则 可 以 对 此 进行 判断 并 作出 相应 的 操作 提示 用 户 输 
人 男 一 个 文件 名 。 


Close 函数 


一 旦 文件 存 取 操作 不 再 需要 之 后 ， 应 该 将 文件 关闭 。 如 果 文件 不 关闭 ， 写 人 的 信息 就 不 能 保存 在 
文件 里 。 而 且 ， 文 件 打开 时 间 越 长 ， 由 于 断 电 或 其 他 故障 导致 信息 不 能 被 保存 的 机 会 就 越 大 。 
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close 函数 的 一 般 格 式 是 : 

(close [<file-ID>}) 
可 选项 < 介 e-ID> 表 示 要 关闭 文件 的 逻辑 名 。 如 果 <file-ID> 项 默认 ， 则 全 部 打开 的 文件 都 会 被 关闭 。 
例如 ， 

(close data) 
表示 关闭 CLIPS 中 逻辑 名 为 data 的 文件 。 语 句 


(close input) 
(close output) 


则 分 别 关 闭 逻辑 名 为 nput 和 output 的 文件 。 注 意 ,不 同 的 文件 要 用 不 同 的 close 语句 分 别 关闭 。 

使 用 文件 时 要 记 住 ,已 打开 的 文件 最 后 都 要 用 close 函数 关闭 ， 这 一 操作 非常 重要 。 特 别 地 ， 如 果 
不 发 出 命令 进行 这 一 操作 ， 则 写 入 文件 的 信息 可 能 会 丢失 。CLIPS 不 会 提示 用 户 关闭 一 个 已 打开 的 文 
件 。 系 统 只 有 唯一 的 一 个 安全 措施 ， 就 是 当 发 出 exit (退出 ) 命令 时 ， 所 有 打开 的 文件 都 会 被 关闭 。 


对 文件 进行 读 写 操作 


前 面 的 例子 里 ， 所 有 的 输入 都 是 通过 键盘 读 人 ， 所 有 的 输出 都 是 在 终端 送出 。 逻 辑 名 的 使 用 实现 
了 事实 通过 其 他 方式 输入 和 输出 。 在 第 7 章 里 讲 过 的 printout 函数 就 是 运用 逻辑 名 + 将 事实 输出 到 屏幕 
上 的 。 还 可 以 在 printout 函数 中 使 用 其 他 逻辑 名 将 数据 输出 到 除 屏幕 以 外 的 其 他 设备 。 

当 把 逻辑 名 用 于 输出 功能 时 ， 逻 辑 名 t 会 将 输出 写 到 标准 输出 设备 ， 一 般 是 指 终 端 。 同 样 ， 当 把 
逻辑 名 用 于 输入 功能 时 ， 逻 辑 名 t 会 从 标准 输入 设备 (standard input device) 读 人 数据 ， 标 准 输入 设备 
一 般 是 指 键盘 。 

下 面 的 例子 说 明了 使 用 逻辑 名 写 人 文件 的 方法 : 

CLIPS> (open "example.dat" example *w")-~ 

TRUE 

CLIPS> (printout example "green" crif)— 

CLIPS> (printout example 7 crl1f)-~i 

CLIPS> (close example). 


TRUE 
CLIPS> 


首先 ， 用 只 读 方 式 打开 文件 example.dat， 这 样 ， 数 值 可 以 写 人 该 文件 。Open 函数 把 文件 exam- 
ple.dat 与 逻辑 名 example 联系 起 来 。printout 函数 的 第 一 个 参数 是 逻辑 名 example， 用 此 逻辑 名 将 值 
green 和 7 写 人 文件 example.dat。 值 写 人 文件 后 ， 通 过 close 命令 关闭 该 文件 。 

既然 这 些 值 已 被 写 人 文件 中 , 故 可 以 使 用 只 读 方式 打开 此 文件 ， 并 使 用 read 函数 访问 这 些 值 。 
read 函数 的 一 般 格式 是 : 


(read [<logical-name>]) 


如 果 没 有 给 出 参数 ，read 函数 默认 从 标准 输入 设备 t 读 和 人。 上 述 read 函数 的 例子 利用 了 这 个 默认 
的 逻辑 名 称 。 以 下 的 例子 说 明 read 函数 使 用 逻辑 名 从 文件 example. dat 获取 这 些 值 : 


CLIPS> (open "example.dat" example "r") 
TRUE 

CLIPS> (read example). 
green 

CLIPS> (read example) -i 
7 

CLIPS> (read example). 
EOF 

CLIPS> (close example) -| 
TRUE 

CLIPS> 


首先 ， 打 开 文 件 sxample.dat， 但 此 次 用 只 读 方 式 打 开 。 注意 ， 第 二 次 调用 open 函数 时 ， 无 须 使 用 
r 选 项 来 打开 文件 example.dat， 因 为 * 是 默认 值 。 打 开 文 件 后 ，read 函数 用 于 从 相关 的 逻辑 名 为 exam- 
ple 的 文件 中 获取 值 green 和 7。 注 意 ， 第 三 次 调用 read 函数 返回 符号 EOF。 当 输入 函数 试图 读 取 文 件 
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末尾 之 后 的 数据 时 ，CLIPS 的 输入 函数 会 返回 这 个 值 。 通 过 检查 read (或 其 他 输入 ) 函数 的 返回 值 ， 
可 以 确定 文件 何 时 已 没有 要 读 出 的 数据 了 。 


Format 函数 


CLIPS 程序 经 常 使 用 格式 输出 ， 例 如 ， 排 列表 格 数据 。 虽 然 可 用 printout 函数 ， 但 有 一 个 专用 于 格 
式 化 的 函数 ，format 函数 ， 它 提供 众多 格式 化 风格 。Format 函数 的 语法 是 : 


(format <logical-name> <control-string> 
<parameters>*) 


format PRLS} A TABI, <logical-name > 是 输出 目的 地 的 逻辑 名 。 默 认 的 标准 输出 设备 用 逻辑 
名 {规定 。 之 后 是 控制 字符 串 (conto string)， 它 必须 置 于 双 引 号 之 内 。 控 制 字符 串 由 格式 符 (format 
flag) 组 成 ， 说 明 format 函数 的 参数 的 打印 方式 。 控 制 字符 串 后 是 参数 表 。 控 制 字符 串 的 格式 符 个 数 决 
定格 式 化 参数 的 个 数 。 参 数 可 以 是 常量 或 表达 式 。format 函数 返回 值 是 格式 化 字符 串 。 如 果 format 命 
令 使 用 nil 为 逻辑 名 ， 则 不 会 产生 打印 输出 〈 打 印 到 终端 或 文件 )， 但 仍然 返回 格式 字符 串 。 

以 下 是 一 个 format 冰 数 的 例子 ， 它 建立 一 个 格式 化 字符 串 ， 包 含 一 个 人 名 (ME 15 个 空格 ) 和 年 
龄 。 注 意 例 子 中 的 人 名 和 年 龄 是 如 何 按 列 对 齐 的 。format 函数 用 于 显示 数据 列 。 


CLIPS> (format nil “Name: %-15s Age: %3d" 
"Bob Green" 35) 
“Name: Bob Green Age: 35” 
CLIPS> (format nil "Name: %-15s Age: %3d" 
"Ralph Heiden” 32)! 
"Name: Ralph Heiden Age: 32" 
CLIPS> 


HSA} “W” HIFR MEAN “Name:” HOWE PEME AEP, IER 
出 中 打印 。 若 干 格式 符 并 不 对 参数 格式 化 。 例 如 ,，“%n” 用 于 在 输出 中 打印 一 个 回 车 /换行 符 ， 就 像 在 
printout 命令 中 使 用 标识 符 crif 一 样 。 

在 这 个 例子 中 ,格式 符 “%-15s” 的 作用 是 在 15 个 字符 长 的 一 列 中 打印 名 字 。 符 号 “-” 说 明和 输出 
左 对 齐 ， 符 号 “s” 说 明 要 打印 一 个 字符 串 或 标识 符 。 格 式 符 “%3d” 说 明 数字 作为 整数 右 对 齐 打印 在 
3 字符 长 的 列 中 。 若 数值 5.25 作为 格式 符 的 参数 ， 则 打印 5， 因 为 整数 格式 中 不 允许 小 数 部 分 。 

注意 当 format 函数 在 规则 的 RHS 中 使 用 时 ， 其 返回 值 通常 被 忽略 。 在 这 些 情况 下 ， 逻 辑 名 将 与 一 
个 文件 或 表示 输出 到 屏幕 的 + 相 联系 。 格 式 符 的 一 般 格式 是 : 

%-M.NX 

其 中 “-- ”是 可 选 的 ， 表 示 左 对 齐 (left justify), RU RAMI (right justify)。 当 预 留 字符 数 多 
于 实际 打印 字符 数 时 ， 则 出 现 对 齐 问题 。 若 是 此 情况 ， 则 左 对 齐 使 数值 在 左边 打印 ， 右 边 为 空格 符 。 
右 对 齐 使 数值 在 右边 打印 ， 左 边 为 空格 符 。 

M 规定 列 字段 的 宽度 。 至 少 输出 M 个 字符 。 除 非 M 以 0 开始 (此 时 使 用 0)， 和 否则 ， 一 般 用 空格 





4 而 o 
、 、 字 意 X 
N 是 可 选 说 明 符 ， 说 明 小 数 点 后 打印 的 数字 一 5 z 
位 数 。 默 认 是 浮 点 数 的 小 数 点 后 6 位 数字 。 i 浮 点 数 
x 说 明 格 式 显示 。 表 8.3 给 出 了 格式 显示 e 指数 〈10 的 乘 方 格式 ) 
说 明 。 g 通用 (数值 型 );， 以 最 短 格式 显示 
os o 八进制 ; 无 符号 数值 CN 说 明 符 不 适用 ) 
Readline A% x 十 六 进 制 无 符号 数值 ON 说 明 符 不 适用 ) 
a as fate AAS yt A, s 字符 串 ; 字符 串 用 引号 引出 (引号 除外 ) 
Readline 函数 用 于 读 人 整 行 输入 信息 。 语法 是 ， a EE AGRE 
(readline [<logical-name>]) % “%"” 字符 本 身 
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与 read 函数 相同 ，logicalname (逻辑 名 ) 是 可 选 的 。 若 没 有 提供 逻辑 名 或 使 用 逻辑 名 t， 则 将 从 标 
准 输入 设备 读 人 输入 信息 。Readline 函数 把 下 一 行 与 逻辑 名 相 联 的 输入 信息 源 直到 (包括) 回 车 符 的 
整 行 输入 作为 一 个 返回 字符 串 。 若 到 达 文 件 末尾 ， 则 readline 返回 标识 符 EOF， 只 有 当 人 逻辑 名 与 一 个 
文件 相 联 时 才 出 现 此 情况 。 以 下 例子 说 明 readline 函数 的 用 法 : 


CLIPS> (clear) 
CLIPS> 
(defrule get-name 
=> 
(printout t "What is your name? ") 
(bind ?response (readline)) 
(assert (user's-name ?response) ) ) 
CLIPS> (reset). 
CLIPS> (run) 
What is your name? Gary Riley- 
CLIPS> (facts) 
f£-0 (initial-fact) 


f-1 (user's-name "Gary Riley") 
For a total of 2 facts. 
CLIPS> 


例子 中 ， 名 字 Gary Riley 存储 在 user’ sname 事实 中 单独 作为 一 个 字段 。 因 为 它 是 单独 作为 一 个 字 
段 存 储 ， 所 以 ， 不 可 能 用 模式 变量 从 字段 中 直接 获取 姓氏 和 名 字 。 使 用 explode $ 函数 ， 它 接受 一 个 单 
独 的 字符 串 且 把 它 转化 为 一 个 多 字段 值 ， 我 们 可 以 把 readline 函数 返回 的 字符 串 转化 为 一 个 多 字段 值 ， 
这 些 字段 会 声明 为 user”s-name 事实 中 的 一 连 串 字段 。 以 下 例子 说 明 readline 函数 与 explode $ 函数 联合 
使 用 的 情况 : 


CLIPS> 

(defrule get-name 
=> 
(printout t "What is your name? ") 
(bind ?response (explode$ (readline) )) 
(assert (user's-name ?response) ) ) 

CLIPS> (reset) 

CLIPS> (run) 

What is your name? Gary Riley 

CLIPS> (facts) 

f-0 (initial-fact) 

f-1 (user's-name Gary Riley) 

For a total of 2 facts. 

CLIPS>$ 


WR EMS TAF RUABRESS SASF RAMBO. APAEKR PH (Basic Pro- 
gramming Guide) HT CLIPS 中 可 用 的 所 有 函数 的 详细 用 法 。 


8.7 ”棍子 游戏 


在 接 下 来 的 几 个 小 节 中 ， 将 用 一 个 简单 的 2 人 玩 “棍子 ”游戏 来 说 明 各 种 控制 技术 ， 它 们 是 在 基 
于 规则 的 语言 中 实现 的 。 这 个 游戏 的 目的 是 避免 去 拿 一 堆 棍子 中 的 最 后 一 支 ， 即 谁 拿 了 最 后 的 棍子 谁 
就 输 了 。 每 个 玩家 每 次 可 以 取 走 1、2 或 3 根 棍子 。 要 获胜 的 策略 就 是 注意 到 当 轮 到 你 取 的 时 候 ， 仍 剩 
有 2、3 或 4 支 棍 子 ， 你 就 可 以 让 对 手 输 了 。 最 后 手 里 留 有 5 根 棍子 的 现象 就 输 了 。 所 以 ， 你 必须 总 要 
在 你 取 过 之 后 ， 桌 上 保持 5 加 4 的 整数 倍 根 棍 子 ， 才 能 够 让 你 的 对 手 最 后 面 对 5 根 棍子 。 即 是 说 ， 在 
你 取 完 之 后 ， 要 保持 桌 上 的 棍子 数 为 5、9、13 等 等 。 如 果 由 你 先 了 到 ， 但 你 取 完 之 后 剩 下 的 棍子 数 不 是 
前 面 说 的 那些 数 ， 则 你 不 会 赢 ， 除 非 你 的 对 手 失误 。 但 如 果 你 每 次 取 完 都 保证 了 棍子 是 那么 多 ,那么 
你 会 赢 。 

在 游戏 进行 之 前 ， 程 序 必 须 确 定 一 些 信息 。 首 先 ， 由 于 是 人 机 对 战 ， 所 以 必须 决定 由 谁 先 走 。 另 
外 ， 要 确定 这 堆 棍 子 的 起 始 数目 。 此 信息 可 放 于 自 定义 事实 结构 中 。 然 而 ， 要 程序 的 对 手 从 键盘 输 和 人 
是 非常 简单 的 。 下 面 的 例子 显示 了 read 函数 如 何 用 来 输入 数据 : 
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{deffacts initial-phase 
(phase choose-player))}) 


(defrule player-select 
(phase choose-player) 
=> 
(printout t "Who moves first (Computer: c " 
"Human: h)? ") 
(assert (player-select (read)))) 


(defrule good-player-choice 
?phase <- (phase choose-player) 
?choice <- (player-select ?player&e | h) 
=> 
{retract ?phase ?choice) 
(assert {player-move ?player))) 


当 一 个 特定 的 事实 在 事实 表 中 的 时 候 ， 两 条 规则 使 用 模式 (phase choose-player) 来 显示 它们 的 适 
用 性 。 这 就 叫 控制 模式 (control pattern)， 因 为 它 专门 用 于 控制 规则 何 时 可 用 。 控 制 事实 (control fact) 
用 来 激发 控制 模式 。 因 为 这 些 规则 的 控制 模式 包括 文字 字段 ， 所 以 ， 控 制 事实 必须 精确 匹配 该 模式 。 
在 这 种 情况 下 ， 用 来 激发 这 些 规则 的 控制 事实 必须 是 事实 (phase choose-player)。 这 种 控制 事实 对 于 出 
错 控 制 是 很 有 用 的 ， 比 如 ， 当 从 read 函数 接收 到 的 输入 不 与 字母 c 或 h 匹配 的 时 候 ， 其 中 < 代表 “ 计 
算 机 ”、bh 代表 “人 ”。 这 时 ，player-select 规则 会 通过 撤销 和 再 声明 该 控制 事实 而 被 重新 激发 。 

下 面 的 输出 显示 了 player-select 与 good-player-choice 规则 如 何 运 作 来 决定 谁 先 走 : 


CLIPS> {unwatch al1) 

CLIPS> (watch facts) 

CLIPS> (reset) 

==> f-0 (initial-fact) 

==> f-1 {phase choose-player) 

CLIPS> (run) 

Who moves first (Computer: c Human: h)? cu 


==> £-2 (player-select c) 

<== f-1 (phase choose-player) 
<== £-2 (player-select c) 

==> f-3 (player-move c) 
CLIPS> 


这 些 规则 在 正确 输入 如 或 hn 情况 下 会 正常 工作 。 但 如 果 输 入 一 个 错误 的 响应 ， 则 也 不 会 执行 出 
错 检 查 。 有 很 多 情况 是 重复 显示 输入 请 求 来 改正 输入 错误 。 这 样 做 的 一 种 办 法 示 于 下 例 中 一 一 对 输入 
请 求 循环 编程 。 下 面 的 规则 与 player-select 和 good-player-choice 规则 一 起 提供 了 出 错 检查 功能 。 


(defrule bad-player-choice 
?phase <- (phase choose-player) 
?choice <- (player-select ?player&~c&~h) 
=> 
(retract ?phase ?choice) 
(assert (phase choose-player) ) 
{printout t "Choose c or h." crlf)) 


再 一 次 注意 控制 模式 (phase choose-player) 的 用 处 。 它 为 输入 循环 提供 了 基本 控制 ， 同 时 也 防止 
了 这 组 规则 在 程序 执行 的 其 他 阶段 被 激活 。 

注意 player-select 与 bad-player-choice 这 两 条 规则 ， 看 它们 如 何 一 起 工作 ， 每 一 条 规则 提供 的 事实 
是 用 来 激活 其 他 规则 所 必需 的 。 如 果 对 游戏 者 问题 的 响应 不 正确 ， 则 bad-player-choice 规则 将 撤销 控制 
事实 (phase choose-player) ， 然 后 再 声明 它 ， 从 而 使 得 player-select 规则 被 再 激活 。 


8.8 谓词 函数 


谓词 函数 (predicate function) 被 定义 为 任何 可 返回 符号 TRUE 或 FALSE 的 函数 。 事实 上 ， 当 处 
理 谓 词 逻辑 时 ，CLIPS 把 不 是 符号 FALSE 的 任何 值 视 为 符号 TRUE。 一 个 谓词 函数 也 被 认为 有 一 个 布 
尔 型 返回 值 。 谓 词 函数 既 可 以 预定 义 (predefined) 、 也 可 以 由 用 户 定义 (user-defined )。 预 定义 函数 是 
已 经 由 CLIPS 系统 提供 了 的 那些 函数 。 用 户 定义 函数 ， 或 称 外 部 函数 (external function) ， 与 预定 义 函 
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数 不 同 ， 它 是 用 户 用 C 或 其 他 编程 语言 编写 并 与 CLIPS 连接 而 成 的 。 附 录 下 中 包括 了 由 CLIPS 所 提供 
的 谓词 函数 的 列表 ， 它 们 用 来 执行 布尔 逻辑 操作 、 值 的 比较 及 特定 类 型 的 测试 。 这 些 函 数 的 一 部 分 示 
于 下 面 的 对 话 中 : 


CLIPS> {and (> 43) (> 4 5))H 
FALSE 

CLIPS> (or (> @ 3) (> 4 5))a 
TRUE 

CLIPS> (> 4 3) 

TRUE 

CLIPS> (< 6 2) 

FALSE 

CLIPS> (integerp 3) 

TRUE 

CLIPS> (integerp 3.5) 

FALSE 

CLIPS> 


8.9 测试 条 件 元 素 


在 许多 例子 中 ， 重 复 进行 一 个 计算 或 重复 其 他 的 信息 处 理 是 很 有 用 的 。 处 理 这 些 问 题 常用 的 办 法 
是 设置 一 个 循环 。 在 前 面 的 例子 中 设置 了 循环 ， 用 来 重复 用 户 的 响应 ， 直 到 用 户 对 问题 作出 了 正确 的 
响应 为 止 。 然 而 ， 在 许多 情况 下 ， 根 据 对 任意 表达 式 计算 的 结果 ， 循 环 要 自动 地 终止 。 

测试 条 件 元 素 (test conditional element) 为 计算 规则 LHS 上 的 表达 式 提供 了 有 力 的 方法 。 测 试 条 
件 元 素 (test CE) 不 是 与 事实 表 中 的 事实 进行 模式 匹配 ， 而 是 计算 表达 式 。 表 达 式 的 最 外 层 函 数 必须 
为 谓词 函数 。 如 果 表 达 式 计算 结果 是 不 为 FALSE 的 任何 值 ， 则 测试 条 件 元 素 (test CE) WE, BM, 
不 满足 。 规 则 只 会 在 所 有 的 测试 条 件 元 素 与 其 他 模式 都 满足 时 才 被 激发 。 测 试 条 件 元 素 语法 为 : 


(test <predicate-function>) 


例如 ， 假 设 轮 到 人 来 操作 了 。 如 果 只 剩 下 一 根 棍子 ， 那 么 人 就 输 了 。 如 果 不 止 一 根 棍子 ， 那 么 就 
该 问 此 人 想 拿 走 多 少 棍子 。 问 游戏 者 这 个 问题 的 规则 就 应 检查 是 否 有 不 止 一 根 棍子 余下 。 谓 词 函数 
“> “可 用 来 表示 这 个 要 求 ， 正 如 下 面 的 测试 CE 所 示 ， 其 中 ? size 表示 堆 中 还 剩 多 少 根 棍子 : 


(test (> ?size 1)) 


一 旦 游戏 者 确定 了 他 要 拿 走 的 棍子 数 ， 就 要 检查 所 作 的 响应 ， 确 保 这 个 数 是 合法 的 。 棍 子 数 首先 
必须 是 整数 ， 并 且 在 大 于 等 于 1 到 小 于 等 于 3 的 范围 内 。 游 戏 者 取 走 的 棍子 数 不 能 大 于 棍子 堆 中 的 棍 
子 数 并 且 必须 取 最 后 一 根 (如 果 只 余 1 根 )。 谓 词 函 数 “and” 可 表达 所 有 这 些 要 求 ， 正 如 下 列 测试 CE 
所 显示 的 ， 其 中 ?choice 表示 取 走 的 棍子 数 ,? size 表示 堆 中 剩余 的 棍子 数 : 


{test (and (integerp ?choice) 
(>= ?choice 1) 
(<= ?choice 3) 
(< ?choice ?size))) 


同样 地 ， 下 面 的 数字 是 不 合法 的 : 非 整 数 、 比 1 小 或 比 3 大 的 数 、 大 于 或 等 于 堆 中 剩余 的 棍子 数 。 我 们 
可 用 谓词 函数 or 来 描述 ， 如 下 例 所 示 ， 其 中 ? choice 表示 取 走 的 棍子 数 ,? size 是 堆 中 剩余 的 棍子 数 ， 


(test (or (not (integerp ?choice)) 
{< ?choice 1) 
(> ?choice 3) 
(>= ?choice ?size))) 


下 面 的 规则 使 用 前 面 的 测试 CE 来 检查 游戏 者 输入 的 数字 是 否 合法 。 规 则 中 使 用 事实 pile-size 来 存 
放 堆 中 剩余 棍子 数 的 信息 : 


(defrule get-human-move 
(player-move h) 
(pile-size ?size) 
; Human player only has a choice when there is 
; more than one stick remaining in the pile 
(test (> ?size 1)) 
=> 
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(printout t 
"How many sticks do you wish to take?") 
(assert (human-takes (read)))) 


(defrule good-human-move 
?whose-turn <- (player-move h) 
(pile-size ?size) 
?number-taken <- (human-takes ?choice) 
(test (and (integerp ?choice) 
(>= ?choice 1) 
(<= ?choice 3) 
{< ?choice ?size))) 


山 
v 


{retract ?whose-turn ?number-taken) 
(printout t "Human made a valid move” crlf))} 


{defrule bad-human-move 
?whose-turn <- (player-move h) 
(pile-size ?size) 
?number-taken <- (human-takes ?choice) 
(test (or (not (integerp ?choice) ) 
(< ?choice 1) 
(> ?choice 3) 
(>= ?choice ?size))) 
=> 
(printout t "Human made an invalid move" crlf) 
(retract ?whose-turn ?number-taken) 
(assert (player-move h))) 


当 要 取 走 的 棍子 数 为 合法 的 数字 输入 时 ， 该 程序 将 结束 。 控 制 事 实 可 用 来 重新 激发 规则 以 允许 不 
合法 响应 时 重新 输入 。Bad-human-move 规则 可 再 次 声明 控制 事实 (player-move h)， 以 求 再 次 激活 get- 
human-move 规则 。 于 是 ， 游 戏 者 可 再 次 输入 他 要 从 堆 中 取 走 的 棍子 数 。 


8.10 谓词 字段 约束 


谓词 字段 约束 (predicate field constraint) 即 符号 “:"”， 对 于 直接 在 模式 中 执行 谓词 测试 是 很 有 用 
的 。 虽 然 在 有 些 情 况 下 ， 如 在 第 9 章 中 将 要 讨论 的 ， 用 谓词 字段 约束 比 用 测试 CE 更 加 有 效 , 但 是 ， 
在 许多 方面 ， 谓 词 字段 约束 类 似 于 在 模式 之 后 直接 执行 一 次 测试 CE。 谓 词 字段 约束 的 用 法 就 像 文字 字 
段 约束 一 样 ， 它 可 以 单独 存在 于 一 个 字段 中 ,或 者 作为 一 个 更 复杂 的 字段 的 一 个 部 分 ， 各 部 分 通过 
“一 ”、“&” 和 “|” 等 连接 字段 约束 连接 起 来 。 谓 词 字段 约束 后 面 总 是 跟着 一 个 求 值 函数 。 在 与 测试 
CE 一 起 使 用 时 ， 这 个 函数 必须 是 一 个 谓词 函数 。 

例如 ， 前 一 节 的 get-human-move 规则 使 用 了 下 面 两 个 模式 来 检查 堆 中 是 否 有 一 根 以 上 的 棍子 : 


(pile-size ?size) 
(test (> ?size 1)) 


这 两 个 模式 可 由 下 面 一 个 单独 模式 代替 : 


(pile-size ?size&:(> ?size 1)) 

谓词 字段 约束 可 单独 使 用 ， 然 而 ， 这 种 情况 有 实用 价值 的 很 少 。 一 般 地 ， 一 个 变量 被 约束 ， 然 后 
使 用 谓词 字段 约束 进行 测试 。 当 理解 一 个 模式 时 ， 把 它 的 谓词 字段 约束 的 意思 理解 成 使 得 (such that) 
是 方便 的 ， 例 如 以 前 出 现 的 字段 约束 : 


?size&:(> ?size i) 

可 被 理解 为 “约束 ?size 使 得 ? size KF 1”. 

谓词 字段 约束 的 一 个 应 用 是 对 数据 进行 出 错 检 查 。 例 如 ， 下 面 的 规则 在 把 数据 项 加 入 到 总 数 之 前 
检查 它 是 否 为 数字 型 : 


(defrule add-sum 
(Gata-item ?value&: (numberp ?value)) 
?old-total <- (total ?total) 
=> 
(retract ?old-total) 
(assert (total (+ ?total ?value)))) 
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第 一 个 模式 的 第 二 个 字段 可 被 理解 成 “约束 ? value 使 得 ?value 是 一 个 数字 ”。 下 面 两 条 规则 执行 
同样 类 型 的 出 错 检查 ， 同 时 ， 它 们 也 演示 了 谓词 字段 约束 和 连接 字段 约束 “一 "、“|” 一 起 使 用 的 情况 ， 


{defrule find-data-type-1 
(data ?item&:(stringp ?item) | : (symbolp ?item)) 
二 > 
(printout t ?item " is a string or symbol " 
crlf)} 


(defrule find-data-type-2 
(data ?item&k~: (integerp ?item)) 
=> 
(printout t ?item * is not an integer " crlf)) 


find-data-type-1 规则 通过 使 用 stringp 和 symbolp 谓词 函数 来 检查 一 个 数据 项 是 一 个 字符 串 还 是 一 个 
符号 。find-data-type-2 规则 先 使 用 integerp 函数 、 然 后 再 用 连接 约束 “一 ”否定 此 值 以 检查 某 数 据 项 不 
是 一 个 整数 。 


8.11 返回 值 字段 约束 


返回 值 字段 约束 (return value field constraint) 即 “=”， 人 允许 函数 的 返回 值 用 于 一 个 模式 内 的 比 
较 。 返 回 值 字 段 约束 与 谓词 字段 约束 一 样 ， 可 以 和 “一 ”"、“&” 或 “|” 等 连接 字段 约束 一 起 使 用 。 像 
谓词 字段 约 东 一样 ， 返 回 值 字段 约束 之 后 也 必须 跟 一 个 函数 。 然 而 ， 此 函数 不 一 定 是 谓词 函数 。 唯 一 
的 要 求 是 函数 必须 有 单一 的 字段 返回 值 。 下 面 的 规则 展示 了 返回 值 约束 如 何 用 于 棍子 程序 中 ， 以 决定 
计算 机 从 棍子 堆 中 取 走 多 少 棍子 : 


(deftemplate take-sticks 
(slot how-many) 
(slot for-remainder) ) 


(deffacts take-sticks-information 
(take-sticks (how-many 1) (for-remainder 1) 
(take-sticks (how-many 1) (for-remainder 2) } 
{take-sticks (how-many 2) (for-remainder 3)) 
{take-sticks (how-many 3) (for-remainder 0))) 


(defrule computer-move 
?whose-turn <- (player-move c} 
?pile <- (pile-size ?size) 
(test (> ?size 1)) 
({take-sticks (how-many ?number) 
(for-remainder =(mod ?size 4))) 
=> 
(retract ?whose-turn ?pile) 
(assert (pile-size (- ?size ?number))) 
(assert (player-move h))) 


computer-move 规则 决定 了 轮 到 计算 机 操作 时 ， 它 所 从 堆 中 取出 棍子 的 合适 的 数目 。 第 一 个 模式 
CE 确保 只 有 轮 到 计算 机 操作 时 ， 这 条 规则 方 可 使 用 。 第 二 和 第 三 个 CE 是 判断 堆 中 剩余 的 棍子 数 是 否 
大 于 1。 如 果 仅 剩 一 根 ， 那 么 计算 机 将 被 迫 取 走 这 根 ， 输 掉 游戏 。 最 后 一 个 模式 与 take-sticks-informa- 
tion 自 定义 事实 一 起 决定 从 堆 中 取 走 的 合适 棍子 数 。mod (为 modulus 的 缩 略 形式 ) 函数 返回 一 个 整 
数 ， 这 个 整数 是 第 一 个 变量 除 以 第 二 个 所 剩 的 余数 。 当 理解 某 个 模式 时 ， 把 返回 值 字段 约束 当 作 等 于 
(equal to) 的 是 有 用 的 。 例 如 ， 字 段 约束 : 

=(mod ?size 4) 
可 读 作 “此 字段 等 于 ? size fR 4 的 值 ”。 

计算 机 总 是 取 走 尽 可 能 多 的 棍子 ， 使 当 棍子 总 数 被 4 除 时 ， 剩 余 的 棍子 数 为 1。 当 计算 机 开始 取 
的 时 候 ， 如 果 这 个 余数 为 1， 计算 机 就 输 了 ， 除 非 它 的 对 手 有 和 失误。 在 这 种 情况 下 ， 它 就 会 每 次 只 取 
一 根 棍子 来 拖延 游戏 时 间 (希望 对 手 失 误 )。 在 所 有 其 他 情况 下 ， 计 算 机 都 可 以 取 走 适当 数量 的 棍子 让 
对 手 输 。 
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为 了 演示 返回 值 字段 约 东 工作 的 细节 ， 让 我 们 考虑 一 个 具体 的 例子 。 假 设计 算 机 取 的 时 候 ， 堆 中 
有 7 根 棍子 ， 并 轮 到 计算 机 取 棍 子 。computer-move 规则 的 头 三 个 CE 将 被 满足 ， 只 剩 下 最 后 一 个 CE。 
函数 表达 式 (mod? size 4) 用 数值 7 来 代替 ? size， 于 是 式 子 变 为 (mod 7 4) ， 它 的 值 就 为 3。 只 有 一 
个 take-sticks 事实 ， 它 的 for-remainder 的 横 值 为 3。 此 事实 的 how-many 槽 值 为 2， 因 此 ,计算机 会 取 走 
2 根 棍 子 ， 使 堆 中 剩 下 5 根 棍子 。 当 人 在 下 一 次 移动 后 ， 计 算 机 会 取胜 。 

注意 ,“= ”字段 约束 只 可 用 于 模式 CE 内 ， 它 不 同 于 “= ”谓词 函数 。“ = ”谓词 函数 可 用 于 “: 
字段 约束 ”、“ 测 试 CE”、“ 规 则 的 RHS” 或 顶层 对 话 提示 内 。 另 外 ， 和 谓词 字段 约束 一 样 ， 通 过 把 返回 
值 约束 与 “一 "、“&” 和 “|” 连 接 字 段 约束 一 起 使 用 ， 可 产生 更 复杂 的 字段 约束 。 
8.12 棍子 游戏 程序 

所 有 需要 完成 棍子 程序 的 基本 技术 都 已 讨论 过 了 。 棍 子 程序 的 完整 清单 在 Stick.clp 文件 中 ， 此 文 
件 可 在 本 书 附送 的 光盘 中 找到 。 在 调 人 该 程序 之 后 运行 它 的 情况 如 下 : 


CLIPS> (reset) 

CLIPS> (run)J 

Who moves first (Computer: c Human: h}? ed 
How many sticks in the pile? 15 
Computer takes 2 stick(s). 

13 stick(s) left in the pile. 

How many sticks do you wish to take? 3 
10 stick({s) left in the pile. 

Computer takes 1 stick(s). 

9 stick(s) left in the pile. 

How many sticks do you wish to take? 2 
7 stick(s) left in the pile. 

Computer takes 2 stick(s). 

5 stick(s) left in the pile. 

How many sticks do you wish to take? 14 
4 stick(s) left in the pile. 

Computer takes 3 stick(s). 

1 stick(s) left in the pile. 

You must take the last stick! 

You lose! 

CLIPS> 


8.13 OR 条 件 元 素 


至 此 ， 所 有 示 出 的 规则 都 有 一 个 隐 式 的 and 条 件 元 素 (implicit and conditional element) 在 模式 之 
间 。 即 ， 除 非 所 有 模式 都 正确 ， 否 则 ， 规 则 不 会 被 激发 。CLIPS 也 提供 了 下 面 功 能 ， 它 可 在 LHS EM 
定 一 个 显 式 的 and 条 件 元 素 (explicit and conditional element) 和 一 个 显 式 的 or 条 件 元 素 (explicit or con- 


ditional element) - 


作为 一 个 or CE 的 例子 ， 下 面 的 规则 用 在 工厂 的 监视 系统 中 (如 第 7 章 讨论 的 )， 这 里 先 没有 使 用 
or CE。 之 后 ， 你 会 明白 如 何 用 or CE 将 它们 改写 。 


(defrule shut-off-electricity-1 

(emergency (type fload)) 

=> 

(printout t "Shut off the electricity" crlf)) 
(defrule shut-off-electricity-2 

(extinguisher~system (type water-sprinkler) 

(status on)) 
=> 
(printout t "Shut off the electricity" crlf)) 


更 简洁 地 ， 不 需 写 两 条 独立 的 规则 ， 使 用 or CE 可 将 这 两 条 规则 合并 到 下 面 的 规则 中 : 


(defrule shut-off-electricity 
(or (emergency (type flood)) 
(extinguisher-system (type water-sprinkler) 
(status on))) 
=> 
(printout t "Shut off the electricity" crlf)) 
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这 是 一 条 使 用 or CE 的 规则 ， 它 与 前 面 两 条 规则 等 价 。 声 明 两 个 事实 与 这 一 规则 的 模式 相 匹配 将 
使 规则 激发 两 次 ， 即 每 个 事实 激发 一 次 。 

除 or CE 之 外 ， 还 可 以 使 用 其 他 的 CE， 对 于 规则 的 整个 LHS 来 说 ， 它 们 将 是 隐 式 的 and CE 中 一 
部 分 。 例 如 ， 下 面 的 规则 : 


(defrule shut-off-electricity 
(electrical-power (status on)) 
{or (emergency (type flood) } 
(extinguisher-system (type water-sprinkler) 
(status on)}) 
=> 
{printout t "Shut off the electricity” crlf)) 


等 价 于 下 面 两 条 规则 : 


(defrule shut-off-electricity-1 
(electrical-power (status on) ) 
(emergency (type flood) ) 
=> 
(printout t "Shut off the electricity" crlf)) 


(defruie shut-off-electricity-2 
(electrical-power (status on)) 
(extinguisher-system (type water-sprinkler) 

{status on)) 
=> 
(printout t "Shut off the electricity" crlf)) 


由 于 一 个 or CE 产生 等 价 的 多 条 规则 ， 因 此 ， 一 条 规则 可 能 不 止 一 次 被 那些 包含 于 or CE 的 模式 激 
活 。 所 以 ， 自 然 会 问 如 何 防止 多 次 激发 的 问题 。 例 如 ， 对 于 多 个 事实 多 次 打印 信息 Shut off the electric- 
ity (关闭 电源 ) 是 不 必要 的 。 毕 竟 ， 电 源 只 要 关 一 次 就 可 以 了 ， 不 用 考虑 原因 有 多 少 次 。 

阻止 其 他 规则 触发 的 最 合适 办 法 可 能 是 改变 规则 来 更 新 事实 表 ， 显 示 电 源 已 被 关闭 。 被 修改 的 规 
则 如 下 所 示 (注意 ,我 们 假设 在 写 这 些 规则 时 已 经 有 一 个 机 灵 的 工厂 操作 者 ， 他 的 任务 就 是 观察 监视 
系统 的 输出 ， 然 后 采取 行动 。 在 现实 世界 中 ， 专 家 系统 可 能 直接 控制 各 种 系统 的 开 和 关 ， 同 时 工厂 操 
作者 有 一 个 机 制 告诉 监视 系统 各 种 行动 已 被 采取 )。 


(defrule shut-off-electricity 
?power <- (electrical-power (status on) ) 
(or (emergency (type flood) ) 
(extinguisher-system (type water-sprinkler) 
(status on)}) 
=> 
(modify ?power (status off))) 
(printout t "Shut off the electricity" crlf)) 


现在 ,规则 仅 被 触发 一 次 ， 因 为 当 规则 触发 时 ， 包 括 电 源 各 种 信息 的 事实 就 被 修改 。 这 会 阻止 由 
其 他 模式 引起 的 规则 的 其 他 激活 。 同 样 ， 如 果 有 必要 从 事实 表 中 删除 支持 关闭 电源 的 理由 ， 那 么 规则 
将 被 改写 成 下 面 的 形式 : 


(defrule shut-off-electricity 

?power <- (electrical-power (status on)) 
(or ?reason <- (emergency (type flood) ) 

?reason <- (extinguisher-system 

(type water-sprinkler) 
(status on))) 

=> 
(retract ?reason) 
(modify ?power (status off)) 
(printout t "Shut off the electricity" erlf)) 


ER, Cor CE 中 的 所 有 模式 CE 都 被 约束 给 同一 个 变量 ? reason。 首 先 ， 这 可 能 引起 一 个 错误 ， 
因为 同样 的 变量 一 般 并 不 会 分 配给 一 条 普通 规则 的 不 同 模式 。 但 使 用 or CE 的 规则 就 不 同 了 。 因 为 一 
个 or CE 会 产生 多 条 规则 ， 上 面 的 规则 等 价 于 下 面 两 条 规则 : 
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(defrule shut-off-electricity-1 
?power <- (electrical-power (status on)) 
?reason <- (emergency (type flood)) 
=> 
{retract ?reason) 
(modify ?power (status off) ) 
(printout t "Shut off the electricity” crlf)) 


(defrule shut-off-electricity-2 
?power <- (electrical-power (status on)) 
?reason <- (extinguisher-system 
(type water-sprinkler) 
{status on)) 


{retract ?reason) 
(modify ?power (status off)) 
(printout t "Shut off the electricity” crif)) 


通过 观察 这 两 条 规则 ， 我 们 可 以 看 到 ， 有 必要 取 一 个 相同 的 变量 名 以 便 在 RHS 上 匹配 (retract ? 
power ? reason) 操作 。 


8.14 AND 条件 元 素 


And CE 的 概念 与 or CE 相反 。 与 儿 条 CE 中 的 任 一 条 满足 就 可 以 激发 规则 不 同 ，and CE 要 求 所 有 
的 CE 都 要 满足 。CLIPS 在 一 条 规则 的 LHS 中 自动 设置 一 个 隐 式 的 and CE。 例如， 规则 : 


(defrule shut-off-electricity 
?Power <- (electrical-power (status on)) 
(emergency (type flood)) 
=> 
(modify ?power (status off)) 
(printout t "Shut off the electricity" crlf) 


也 可 用 显 式 的 and CE 改写 为 : 


(defrule shut-off-electricity 
{and ?power <- {electrical-power (status on)} 
(emergency (type flood))) 
=> 
{modify ?power (status off)) 
(printout t "Shut off the electricity" crlf)} 


当然 ， 对 整个 LHS 用 显 式 的 and CE 写 是 没有 好 处 的 。 提 供 and CE 是 为 了 能 与 其 他 CE 共同 使 用 ， 
以 建立 更 复杂 的 模式 。 如 下 面 的 例子 ， 它 可 与 or CE 一 起 使 用 ， 以 要 求 多 个 条 件 组 为 真 : 


(defrule use-carbon-dioxide-extinguisher 

?system <- (extinguisher-system 
(type carbon-dioxide) 
(status off)) 

(or (emergency (type class-B-fire)) 

(and (emergency (type class-C-fire)) 
(electrical-power (status off)))) 

=> 

(modify ?system (status on)) 

(printout t "Use carbon dioxide extinguisher" 

erlf)) 


如 果 有 B 类 (如 油 或 油脂 燃烧 ) 或 C 类 (涉及 电力 设备 ) 火警 ， 而 且 电 源 已 被 关闭 ， 则 将 激活 此 
规则 。 在 效果 上 ， 总 是 用 二 氧化 碳 灭火 器 来 扑灭 BB 类 火灾 ; 但 对 于 C 类 火警 ， 当 关 掉 电源 不 能 熄灭 此 
火 时 ， 才 用 它 来 熄灭 C 类 火灾 。use-carbon-dioxide-extinguisher 规则 与 下 面 两 条 规则 等 价 : 


(defrule use-carbon-dioxide-extinguisher-1 
?system <- (extinguisher-system 
(type carbon-dioxide) 
(status off)) 
(emergency (type class-B-fire) ) 
=> 
(modify ?system (status on)) 
(printout t "Use carbon dioxide extinguisher" 





高 级 模式 匹配 291 





erlf)) 


(defrule use-carbon-dioxide-extinguisher-2 
?system <- (extinguisher-system 
(type carbon-dioxide) 
{status off)) 
(emergency (type class-C-fire)) 
(electrical-power (status off)) 
=> 
(modify ?System (status on))} 
(printout t "Use carbon dioxide extinguisher" 
crlf)) 


8.15 NOT 条 件 元 素 


有 时 候 ， 能 够 根据 事实 表 中 缺少 某 一 特定 事实 来 激活 规则 是 有 作用 的 。CLIPS 利用 not 条 件 元 素 
(not conditional element) ， 来 说 明 一 条 规则 的 LHS 中 缺少 某 个 事实 。 作 为 一 个 简单 的 例子 ， 监 视 专 家 系 
统 可 能 有 以 下 两 条 规则 用 以 报告 它 的 状态 : 


IF the monitoring status is to be reported and 
there is an emergency being handled 
THEN report the type of the emergency 


IF the monitoring status is to be reported and 
there is no emergency being handled 
THEN report that no emergency is being handled 


Not CE 能 如 下 方便 地 应 用 到 上 述 简单 的 规则 : 


(defrule report-emergency 
(report-status) 
(emergency (type ?type)) 
=> 
(printout t "Handling " ?type " emergency" 
erlf)) 


(defrule no-emergency 
(report-status) 
(not (emergency) } 
=> 
(printout t "No emergency being handled" crif)) 


注意 这 两 条 规则 是 互相 排斥 的 。 也 就 是 说 ， 它 们 不 能 同时 存在 于 一 个 议程 中 ， 这 是 因为 每 一 条 规 
FUP BOSE 2 个 模式 不 能 同时 被 满足 。 

变量 也 能 用 于 否定 模式 ， 以 产生 一 些 有 趣 的 效果 。 思 考 以 下 在 一 组 表示 数字 的 事实 中 找 出 最 大 数 
的 规则 : 


(defrule largest-number 
(number ?x) 
(not (number ?y&:(> ?y ?x))) 
=> 
(printout t “Largest number is " ?x crlf)) 


第 一 个 模式 将 约束 所 有 的 number 事实 ， 但 第 二 个 模式 将 不 允许 该 规则 起 作用 ， 除 非 对 于 ? x 为 最 
大 值 的 事实 。 
注意 ， 约 束 于 一 个 not CE 内 的 变量 只 在 not CE 的 范围 内 保留 其 值 。 例 如 ， 规 则 ， 


(defrule no-emergency 
{report-status) 
(not (emergency (type ?type)) 
=> 
(printout t "No emergency of type " ?type crif)) 


就 会 产生 一 个 错误 ， 因 为 变量 ? type 用 于 规则 的 RHS 中 、 但 它 只 能 约束 于 该 规则 的 LHS 中 的 not 
CE 中 。 
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变量 的 范围 同样 适用 于 规则 的 LHS。 例 如 ， 以 下 的 规则 确定 某 日 不 是 一 个 认识 的 人 的 生日 : 


{defrule no~birthdays-on-specific-date 
(check-for-no-birthdays (date ?date}) 
{not (person (birthday ?date))) 
=> 
(printout t "No birthdays on " ?date crlf)) 


如 果 前 面 的 两 个 CE 交换 位 置 ， 如 下 所 示 : 


(defrule no-birthdays-on-specific-date 
{not {person (birthday ?date))) 
(check-for-no-birthdays (date ?date) } 





=> 
(printout t "No birthdays on " ?date crlf)) 


则 该 规则 将 不 再 正确 工作 。 即 使 有 任 一 person 事实 ， 第 一 个 CE 也 不 被 满足 。 约 束 于 第 一 个 CE 中 的 变 
E? date 的 值 将 不 影响 第 二 个 CE 中 的 变量 ? date 的 允许 值 。 这 与 原始 的 no-birthdays-on-specific-date 规 
则 不 同 ， 原 规则 中 第 一 个 CE 中 的 变量 ?date 的 值 限制 了 在 第 二 个 CE 中 去 查找 特定 日 子 是 生日 的 per- 
son 事实 的 范围 。 不 像 其 他 模式 CE， 一 条 规则 的 LHS 中 的 not CE 的 不 同 排列 次 序 会 影响 该 规则 的 
激活 。 

Not CE 能 与 其 他 CE 一 起 使 用 。 例 如 ， 如 下 的 规则 确定 不 存在 两 个 人 的 生日 是 同一 天 : 


{defrule no-identical-birthdays 
(not (and (person (name ?name) 
(birthday ?date)} 
(person (name ~?name) 
(birthday ?date)))) 
=> 
(printout t 
"No two people have the same birthday" 
erlf) : 


因为 not CE 能 够 包含 最 多 1 个 CE， 所 以 ，and CE 可 用 于 not CEA. HER, BH? name 和 ? date 
被 重复 用 于 not CE 中 去 正确 地 限制 对 有 相同 生日 的 两 个 人 的 搜索 。 

基于 以 下 为 CLIPS 使 用 的 算法 ，(initial-fact) 模式 被 添加 到 任何 and CE 〈 隐 式 的 或 显 式 的 ) 的 开 
始 处 ， 此 处 的 第 一 个 CE 将 是 not CE 或 者 一 个 test CE。 所 以 ,规则 : 


(defrule no-emergencies 
{not (emergency) } 
=> 
(printout t “No emergencies" crlf)) 


被 转换 为 以 下 规则 : 


(defrule no-emergencies 
(initial-fact) 
(not (emergency) ) 
=> 
(printout t *No emergencies" crif)) 


理解 这 种 转换 在 检查 由 matches 命令 产生 的 输出 中 是 有 用 的 。 同 时 应 该 注意 ，not CE 的 事实 索引 
在 规则 的 部 分 匹配 或 激活 中 不 会 被 显示 出 来 。 所 以 ,“f5 ,，f3” 激 活 表 示 ， 第 一 个 CE 和 具有 事实 索 
引 5 的 事实 匹配 ; 第 二 个 CE 是 一 个 不 和 任何 事实 匹配 的 not CE， 因 此 得 到 满足 ; 第 三 个 CE 和 具有 事 
实 索引 3 的 事实 匹配 。 


8.16 EXISTS 条 件 元 素 


Exists 条 件 元 素 (exists conditional element) 只 需 至 少 存在 一 个 事实 与 某 模式 匹配 ， 而 不 管 实际 匹 
配 该 模式 的 事实 的 总 数 。 这 样 ， 以 某 类 事实 中 的 一 个 事实 是 否 存在 为 根据 ， 就 允许 一 条 规则 中 的 一 个 
部 分 匹配 或 激活 产生 出 来 。 例 如 ， 假 定 无 论 何 时 出 现 紧急 事件 就 打印 一 则 消息 以 指示 工厂 操作 员 保持 
警惕 。 这 一 规则 可 以 如 下 形式 写 出 : 
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(deftemplate emergency (slot type)) 


(defrule operator-alert-for-emergency 
(emergency) 
=> 
(printout t "Emergency: Operator Alert" crif) 
{assert (operator-alert))) 


EE, 4B emergency 事实 被 声明 时 ， 将 出 现 什么 


CLIPS> (reset) 

CLIPS> (assert (emergency (type fire)))~ 
<Fact-1> 

CLIPS> (assert (emergency (type flood))) 
<Fact-2> 

CLIPS> (run) 

Emergency: Operator Alert 

Emergency: Operator Alert 

CLIPS> 


operator-alert-for-emergency 规则 可 以 用 以 下 方法 修改 ， 以 避免 这 一 规则 在 附加 的 紧急 情况 下 被 重新 
BWR: 
(defrule operator-~alert-for-emergency 
(emergency) 
(not (operator-alert) }) 


(printout t "Emergency: Operator Alert" crlf) 
{assert (operator-alert))) 


(not (operator-alert)) CE 防止 该 规则 被 重新 激发 ; 然而 ， 这 种 改变 规则 的 方法 是 假设 如 果 有 一 
操作 员 警 报 ， 则 这 个 警报 就 是 由 operator-alert-{or-emergency (操作 人 员 警 惕 紧急 情况 ) 规则 产生 的 。 可 
能 有 这 种 情况 : 操作 人 员 在 一 个 紧急 事件 训练 中 被 报警 ， 就 像 以 下 这 一 规则 所 表示 的 那样 : 


(defrule operator-alert-for-drill 
(operator-Grill) 
(not (operator~-alert) ) 
=> 
(printout t "Drill: Operator Alert” crif) 
{assert (operator-alert))) 


注意 这 种 情况 ， 如 果 这 个 训练 报警 规则 首先 触发 ， 则 由 于 operator-alert 事实 被 声明 ， 而 使 紧急 报 
警 规则 不 能 触发 。 为 了 修正 这 一 问题 ，operator-alert 事实 可 以 被 修改 ， 使 之 能 存储 引起 报警 的 原因 。 但 
是 ， 通 过 增加 规则 间 的 控制 依赖 性 ， 过 度 使 用 控制 事实 来 防止 规则 触发 会 增加 规则 的 复杂 性 、 降 低 规 
则 的 可 维护 性 。 
S247, 3X operator-alert-for-emergency 规则 能 够 被 修改 以 使 用 exists CE, 这 将 可 以 去 掉 使 用 控制 
事实 的 必要 。 不 管 有 多 少 事实 符合 exists CE 中 的 CE，exists CE 都 将 只 产生 一 个 部 分 匹配 。 所 以 ， 如 果 
一 个 exists CE 是 一 条 规则 的 第 NCE, 而且 前 N-1 个 CE 已 经 产生 M 个 部 分 匹配 ， 则 这 第 N 个 CE 
所 能 产生 的 最 大 部 分 匹配 数 为 M。 使 用 exists CE， 该 operator-alert-for-emergency Bt 则 可 重 BA: 


(defrule operator-alert-for-emergency 
(exists (emergency) } 
=> 
(printout t "Emergency: Operator Alert" crlf) 
{assert (operator-alert)))} 


这 一 规则 将 会 产生 一 个 激活 ， 所 以 ， 该 操作 员 警报 只 被 打印 一 次 ， 就 像 以 下 对 话 显示 的 那样 : 


CLIPS> (reset)J 
CLIPS> (assert (emergency (type fire)))- 





员 的 消息 被 多 次 重复 打印 : 





<Fact-1> 

CLIPS> (assert (emergency (type flood))) 
<Fact-2> 

CLIPS> (agenda) 

0 operator-alert-for-emergency: f-0, 


For a total of 1 activation， 
CLIPS> (run) 

Emergency: Operator Alert 
CLIPS> 
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Exists CE 通过 使 用 and CE M not CE 的 组 合 来 实现 。exists CE 中 的 CE 是 封装 在 一 个 and CE. Ala 
再 封装 在 二 个 not CE 中 的 。 所 以 ， 通过 一 个 and CE 包围 整个 LHS， 然 后 替换 exists CE， 从 而 把 该 op- 
erator-alert-for-emergency 规则 改变 成 如 下 形式 : 


(defrule operator-alert-for~emergency 
{and (not (not (and (emergency))))) 
=> 
(printout t "Emergency: Operator Alert" crlf) 
(assert (operator~alert))) 


因为 包围 着 该 规则 的 LHS 的 and CE 将 not CE 作为 第 一 个 CE， 故 (initial-fact) 模式 CE 被 添加 到 
开头 。 在 emergency 模式 中 进行 这 一 增加 并 去 掉 无 关 的 and CE 将 产生 以 下 规则 : 


(defrule operator-alert-for-emergency 
(and (initial-fact) 
(not (not (emergency) ))) 
=> 
(printout t "Emergency: Operator Alert" crlf} 
(assert (operator~-alert))) 


在 规则 开始 处 的 (initial-fact) 模式 解释 了 £0 事实 索引 ， 该 索引 是 在 前 面 的 对 话 中 发 出 agenda 命 
令 时 为 此 规则 作 显 示 的 。 如 果 没 有 emergency 事实 ， 则 最 内 层 的 not CE 将 被 满足 。 如 果 这 个 CE BOR 
足 ， 则 最 外 层 的 not CE 将 不 被 满足 ， 且 这 一 规则 也 不 会 被 激活 。 相 反 ， 如 果 有 emergency 事实 ， 则 最 
内 层 的 not CE 将 不 被 满足 。 既 然 这 个 CE 不 被 满足 ， 则 最 外 层 的 not CE 就 会 被 满足 ， 且 此 规则 将 会 被 


8.17 FORALL 条 件 元 素 


Forall 条 件 元 素 (forall conditional element) 用 于 每 次 出 现 另 一 个 CE 时 一 组 CE 被 满足 的 情况 。 例 
如 ， 假 设 在 工业 区 有 一 系列 位 置 〈 如 建筑 物 ) 正在 着 火 ， 我 们 想 知道 是 否 每 一 座 已 着 火 的 建筑 都 已 玻 
散 ， 是否 有 一 支 消 防 队 已 去 救火 。forall CE 能 用 于 检查 这 些 情况 。emergency 事实 将 被 修改 成 如 下 形 
式 ， 包 含 紧急 情况 的 位 置 和 紧急 事件 的 类 型 。 其 他 两 个 自 定义 模板 将 被 用 来 显示 消防 队 的 位 置 和 某 一 
建筑 内 的 人 是 否 已 经 朴 散 。all-fires-being-handled 规则 使 用 这 些 自 定义 模板 去 决定 是 否 已 满足 适当 的 
条 件 。 


(deftemplate emergency 
{slot type) 
(slot location) } 


{deftemplate fire-squad 
(slot name) 
(slot location) ) 


(deftemplate evacuated 
(slot building) ) 


(defrule all~fires-being-handled 
(forall (emergency (type fire) 
(location ?where) ) 
(fire-squad (location ?where}) 
(evacuated (building ?where) )) 
=> 
(printout t 
"All buildings that are on fire " crlf 
"have been evacuated and* crlf 
“have firefighters on location" crlf)) 


每 一 个 符合 (emergency (type fire) (location ? where)) 模式 的 事实 ， 也 是 满足 (fire-squad (loca- 
tion ? where) 模式 和 (evacuated (building ? where)) 模式 的 事实 。 当 自 定义 模板 和 自 定义 规则 开始 载 
入 ， 并 且 发 出 了 reset 命令 时 ， 只 要 没有 火警 出 现 ， 该 规则 就 会 被 满足 。 
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CLIPS> (watch activations) 
CLIPS> (reset) 


==> Activation 0 all-fires-being-handled: 
£-0, 
CLIPS> 
—H emergency 事实 被 声明 ， 这 一 规则 就 将 失效 ， 直 到 适当 的 fire-squad 和 evacuated 事实 被 声明 为 止 。 
CLIPS> 


(assert (emergency (type fire) 

(location building-11)))W 
<== Activation 0 all-fires-being-handled: f-0, 
<Fact-1> 
CLIPS> 
{assert (evacuated (building building-11))) 
<Fact-2> 
CLIPS> 
(assert (fire-squad (name A) 

(location building-11)))W 
==> Activation 0 all-fires-being-handled: f-0, 
<Fact-3> 
CLIPS> 
(assert (fire-squad (name B) 
(location building-1))) 

<Fact-4> 
CLIPS> 
(assert (emergency (type fire) 

(location building-1)))4 
<== Activation 0 all-fires-being-handled: f-0, 


<Fact-5> 

CLIPS> (assert (evacuated (building building-1))) 

==> Activation 0 all-fires-being-handled: 

£-0, 

<Fact-6> 

CLIPS> 

如 果 建 筑 物 1 的 fire-squad 事实 被 除去 ， 则 该 规则 失效 。 删 去 该 建筑 物 的 emergency 事实 将 重新 使 
该 规则 有 效 。 


CLIPS> (retract 4) 

<== Activation 0 all-fires-being-handled: f-0, 
CLIPS> (retract 5) 

==> Activation 0 all-fires-being-handled: f-0, 
CLIPS> (run) 

All buildings that are on fire 

have been evacuated and 

have firefighters on location 

CLIPS> 


forall CE 一 般 的 格式 如 下 : 


(forall <first-CE> 
<remaining-CEs>+) 


为 了 使 forall CE 得 到 满足 ， 每 一 个 匹配 < first-CE> 的 事实 也 必须 匹配 所 有 < remaining-CEs) 事实 。 
forall CE 的 一 般 格 式 可 用 and 和 not CE 的 组 合 改写 成 以 下 的 格式 ， 


(net (and <first-CE> 
(not (and <remaining-CEs>+)))) 


8.18 LOGICAL 条 件 元 素 


Logical 条 件 元 素 (logical conditional element) 允许 你 规定 ， 某 事实 的 存在 依赖 于 另 一 事实 或 另 一 组 
事实 的 存在 。logical CE 是 CLIPS 为 正确 性 维护 所 提供 的 一 个 工具 。 作 为 一 个 例子 ， 思考 以 下 规则 ， 当 
一 场 火灾 正在 放出 有 毒气 体 时 ， 该 规则 指示 消防 员 需 要 佩戴 氧气 面具 ，: 


(defrule noxious-fumes-present 
(emergency (type fire)) 
(noxious-fumes-present) 
=> 
(assert (use-oxygen-masks) )) 
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如 同 以 下 对 话 所 展示 的 ， 无 论 何 时 出 现 这 样 一 场 火灾 ， 上 面 的 规则 将 声明 use-oxygen-masks 事实 : 


CLIPS> (unwatch all) 

CLIPS> (reset) 

CLIPS> (watch facta) 

CLIPS> (aseert (emergency (type fire)) 
(noxious-funes-present ) ) ) 


==> f-1 (emergency (type fire)) 
==> £-2 (noxious-fumes-present) 
<Fact-2> 

CLIPS> (run) 

==> f-3 (use-oxygen-masks) 
CLIPS> 


当 火 被 扑灭 后 、 且 不 再 有 毒气 体 放 出 时 ， 会 发 生 什么 事情 呢 ? 就 像 下 一 个 对 话 显示 的 那样 ， 撤 销 
emergency 事实 或 撤销 noxious-fumes-present 事实 并 不 会 影响 use-oxygen-masks 事实 。 
CLIPS> (retract 1 2). 


<== f-1 (emergency (type fire) ) 
<== f-2 (noxious-fumes-present) 
CLIPS> (facts) 

f-0 (initial-fact) 

£-3 (use-oxygen-masks) 

For a total of 2 facts. 

CLIPS> 


CLIPS 提供 了 一 个 正确 性 维护 机 制 去 建立 事实 间 的 依赖 关系 ， 这 一 机 制 就 是 logical CE。 如 下 所 示 
修改 noxious-fumes-present 规则 ， 人 允许 在 与 规则 LHS 模式 匹配 的 事实 和 规则 RHS 上 声明 的 事实 之 间 建 
立 一 种 依赖 关系 : 


(defrule noxious-fumes-present 
(logical (emergency (type fire)} 
(noxious-fumes~present} ) 
=> 
{assert (use-oxygen-masks} }} 


当 noxious-fumes-present 规则 执行 时 ， 在 与 包含 在 规则 LHS 中 logical CE 内 的 模式 匹配 的 事实 和 规 
则 RHS 上 声明 的 事实 之 间 就 建立 起 一 个 链接 。 对 于 这 一 规则 ， 如 果 emergency 事实 或 noxious-fumes- 
present 事实 被 撤销 ， 那 么 use-oxygen-masks 规则 将 同样 被 撤销 ， 如 同 以 下 对 话 所 示 的 那样 : 


CLIPS> (unwatch all) 

CLIPS> (reset) 

CLIPS> (watch facts) 

CLIPS> (assert (emergency (type fire)) 
(noxious-fumes-present ) ) )—! 


==> f-1 (emergency (type fire)) 
==> f-2 (noxious-fumes-present) 
<Pact-2> 

CLIPS> (run) 

==> f-3 (use-oxygen-masks } 
CLIPS> (retract 1) 

<== f-1 (emergency (type fire)} 
<== £-3 (use-oxygen-masks) 
CLIPS> 


use-oxygen-masks 事实 接受 来 自 emergency 事实 和 noxious-fumes-present 事实 的 逻辑 支持 (logical 
support). emergency 事实 和 noxious-fumes-present 事实 向 use-oxygen-masks 事实 提供 逻辑 支持 。use-oxy- 
gen-masks 事实 依赖 于 emergency 事实 和 noxious-fumes-present 事实 。noxious-fumes-present 事实 和 emer- 
gency 事 实 是 use-oxygen-masks 事实 的 依据 。 

logical CE 不 必 包 含 在 一 条 规则 LHS 上 的 所 有 模式 中 。 然 而 ， 如 果 使 用 logical CE， 它 就 必须 包含 
一 条 规则 中 的 LHS 的 第 一 个 CE， 并 且 ， 在 由 logical CE 包含 的 CE 之 间 不 能 有 空隙 (gap)。 例 如 ，jogi- 
cal CE 不 能 被 安排 为 规则 的 第 二 和 第 四 个 CE， 甚 至 不 能 被 安排 为 规则 的 第 一 个 、 第 三 个 CE， 因 为 这 
FES SBR. X logical CE 的 这 一 限制 是 它 的 潜在 实现 的 原因 。 同 样 可 以 通过 在 logical CE 中 使 用 
not CE 来 使 事实 依赖 于 其 他 事实 的 不 存在 性 。 在 logical CE 中 ， 可 以 使 用 exists CE, forall CE 或 其 他 
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CE 的 组 合 形成 的 更 为 复杂 的 条 件 。logical CE 在 其 他 方面 的 情况 与 and CE 一 样 ， 但 不 能 在 多 组 事实 之 
间 建 立 依赖 关系 。 

为 了 修改 noxious-fumes-present 规则 ， 使 use-oxygen-masks 事实 仅 依赖 于 noxious-fumes-present 事 
实 ， 则 需要 重新 排列 这 些 模 式 如 下 


(defrule noxious-fumes-present 
{logical (noxious-fumes-present) ) 
(emergency (type fire)) 
=> 
(assert (use-oxygen-masks) )) 


有 了 上 述 修改 后 的 规则 ， 则 当 emergency 事实 撤销 后 use-oxygen-masks 事实 将 不 会 自动 地 被 撤销 (这 
是 一 个 更 安全 的 方法 ， 因 为 即使 火灾 熄灭 后 仍 有 可 能 存在 有 毒气 体 ) 。 

正常 地 ， 声 明 一 个 已 存在 于 事实 表 中 的 事实 并 无 什么 影响 。 但 是 ， 一 个 逻辑 上 依赖 于 多 个 源 推导 
出 来 的 事实 不 会 自动 撤销 ， 除 非 所 有 源 的 逻辑 支持 都 被 除去 。 例 如 ， 假 设 增加 另 一 条 规则 ， 指 示 当 正 
在 使 用 气体 灭火 器 时 应 该 戴 上 和 氧气 面具 : 


(defrule gas-extinguishers-in-use 
(logical (gas-extinguishers-in-use) ) 
(emergency (type fire)) 
=> 
(assert (use-oxygen-masks) ) ) 


运行 该 系统 将 引起 两 个 不 同 的 规则 根据 不 同 的 原因 去 声明 同一 事实 。 


CLIPS> (unwatch all) 

CLIPS> (reset) J 

CLIPS> (watch facts) J 

CLIPS> (watch rules). 

CLIPS> (assert (emergency (type fire)) 
(noxious-fumes-present) 
(gas-extinguishers-in-use)) 

=> f-1 {emergency (type fire)) 

=> f-2 {noxious-fumes-present) 

> f-3 (gas-extinguishers-in-use) 


CLIPS> (run) J 

FIRE 1 gas-extinguishers-in-use: f-3,f-1 
==> f-4 (use-oxygen-masks) 

FIRE 2 noxious-fumes-present: f-1,f-2 
CLIPS> 


撤销 noxious-fumes-present 事实 不 足以 使 use-oxygen-masks 事实 自动 撤销 ， 因 为 对 将 要 使 用 的 氧气 
面 单 有 另 一 个 逻辑 支持 。 在 撤销 use-oxygen-masks 事实 之 前 ， 还 必须 撤销 gas-extinguishers-in-use 事实 。 


CLIPS> (retract 2) 


<== 上 -2 (noxious-fumes-present) 
CLIPS> (retract 3)! 

<== f-3 (gas-extinguishers-in-use) 
<== f-4 (use-oxygen-masks} 

CLIPS> 


在 顶层 提示 下 、 或 从 一 个 在 LHS 中 没有 任何 逻辑 CE 的 规则 RHS 上 被 声明 的 事实 会 无 条 件 得 到 支 
持 。 无 条 件 受 支持 的 事实 将 永 不 会 因为 另 一 个 事实 的 撤销 而 自动 撤销 。 一 旦 接收 到 无 条 件 支持 ， 对 某 
个 事实 的 以 前 所 有 逻辑 支持 都 会 被 丢弃 。 

为 了 观察 与 事实 相 联系 的 依赖 关系 ，CLIPS 提供 了 两 条 命令 。 命 令 格式 如 下 : 


(dependents <fact-index-or-address>) 


o 


(dependencies <fact-index-or-address>) 
对 最 后 一 个 例子 ， 在 noxious-fumes-present 和 gas-extinguishers-in-use 两 个 事实 被 撤销 之 前 ， 这 些 命 
令 将 产生 下 面 的 输出 : 


CLIPS> (facts) 
£-0 (initial-fact) 
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f-1 (emergency (type fire)) 
£-2 (noxious-fumes-—present ) 
£-3 (gas-extinguishers~in~use) 
f-4 (use-oxygen-masks) 


For a total of 5 facts. 
CLIPS> (dependents 1) 
None 

CLIPS> (dependents 2). 
£-4 

CLIPS> (dependents 3) 
£-4 

CLIPS> (dependenta 4) 
None 

CLIPS> (dependencies 1)~ 
None 

CLIPS> (dependencies 2)-! 
None 

CLIPS> (dependencies 3)-! 
None 

CLIPS> (dependencies 4)~! 
£~2 

f£-~3 

CLIPS> 


8.19 小 结 


本 章 介绍 了 字段 约束 的 概念 。 字 段 约束 允许 对 一 个 特定 的 字段 使 用 多 个 约 东 组 合 或 否定 。not 字段 
约束 用 于 阻止 匹配 某 些 特定 值 。and 字段 约束 用 于 确保 一 连 串 的 匹配 条 件 都 为 真 。or 字段 约束 用 于 确 
保 一 连 串 匹配 条 件 中 至 少 有 一 个 为 真 。 

函数 用 在 CLIPS 顶层 命令 循环 中 ， 或 用 在 规则 的 LHS 或 RHS 上 。 许 多 函数 ， 例 如 某 些 算术 函数 ， 
可 以 具有 数量 不 国定 的 选项 。 函 数 调用 可 以 嵌 套 在 其 他 函数 调用 中 。bind 命令 允许 变量 在 规则 的 RHS 
上 约束 。 

CLIPS 提供 了 若干 个 I/O 函数 。open 和 close 函数 用 于 打开 和 关闭 文件 。 打 开 的 文件 与 一 个 逻辑 名 
相 联系 。 逻 辑 名 可 用 于 大 多 数 函数 中 ， 以 实现 多 种 物理 设备 上 的 输入 和 输出 。printout 和 read 函数 使 用 
BHA. printout 函数 可 以 输出 到 终端 和 文件 。read 函数 可 以 从 键盘 和 文件 中 输入 。format 和 readline 
函数 同样 可 使 用 逻辑 名 。format 函数 允许 对 输出 外 观 有 更 多 的 控制 。readline 函数 可 以 用 于 读 人 整 行 数 
H. explode $ 函数 用 于 把 一 个 字符 串 转换 成 一 个 多 字段 值 。 

本 章 还 介绍 了 执行 控制 流 的 若干 概念 。read 函数 用 来 展示 如 何 使 用 被 撤销 然后 又 被 声明 的 控制 事 
实 来 建立 一 个 对 输入 的 简单 控制 循环 。Test CE 和 谓词 函数 一 起 可 用 于 规则 的 左 部 以 提供 更 强大 的 模式 
匹配 能 力 。 此 外 ，test CE 可 用 来 维护 控制 循环 。 谓 词 字段 约束 人 允许 谓词 测试 直接 置 于 模式 中 。 相 等 字 
段 约束 用 来 比较 字段 和 函数 返回 值 。Sticks 程序 展示 了 这 些 控制 技巧 。 

除了 test CE 以 外 ， 还 有 其 他 的 CE. or CE 用 来 将 几 条 规则 表达 为 单一 的 一 条 规则 。not CE 允许 某 
事实 不 在 事实 表 上 时 仍 能 进行 模式 匹配 。and CE 将 CE 形成 组 ， 并 与 or 和 not 一 起 使 用 ， 它 可 以 任意 
骨 套 以 表达 需要 符合 某 条 规则 的 复杂 条 件 。exists CE 用 来 确定 满足 一 个 CE 或 一 组 CE 的 事实 中 至 少 有 
一 组 事实 是 否 存在 。forall CE 用 来 确定 某 个 CE 集 是 否 满足 另 一 CE 的 每 一 次 出 现 。logical CE 提供 了 正 
确 性 维护 机 制 ， 可 以 使 事实 的 存在 依赖 于 其 他 事实 的 存在 。 


习题 
8.1 假设 下 列 事实 的 自 定义 模板 描述 一 棵 家 族 树 ， 


(deftemplate father-of (slot father) (slot child)) 
(deftemplate mother-of (slot mother) (slot child)) 
(deftemplate male (slot person) } 

(deftemplate female (slot person) ) 

(deftemplate wife-of (slot wife) (slot husband) ) 
(deftemplate husband-of {slot husband) (slot wife)) 
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8.2 


8.3 


8.4 


8.5 


8.6 


8.7 


写 出 能 推出 下 列 关系 的 规则 。 描 述 解决 问题 所 用 的 自 定义 模板 。 

(a) Uncle, aunt 

(b) Cousin 

(c) Grandparent 

(d) Grandfather, grandmother 

(e) Sister, brother 

(£) Ancestor 

一 家 工厂 有 10 个 传感器 ,编号 从 1 到 10。 每 个 传感器 有 “良好 ”或 “不 良 ” 两 种 状态 。 建 立 一 
个 描述 传感器 的 自 定义 模板 ， 写 出 一 条 或 更 多 的 规则 ， 使 在 三 个 或 更 多 的 传感器 处 于 不 良 状 态 时 
打印 警告 信息 。 在 下 列 情况 下 测试 你 的 规则 : 3 号 和 5 号 传感器 不 良 ; 2、8 和 9 号 不 良 1、3、 
5 和 10 号 不 良 。 如 何 防 止 警告 信息 显示 多 次 呢 ? 

基于 为 习题 3.5 所 设计 的 IF…THEN 规则 建立 一 个 CLIPS 程序 。 程 序 要 求 询问 旅行 者 的 费用 支 
付 方 法 及 旅游 兴趣 ， 要 求 在 这 两 个 输入 信息 的 基础 上 输出 潜在 旅程 。 

假如 有 使 用 下 列 自 定义 模板 来 描述 形状 的 一 系列 事实 : 


(deftemplate square 

(slot id) {slot side-length) ) 
(deftemplate rectangle 

{slot id) (slot width) {slot height)) 
(deftemplate circle 

(slot id) (slot radius) ) 


编写 一 条 或 更 多 条 规则 ， 计 算 下 列 各 项 的 和 : 
(a) 图 形 的 面积 ; 
(b) 图 形 的 周 长 。 
用 下 列 自 定 义 事实 测试 规则 的 输出 结果 : 
(deffacts test-8-8 
(square (id A) (side-length 3)) 
(square (id B) (side-length 5)) 
(rectangle (id C) (width 5) (height 7)) 


(circle (id D) (radius 2)) 
(circle (id E) (radius 6))) 


已 知 使 用 下 列 自 定义 模板 的 某 人 的 姓名 、 眼 睛 颜色 、 头 发 颜色 和 国籍 : 


(deftemplate person (slot name) 
(slot eye-color) 
(slot hair-color) 
(slot nationality) } 


写 出 一 条 规则 找 出 : 

(a) 任何 有 蓝 色 或 绿色 眼睛 、 棕 色 头发 的 法 国人 。 

(b) 任何 不 是 蓝 眼 睛 、 不 是 黑头 发 且 头 发 和 眼睛 颜色 不 同 的 人 。 

(c) 两 个 人 ; 第 一 个 是 眼睛 为 棕色 或 蓝 色 、 头 发 不 是 金色 的 德国 人 ; 第 二 个 是 眼睛 为 绿色 、 头 发 
颜色 与 第 一 个 相同 且 国籍 不 限 的 人 。 如 果 第 一 个 人 的 头发 是 棕色 ， 则 第 二 个 人 的 眼睛 可 以 是 
棕色 。 

把 下 列 中 缀 表达 式 转换 成 前 级 表达 式 : 

(a) (3 + 4) * (5 + 6) +7 

(b) (5 * (8 +647) - ((3* (4/9 +2) / 8) 

(c)6-9*8/344- (8-2-3) * 6/7 

以 下 是 关于 一 个 棒球 队 的 信息 。Andy 不 喜欢 做 接 球 手 。Ed 的 姐姐 作为 第 二 又 手 。 中 场 外 野手 比 

右 场 外 野手 高 。Harry 和 第 三 圣手 住 在 同一 座 楼 里 。Paul 和 Allen 打牌 每 人 各 赢 投 球 手 20 美元 。 
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8.8 


8.9 


8.10 


Ed 和 外 野手 们 在 空闲 时 打 扑 克 。 投 球 手 妻子 是 第 三 又 手 的 姐姐 。 除 了 Allen, Harry 和 Andy 外 ， 
投 捕手 (包括 投球 手 和 接 球 手 ) 和 内 野手 都 比 Sam BH. Paul, Andy 和 游击 手 每 人 在 赛马 场 输 了 
50 美元 。Paul、Harry、Bill 和 接 球 手 在 桌球 上 输 给 了 第 二 爸 手 。Sam 正在 办 离婚 。 接 球 手 和 第 三 
圣手 每 人 有 两 个 孩子 。Ed、Paul、Jerry、 右 场 外 野手 和 中 场 外 野手 都 是 单身 汉 ， 其 他 人 都 结 了 
婚 。 游击 手 、 第 三 垒 手 和 Bill 赌 拳 各 输 了 100 美元 。 有 一 个 外 野手 不 是 Mike 就 是 Andys Jerry HE 
Bill, Mike 比 Bill 绑 。 他 们 三 个 都 比 第 三 侄 手 重 。Sam、 接 球 手 和 第 三 全 手 是 左 撤 子 。FEd、 
Sam 和 游击 手 一 起 读 高 中 。 试 编写 一 个 CLIPS 程序 确定 他 们 各 自 的 打球 位 置 。 

把 图 3.3 中 示 出 的 判定 树 转 换 成 一 系列 CLIPS 规则 。 用 下 列 自 定义 模板 创建 与 事实 匹配 的 模式 : 


(deftemplate question 
(slot query-string) 
(slot answer) ) 


例如 ， 车 由 树 的 根 结 点 代表 的 问题 答案 是 “否定 ”"， 则 说 明 该 信息 的 事实 应 该 是 : 


(question (query-string “Is it very big?”) 
(answer no) ) 


在 规则 的 RHS 上 应 用 printout 和 read 函数 回答 图 中 提出 的 问题 ， 以 用 户 的 响应 来 确定 question 
事实 。 
写 出 一 个 CLIPS 程序 ， 不 用 算术 函数 实现 两 个 二 进 制 数 加 法 。 用 以 下 自 定义 模板 来 表示 二 进 
制 数 。 


(deftemplate binary-# 
(multislot name) 
(multislot digits) ) 


给 出 两 个 已 命名 二 进 制 数 相 加 的 事实 ， 要 求 程序 创建 一 个 新 的 命名 二 进 制 数 存储 该 和 数 。 例 如 ， 
事实 : 


(binary-# (mame A) (digits 1011 1)) 
(binary-# (name B) (digits 1 1 1 0)) 
(add-binary-#s (mame-1 A) (name-2 B)} 


要 求 使 以 下 事实 : 

(binary-# (name { A + B }) (digits 10 010 1)) 

添加 到 事实 表 中 。 

写 出 一 个 CLIPS 程序 ， 提 示 输 入 需要 输血 的 病人 血型 和 献血 者 的 血型 。 要 求 程序 根据 血型 决定 
输血 是 否 可 以 进行 。O 型 血 只 能 输入 O 〇 型 血 ，A 型 血 可 以 输入 A 型 或 O 型 血 ; B 型 血 可 以 输入 
BÆR OÆ; AB 型 血 可 以 输入 AB 型 、A 型 、 BRO Win. 

写 出 一 个 CLIPS BY, BHF UR EMF AMR. RERENRE ENTARRA 
的 信息 。 要 求 程 序 首先 提示 选择 牛肉 还 是 选择 烹调 的 方式 ， 然 后 再 提示 相应 的 选择 。 运 用 以 下 
指导 原则 决定 适宜 的 肉 或 豪 调 方法 : BRA (rump roast) MARRS; EHE (sirloin 
steak) 应 该 烤 熟 、 用 盘 烤 或 用 盘 炸 ; T- 骨 牛排 应 该 烤 熟 、 用 盘 炸 或 蒸 炖 ; 肋骨 应 该 烘 烤 ; 背部 
肉 应 该 烘 烧 、 烤 熟 、 用 盘 炸 或 蒸 炖 ， 侧 排 应 该 蒸 炖 ; DHEA. 

修改 习题 7.14 中 的 程序 ， 使 输入 由 用 户 回 答 的 一 系列 关于 灌木 的 必要 特点 的 问题 而 决定 。 程 序 
的 输出 应 该 与 原来 习题 中 的 相同 。 

细菌 可 依据 不 同 的 特征 分 类 。 这 些 特 征 包括 它们 的 基本 形状 (球状 、 棒 状 、 螺 状 或 丝 状 )、 实 验 
室 的 染色 实验 结果 ( 正 、 负 或 无 ) 和 它们 的 生存 是 否 需 要 氧气 〈 好 氧 或 厌 氧 )。 编 写 一 个 程序 ， 
根据 下 面 表 中 的 信息 识别 细菌 类 别 。 此 程序 要 询问 用 户 关于 细菌 形状 、 染 色 实验 结果 和 需 氧 否 
的 信息 。 用 户 可 指定 任何 输入 信息 为 未 知 。 程 序 的 输出 结果 应 该 能 够 根据 用 户 所 提供 的 信息 给 
出 所 有 可 能 的 细菌 类 型 。 
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类 型 形 R 





染色 实验 m 氧 性 
Actinomycete 棒状 或 丝 状 正 FA 
Coccoid 球状 正 FARRA 
Coryneform 棒状 正 好 氧 
Endospore-forming 棒状 正 或 负 HARRA 
Enteric 棒状 负 HA 
Gliding 棒状 负 HA 
Mycobacterium 球状 T 好 氧 
Mycoplasma 球状 否 好 氧 
Pseudomonad 棒状 负 HA 
Rickettsia 球状 或 棒状 负 HA 
Sheathed 丝 状 负 好 氧 
Spirillum 螺旋 状 负 好 氧 
Spirochete 螺旋 状 负 RA 
Vibrio 棒状 负 好 氧 


8.14 ”尖端 电子 学 制造 出 一 种 名 为 Thingamabob 2000 的 设备 。 这 种 设备 有 5 种 不 同 的 模型 ， 分 别 由 底 
座 区 分 。 每 个 底座 提供 一 些 对 可 选 小 装置 的 支架 ， 它 可 产生 一 定量 的 动力 。 下 表 总 结 了 底座 的 





各 种 属性 ; 

R Æ 提供 的 支架 数 提供 的 动力 价格 (8) 
C100 1 4 2000.00 
C200 2 5 2500.00 
C300 3 7 3000.00 
C400 2 8 3000.00 
C500 4 9 3500.00 


每 个 可 以 安装 在 底座 上 的 小 装置 需要 一 定量 的 动力 运行 。 下 表 总 结 了 小 装置 的 各 种 属性 ; 





小 装 置 所 用 动力 价格 ($ ) 
Zaptron 2 100.00 
Yatmizer 6 800.00 
Phenerator 1 300.00 
Malcifier 3 200.00 
Zeta-shield 4 150.00 
Warnosynchronizer 2 50.00 
Dynoseparator 3 400.00 





已 知 挑选 出 的 底座 和 小 装置 的 输 和 事实， 编写 一 个 程序 ， 生 成 已 用 的 小 装置 数 的 事实 、 各 小 装 
置 所 需 的 总 动力 以 及 所 选 底座 和 全 部 小 装置 的 总 价格 。 

8.15 根据 习题 7.13 给 出 的 宝石 表格 ， 编 写 区 分 下 列 宝石 的 规则 : HA. WE. SRE. RRA, 
石英 和 电气 石 。 要 求 包含 向 用 户 查 询 宝石 的 硬度 、 密 度 和 颜色 的 规则 ， 并 提示 用 户 一 定 要 以 表 
格 所 列 宝石 的 颜色 之 一 作为 回答 。 

8.16 在 Sticks 程序 中 加 入 一 些 规则 ， 使 它 能 向 使 用 者 询问 是 否 在 游戏 结束 之 后 再 玩 一 次 游戏 。 

8.17 修改 Sticks 程序 ， 除 了 能 使 人 与 计算 机 进行 游戏 对 战 外 ， 还 可 以 使 得 两 人 能 相互 对 战 。 

8.18 用 and 和 or CE 重新 把 下 列 规则 写成 一 条 规则 : 
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8.19 
8.20 


(defrule rule-1 
(fact-a) 
{fact-d) 


=>) 


(defrule rule-2 
(fact-b) 
(fact-c) 
(fact-e) 
{fact-f) 
=>) 


(defrule rule-3 
(fact-a) 
(fact-e) 
{fact-f} 
=>) 


(defrule rule-4 
(fact-b) 
{(fact-c) 
(fact-d) 
=>} 


用 and 和 or CE 为 图 3.10 的 与 或 树 编写 一 个 程序 ， 并 对 所 有 分 枝 进行 测试 。 
判断 变量 x 是 否 为 下 列 每 一 条 规则 正确 引用 ， 解 释 你 的 答案 。 


(a) (defrule example-1 
(not (fact ?x)) 
(test (> ?x 4)) 
=>) 
(b) (defrule example-2 
(not (fact ?x&:(> ?x 4))) 
=>) 
(c) (defrule example-3 
(not (fact ?x)) 
(fact ?y&: (> ?y ?x))) 
=>) 
(d) (defrule example-4 
(not (fact ?x)) 
(fact ?x&:(> ?x 4))) 
=>} 








8.21 重 写 第 7.23 节 的 “ 抉 世界 ”程序 ， 使 得 它 能 重新 排列 各 个 块 ， 使 得 从 原始 的 堆栈 状态 排列 为 任 
何 目标 状态 。 例 如 ， 如 果 块 的 原始 状态 为 : 
(stack A BC) 
(stack D E F) 
其 中 一 个 可 能 的 目标 状态 为 
{stack D C B} 
(stack A) 
(stack F E) 
8.22 编写 一 个 CLIPS 程序 ， 使 其 能 询问 用 户 各 颜色 值 ， 然 后 ， 打 印 所 有 具有 含 指定 颜色 的 国旗 的 所 
有 国家 列表 。 下 表 列 出 了 许多 国家 的 国旗 颜色 : 
国 别 国旗 颜色 
United States 美国 Red, white, and blue 
Belgium 比利时 Black, yellow, and red 
Poland 波兰 White and red 
Monaco 摩纳哥 White and red 
Sweden 瑞典 Yellow and blue 


Panama 巴拿马 Red, white, and blue 
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( 续 ) 
国 “ 别 旗 颜 色 

Jamaica 牙买加 Black, yellow, and green 

Colombia 哥伦比亚 Yellow, blue, and red 

Italy 意大利 Green, white, and red 

Ireland 爱尔兰 Green, white, and orange 

Greece 希腊 Blue and white 

Botswana 博茨瓦纳 Blue, white, and black 


v=: Red 22, Orange #, Yellow #, Green &, Blue X, Black %, White 8 


8.23 


8.26 


8.27 


给 定 下 面 自 定义 模板 描述 一 个 集合 (set): 
(deftemplate set 


(multislot name) 
(multislot members) ) 


试 写 出 一 条 或 多 条 规则 ， 
(a) 求 出 两 个 指定 集合 的 并 ， 已 知 这 两 个 集合 的 事实 由 下 列 自 定义 模板 给 出 : 


{deftemplate union 
(multislot set-i-name) 
(multislot set-2-name})} 


(b) 求 出 两 个 指定 集合 的 交 ， 已 知 这 两 个 集合 的 事实 由 下 列 自 定义 模板 给 出 : 


(deftemplate intersection 
(multislot set-1-name) 
(multislot set-2-name) ) 


注意 ， 计 算 并 和 交 时 ， 不 允许 出 现 重复 的 元 素 。(a) 和 (b) 的 最 后 结果 应 该 是 一 个 新 的 集合 事 
实 ， 它 包含 这 两 个 指定 集合 的 并 或 交 ， 而 且 ， 操 作 完 成 后 ， 应 该 撤销 这 两 个 并 和 交 事 实 。 
写 出 一 组 规则 ， 按 语 态 和 型 将 三 段 论 归 类 。 例 如 ， 三 段 论 : 


No M is P 


Some M is not S 
“. Some S is P 


属于 EOI3 类 型 。 规 则 的 输入 应 该 是 一 个 事实 ， 描 述 大 小 前 提 和 结论 。 输 出 是 一 条 语 态 和 型 的 
打印 语句 。 

编写 一 个 程序 ， 读 取 含 有 人 名 和 年 龄 的 数据 文件 ， 并 创建 一 个 按 年 龄 升序 排列 的 新 文件 。 该 程 
序 应 该 提示 输入 文件 和 输出 文件 。 例 如 ， 输 入 文件 


Linda A. Martin 43 
Phyllis Sebesta 40 
Robert Delwood 38 
Jack Kennedy 39 
Glen Steele 37 


应 该 创建 的 输出 文件 是 : 


Glen Steele 37 
Robert Delwood 38 
Jack Kennedy 39 
Phyllis Sebesta 40 
Linda A. Martin 43 


编写 一 个 程序 ， 利 用 点 数 法 计算 桥牌 手中 13 张 牌 的 点 数 。A 为 4 点 、K 为 3 点 、Q 为 2 点 、J 
为 1 点。 缺 一 种 花色 ( 某 一 花色 一 张 牌 都 没有 ) 为 3 点、 某 花 色 只 有 单 张 为 2 点 、 某 花色 只 有 
双 张 为 1 点 。 

编写 一 个 程序 ， 指 出 某 人 知人 毒物 后 要 采取 什么 措施 。 此 程序 知道 下 列 毒物 : 酸 ( 如 去 锈 剂 、 
Bu), ， 碱 〈 如 氨水 、 漂 白 剂 )， 以 及 石油 产品 〈 如 汽油 、 松 节 油 )。 其 他 所 有 毒物 归 为 other 类 。 
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中 毒 时 ， 应 呼叫 医师 或 中 毒 控制 中 心 。 对 于 酸 、 碱 和 其 他 类 型 的 毒物 (但 不 是 石油 产品 ) ， 应 该 
让 病人 喝 水 或 牛奶 之 类 的 液体 以 稀释 毒药 。 对 于 其 他 毒物 ， 要 驱 哎 。 但 对 于 酸 、 碱 或 石油 产品 
不 能 驱 呕 。 如 果 病 人 神志 不 清 或 惊 原 ， 则 不 要 喝 水 类 液体 ， 也 不 要 驱 哎 。 

编写 一 个 程序 ， 计算 给 定 两 点 形成 的 直线 斜率 。 程 序 应 该 检查 确保 所 提供 的 两 点 包含 的 是 数字 ， 
且 一 点 不 能 规定 两 次 。 垂 线 的 斜率 为 无 穷 大 。 

不 等 边 三 角形 的 三 边 不 相等 。 等 腰 三 角形 有 两 条 边 相 等 。 等 边 三 角形 的 三 条 边 相 等 。 编 写 程序 ， 
当 给 定形 成 三 角形 的 三 个 点 时 ,判断 该 三 角形 的 类 型 。 程 序 应 该 考虑 可 能 的 舍 人 误差 (假如 两 
边 长 之 差 小 于 0.00001， 则 认为 这 两 条 边 相 等 )。 用 下 列 三 角形 测试 你 的 程序 。 

(a) 给 定 3 点 : (0, 0), (2, 4) 和 (6，0)。 

(b) 给 定 3 点 : (, 2), (4, 5 和 (7，2)。 

(c) 给 定 3 点 : (0, 0), (3, 5.196152) 和 (6, 0). 

编写 一 个 程序 求解 Hanoi 塔 问题 : 将 一 个 测 标 处 的 一 组 环 移 到 另 一 个 测 标 处 ， 移 动 过 程 中 不 能 
将 大 环 压 在 小 环 之 上 。 人 允许 你 使 用 3 个 测 标 ， 环 的 数量 应 该 作为 程序 的 输入 。 初 始 状态 时 ， 所 
有 的 环 在 第 一 个 测 标 处 ， 这 些 环 从 下 到 上 按 从 大 到 小 的 顺序 堆放 。 初 始 目标 是 将 所 有 的 环 从 第 
一 个 测 标 移 至 第 三 个 测 标 。 

编写 程序 确定 使 下 列 加 密 算法 正确 的 字母 值 。 每 一 个 H、O、C、U、S、P、R、E 和 工 惟一 对 
应 于 0~9 中 的 一 个 数字 。 H: 

HOCUS 


+ POCUS 
= PRESTO 


编写 一 个 程序 ， 对 投资 互动 基金 给 出 意见 。 程 序 的 输出 应 该 指出 投资 的 比例 : 有 固定 收入 的 存 
款 ， 指 主要 投资 于 债券 和 优先 股 的 资金 ， 和 股票 资金 ， 指 高 风险 高 可 能 收益 的 资金 。 根 据 投资 
者 对 各 种 问题 的 回答 ， 通 过 对 投资 者 愿意 承担 的 风险 大 小 记分 来 确定 投资 比例 。 如 果 投 资 者 不 
超过 29 岁 ， 则 分 数 加 4; 若 在 30 一 39 之 间 ， 则 加 3; AE 40 一 49 之 间 ， 则 加 2; AE 50 一 59 
之 间 ， 则 加 1; 若 在 60 岁 和 60 岁 以 上 ， 则 加 0。 若 投资 者 还 有 0 一 9 年 才 退 体 ， 则 加 0; 还 有 10 
一 14 年 , 则 加 1; 还 有 1S~19 年 , 则 加 2; 还 有 20~24 年 ， 则 加 3; 还 有 25 年 或 25 年 以 上 ， 
则 加 4。 若 投资 者 愿意 经 历 的 损失 只 有 $% 或 更 少 ， 则 分 数 加 0; 若 愿 意 在 6% 一 10% 之 间 ， 则 
加 1; 车 愿意 在 11% 一 15% 之 间 ， 则 加 2; 若 愿 意 在 16% 或 更 多 ， 则 加 3。 如 果 投 资 者 对 投资 很 
有 经 验 、 对 股票 市 场 很 了 解 ， 则 分 数 加 4; 若 经 验 和 了 解 程度 一 般 ， 则 加 2; 若 没有 这 方面 的 经 
验 和 知识 ， 则 加 0。 假 如 投资 者 对 可 能 的 高 回报 愿意 承担 高 风险 ， 则 分 数 加 4; 若 只 愿意 承担 部 
分 风险 ， 则 加 2; 若 愿 意 承担 很 小 的 风险 ， 则 加 0。 如 果 投 资 者 认为 按 他 /她 的 目前 收入 和 财产 
将 达到 他 /她 的 退休 目标 ， 则 分 数 加 4; 若 可 能 会 达到 有 目标 ， 则 加 2; 若 不 大 可 能 达到 目标 ， 则 
加 0。 若 最 后 的 分 数 为 20 分 以 上 ， 则 100% 的 投资 都 应 该 在 股票 资金 上 ; 若 为 16 一 20 分 ， 则 
80% 在 股票 上 ，20% 在 有 固定 收入 的 存款 上 ; 若 为 11~15 分 ， 则 60% 在 股票 上 ，40% 在 有 固定 
收入 的 存款 上 ; 若 为 6 一 10 分 ， 则 40% 在 股票 上 ，60% 在 有 固定 收入 的 存款 上 ; 若 为 0~5 分 ， 
则 20% 在 股票 上 ，80% 在 有 固定 收入 的 存款 上 。 

修改 习题 7.12 中 的 程序 ， 使 关于 星 (stars) 的 信息 用 事实 表示 。 程 序 的 输出 应 该 有 相同 的 顺 
F: 先 列 出 全 部 有 指定 光谱 级 的 星星 ， 再 是 全 部 有 指定 光度 的 星星 ， 最 后 是 既 有 指定 的 光谱 级 
又 有 指定 的 光度 以 及 指定 的 从 地 球 到 这 些 星星 的 光 年 数 距离 的 星星 。 





第 9 章 ”模块 化 设计 、 执 行 控制 和 规则 效率 


9.1 概述 


本 章 主要 介绍 一 些 CLIPS 特性 ， 这 些 特性 有 利于 专家 系统 的 开发 和 维护 。 自 定义 模板 属性 允许 其 
槽 值 的 增强 值 约束 。 当 装 人 一 条 规则 时 ， 自 定义 模板 约束 能 检测 出 阻止 规则 的 LHS 不 匹配 的 语义 错 
误 。 本 章 利用 优先 级 ， 一 种 确定 规则 优先 次 序 的 方法 和 代表 控制 知识 流程 的 事实 ， 展 示 控 制 CLIPS 程 
序 运行 的 技术 。 除 此 之 外 ， 本 章 也 探讨 了 自 定义 模块 (defmodule) 结构 ， 这 种 自 定义 模块 结构 允许 知 
识 库 分 块 ， 以 提供 一 个 更 明确 的 能 控制 系统 执行 的 方法 。 本 章 还 介绍 了 许多 提高 基于 规则 的 专家 系统 
效率 的 技巧 ， 这 里 专家 系统 使 用 的 是 Rete 模式 匹配 算法 。 在 解释 Rete 算法 之 前 ， 将 讨论 需要 一 个 有 效 
的 模式 匹配 算法 的 原因 。 同 样 ， 也 将 讨论 一 些 更 加 有 效 地 编写 规则 的 技巧 。 


9.2 自 定 义 模板 属性 


当 要 定义 自 定 义 模 板 槽 时 ，CLIPS 提供 了 许多 种 能 被 规定 的 槽 属性 ， 这 些 属 性 通过 提供 强大 的 类 
型 功能 和 约束 检查 ， 达 到 协助 开发 和 维护 专家 系统 的 目的 。 可 以 定义 槽 中 的 允许 类 型 和 值 。 对 于 数字 
值 ， 数 的 允许 范围 可 以 规定 。 多 权 (Multislots) 也 可 以 规定 它们 所 能 包含 字段 的 最 小 和 最 大 值 。 最 后 ， 
当 assert 命令 中 没有 槽 的 具体 说 明 时 ， 默 认 属性 可 以 为 其 提供 默认 槽 值 。 


类 型 属性 


类 型 属性 (type attribute) 定义 了 槽 中 的 数据 类 型 。 说 明 类 型 属性 的 一 般 格式 为 : (type < type 
specification > ) ， 其 中 < type-specification > 可 以 是 ? VARIABLE， 或 者 是 --- 个 或 几 个 符号 ， SYMBOL, 
STRING, LEXEME, INTEGER, FLOAT, NUMBER, INSTANCE-NAME, INSTANCE-ADDRESS, 
INSTANCE, FACT-ADDRESS, EXTERNAL-ADDRESS, WRH? VARIABLE， 则 该 槽 允许 使 用 任 
何 数据 类 型 (这 也 是 所 有 槽 的 默认 属性 )。 如 果 使 用 一 种 或 几 种 符号 类 型 说 明 ， 则 该 槽 就 限于 这 几 种 类 
型 之 一 。 类 型 说 明 LEXEME 代表 SYMBOL 和 STRING 这 两 种 类 型 。 同 样 ， 类 型 说 明 NUMBER 代表 
INTEGER 和 FLOAT 这 两 种 类 型 说 明 。 类 型 说 明 INSTANCE 代表 INSTANCE-NAME 和 INSTANCE- 
ADDRESS 这 两 种 类 型 。 

下 面 的 自 定义 模板 person 中 ， 限 制 存 于 name 槽 的 值 为 字符 ， 并 限制 age MAA WER: 


(deftemplate person 
(multislot name (type SYMBOL)) 
(slot age (type INTEGER) )) 


一 旦 已 经 定义 自 定义 模板 ，CLIPS 就 会 自动 对 任何 槽 的 属性 实施 限制 。 例 如 ， 假 定 将 符号 four 赋 
值 给 age fH, MAA 4 去 赋值 ， 就 会 出 现 以 下 错误 : 
CLIPS> (assert (person (name Fred Smith) 
(age four))) 


[CSTRNCHK1) A literal slot value found in the 
assert command does not match the allowed types 
for slot age. 

CLIPS> 


CLIPS 也 会 检查 约束 于 规则 LHS 和 RHS 中 的 变量 的 一 致 性 。 例 如 ， 让 我 们 假定 有 一 条 规则 :不 
论 他 (或 她 ) 何 时 生日 ， 都 要 更 新 他 的 age 槽 。 指 出 一 个 人 已 计生 日 的 控制 事实 的 自 定义 模板 如 下 : 


(deftemplate had-a-birthday 
(siot name (type STRING) }) 


在 以 上 所 举 的 两 个 自 定义 模板 中 的 name MABE ARB), RA BR Le BK BI name WR 
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EWR, 如 下 所 示 : 


CLIPS> 

(defrule update-birthday 
?£1 <- (had-a-birthday (name ?name)) 
?£2 <- (person (name ?name) (age ?age)) 
=> 
(retract ?f1) 
{modify ?£2 (age (+ ?age 1))})})H 


[RULECSTR1] Variable ?name in CE #2 slot name has 
constraint conflicts which make the pattern 
unmatchable. 


ERROR: 

(defrule MAIN: :update-birthday 
?fl <- (had-a-birthday (name ?name) ) 
?f2 <- (person (name ?name) (age ?age)) 
=> 
(retract ?f1) 
(modify ?£2 (age (+ ?age 1)))) 

CLIPS> 


事实 had-a-birthday 的 name FAYE SFE, MAE person 的 name 槽 必须 是 一 个 字符 。 不 可 能 用 
变量 ? name 来 同时 满足 这 两 种 不 同类 型 的 约束 条 件 ， 因 而 ， 规 则 的 LHS 永 不 会 满足 。 


静态 和 动态 约束 检查 


CLIPS 提供 两 级 约束 检查 。 第 一 级 是 静态 约束 检查 (static constraint checking)， 它 是 通过 CLIPS 
解释 一 个 表达 或 结构 的 意义 来 默认 执行 的 。 这 种 检查 通过 使 用 类 型 属性 在 上 面 的 违反 约束 的 例子 中 得 
到 说 明 。 静 态 约束 检查 可 以 通过 调用 函数 set-static-constraint-checking 并 将 符号 FALSE 传递 给 它 来 使 之 
失效 。 相 反 ， 使 用 符号 TRUE 调用 该 函数 会 激活 静态 约束 检查 。 该 函数 的 返回 值 是 前 一 个 状态 值 〈 如 
果 前 一 次 关闭 了 检查 功能 ， 则 其 值 为 符号 FALSE; 否则 ， 为 符号 TRUE)。 你 可 以 知道 静态 约束 检查 
的 当前 状态 ， 方 法 是 调用 get-static-constraint-checking 函数 〈 当 静态 约束 检查 在 起 作用 时 ， 它 返回 符号 
TRUE; 和 否则， 返回 符号 FALSE). 

在 分 析 阶 段 ， 不 是 总 能 知道 所 有 的 约束 错误 。 举 个 例子 : 在 下 面 的 create-person 规则 中 ， 变 量 ? 
age 和 ? name 可 约束 到 一 - 些 非法 值 上 : 

(defrule create-person 

(printout t "What is your name? ") 
(bind ?name (explode$ {readline))) 
(printout t "What is your age? ") 


{bind ?age (read) ) 
(assert (person (name ?name) (age ?age)))) 


readline 函数 用 于 输入 一 个 人 的 完整 姓名 ， 它 是 字符 型 的 。 然 后 explode $ 函数 把 它 变 成 一 个 可 放 在 
name 槽 中 的 多 字段 值 。read 函数 用 于 输入 一 个 人 的 年 龄 ， 该 值 存 放 于 age 槽 中 。 对 于 这 两 个 待 输入 值 ， 
可 能 会 接受 到 无 效 的 值 。 例 如 : 符号 four 可 能 输入 为 某 人 的 年 龄 ， 如 下 显示 : 


CLIPS> (reset) 

CLIPS> (run) 

What is your name? Fred Smith- 
What is your age? four 

CLIPS> (facts) 


f£-0 {initial-fact) 

f-1 (person (name Fred Smith) (age four)) 
For a total of 2 facts. 

CLIPS> 


请 注意 ， 关 于 Fred Smith 的 同一 个 事实 person， 此 前 引起 了 约束 冲突 而 没有 添加 到 事实 表 中 去 ， 
现在 却 添 加 到 事实 表 中 去 了 。 这 是 因为 CLIPS 的 第 二 级 约束 检查 一 一 动态 约束 检查 (dynamic con- 
straint checking) ， 在 默认 状态 是 关闭 的 。 动 态 约束 性 检查 是 当 事 实 确实 被 声明 时 才 对 该 事实 执行 检查 
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的 ， 因 而 ， 能 检查 出 在 语法 检查 阶段 所 不 能 检查 出 来 的 错误 。 

动态 约束 检查 可 以 通过 函数 set-dynamic-constraint-checking 来 激活 或 使 它 失 去 作用 ， 也 可 以 用 功能 
函数 get-dynamic-constraint-checking function 来 确定 动态 约束 检查 的 当前 状态 。 在 已 激活 动态 约束 检查 
的 情况 下 ， 以 下 说 明 如 何 解 决 约束 冲突 。 在 下 面 的 例子 中 ，Fred Smith 的 事实 person 仍然 被 添加 到 事 
实 表 中 ,但 检测 到 了 约束 冲突 ， 并 终止 了 规则 的 执行 。 


CLIPS> (set-dynamic-constraint-checking TRUE). 
FALSE 

CLIPS> (reset) 

CLIPS> (run) 

What is your name? Fred Smith! 

What is your age? four 


[CSTRNCHK1] Slot value (Fred Smith) found in fact 
f-1 does not match the allowed types for slot age. 
[PRCCODE4] Execution halted during the actions of 
defrule create-person. 

CLIPS> (facts) 


£-0 {initial-fact) 

f-1 (person (name Fred Smith) (age four)) 
For a total of 2 facts. 

CLIPS> 


允许 值 属性 (The Allowed Value Attributes) 


CLIPS 除了 利用 类 型 属性 来 限制 能 被 允许 的 类 型 之 外 ， 还 允许 你 为 特定 的 类 型 规定 一 系列 的 允许 
值 。 例 如 ， 如 果 一 个 gender 槽 被 添加 到 自 定义 模板 person 中 ， 那 么 ， 该 槽 允许 的 符号 就 被 限制 为 male 
或 者 female: 


{deftemplate person 
(multislot name (type SYMBOL) ) 
(slot age (type INTEGER) ) 
(slot gender (type SYMBOL) 
{allowed-symbols male female))) 


CLIPS 总 共 提 供 了 8 种 不 同 的 允许 值 属性 : alowed-symbols, allowed-strings, allowed-lexemes, al- 
lowed-integers, allowed-floats, allowed-numbers, allowed-instance-names 和 allowed-values。 每 一 种 属性 后 
面 应 紧 跟着 ? VARIABLE (这 意味 着 对 于 一 个 已 被 确定 的 数据 类 型 任何 值 都 是 合法 的 ), 或 者 紧 跟着 带 
allowed- 前 缀 的 一 系列 类 型 值 。 例 如 ， 属 性 allowed-lexemes 后 应 紧 跟着 ? VARIABLE 或 者 紧 跟 着 一 系列 
符号 或 字符 串 。 权 的 允许 值 默 认 属 性 为 (allowed-values ? VARIABLE). 

注意 ， 人 允许 值 属性 并 没有 限制 槽 的 允许 类 型 。 例 如 ，(allowed-symbols male female) 并 不 会 限制 模 
gender 的 类 型 为 一 个 符号 。 它 仅仅 是 指出 ， 当 档 gender 的 值 为 一 个 符号 时 ， 它 只 能 是 以 下 两 个 取 值 之 
一 ; 或 者 是 male， 或 者 是 female。 如 果 删 除 属性 (type SYMBOL)， 则 任何 字符 串 、 整 数 或 者 浮 点 数 都 
FEAR gender 的 合法 取 值 。 

人 允许 值 属性 可 用 于 完全 将 槽 的 允许 值 集合 限制 在 一 个 规定 的 列表 中 。 例如 ， 按 如 下 方式 改变 自 定 
义 模 板 person 将 有 效 地 限制 槽 gender 的 允许 类 型 只 为 符号 : 


(deftemplate person 
(multislot name (type SYMBOL) ) 
(slot age (type INTEGER) } 
(slot gender (allowed-values male female))) 


范围 属性 


范围 属性 (range attribute) 允许 对 槽 的 最 小 值 和 最 大 值 进行 说 明 。 其 一 般 格式 为 (range < lower- 
limit> ，<upperlimit>)， 其 中 ，<lower-limnit> 和 < upper-limit> 的 取 值 可 以 是 ”VARIABLE 或 者 是 
一 个 数值 。< lower-limit> 项 指 槽 所 允许 的 最 小 值 ，< upper-limit > 项 指 槽 所 允许 的 最 大 值 -?” VARI- 
ABLE 指出 没有 最 小 或 最 大 值 的 情况 (BURT? VARIABLE 是 放 在 <jowerlimit> 还 是 放 在 < upper-lim- 
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it> 的 位 置 )。 例 如 ， 自 定义 模板 person 中 权 age 可 以 修改 为 不 允许 负数 置 于 age HT: 


(deftemplate person 
(multislot name (type SYMBOL} } 
(slot age (type INTEGER) (range 0 ?VARIABLE) ) ) 


如 果 我 们 愿意 假定 没有 人 能 活 得 超过 125 岁 ， 则 范围 属性 可 以 改 为 (range 0 125)。 正 如 允许 值 属 
人 性 一 样 ， 范 围 属性 并 没有 限制 构 值 的 类 型 为 数字 型 。 它 仅仅 是 指出 ， 当 槽 值 是 数字 时 ， 槽 的 允许 数值 
只 限制 在 指定 的 范围 。 槽 的 范围 属性 的 默认 值 为 (range? VARIABLE ? VARIABLE). 


基数 性 属性 


基数 性 属性 (cardinality attribute) 允许 对 存 于 一 个 多 槽 (multislot) 中 的 值 规定 最 小 值 和 最 大 值 。 
其 一 般 格 式 为 (cardinality <lower-limit> < upper-limit> )， 其 中 ，< lower-limit > 和 < upper-limit > 可 
以 是 ? VARIABLE， 也 可 以 是 一 个 正 整数 。< lower-limit> 指 出 该 权 所 允许 的 最 小 值 。< upper-limit > 
指出 该 槽 所 允许 的 最 大 值 。” VARIABLE 表示 没有 最 小 值 或 没有 最 大 值 (这 取决 于 ? VARIABLE 是 放 
在 <jowerlimit> 还 是 放 在 < upperlimit> 位 置 )。 对 于 一 个 多 槽 ， 其 默认 属性 为 〈cardinality ? VARI- 
ABLE ? VARIABLE)。 下 面 的 自 定义 模板 可 用 于 代表 公司 的 排球 队 ， 排 球 队 必须 有 6 个 队员 ， 还 可 以 
有 两 个 替补 队员 。 请 注意 ， 类 型 、 人 允许 值 和 范围 属性 可 用 于 这 个 多 构 中 的 每 一 个 值 。 


(deftemplate volleyball-team 
{slot name (type STRING) ) 
(multislot players (type STRING) 
(cardinality 6 6)) 
(multislot alternates (type STRING) 
(cardinality 0 2))) 


默认 属性 


在 前 面 几 章 中 ， 已 声明 的 每 一 个 自 定 义 模板 事实 中 ， 对 于 每 个 槽 总 有 一 个 明确 的 值 。 如 果 在 assert 
命令 中 没有 明确 规定 取 值 ， 则 自动 有 一 个 规定 的 值 存 于 覃 中， 这 通常 是 非常 方便 的 。 默 认 属 性 〈de- 
fault attribute) 就 是 这 样 一 个 规定 的 默认 值 。 其 一 般 格 式 为 (default < default-specification > )。 其 中 ， 
<<default-specification> 可 以 是 ? DERIVE.? NONE、 一 个 表达 式 〈 对 于 一 个 单字 段 槽 )、0 或 者 是 更 多 
的 表达 式 〈 对 于 一 个 多 字段 槽 )。 

如 果 用 ? DERIVE 来 规定 默认 属性 ， 就 会 得 到 一 个 能 满足 所 有 槽 属性 的 值 。 如 果 没 有 对 槽 的 默认 
属性 进行 规定 ， 它 就 会 假定 其 默认 属性 为 〈default ? DERIVE)。 对 于 一 个 单字 段 权 而 言 ， 这 意味 着 将 
选 出 一 个 值 来 满足 槽 的 类 型 、 范 围 和 人 允许 值 属性 。 对 于 一 个 多 字段 槽 而 言 ， 产 生 的 黑 认 值 将 是 一 串 相 
AME, SULA RAMMED RITA (默认 是 0)。 如 果 有 一 个 或 多 个 值 被 包含 在 一 个 多 字段 槽 的 默 
认 值 中 ,那么 ， 每 一 个 值 都 会 满足 该 槽 的 类 型 、 范 围 和 人 允许 值 属性 。 以 下 是 一 个 例子 : 


CLIPS> (clear) 
CLIPS> 
(deftemplate example 
{slot a) 
(slot b (type INTEGER) ) 
(slot c (allowed-values red green blue) ) 
(miltislot d) 
(multislot e (cardinality 2 2) 
(type FLOAT) 
(range 3.5 10.0)))4 
CLIPS> (assert (example) )— 


<Fact-0> 
CLIPS> (facts) 
f-0 (example (a nil) 
(b 0) 
(c red) 
(a) 
(e 3.5 3.5)) 


For a total of 1 fact. 
CLIPS> 
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CILPS 仅仅 保证 槽 的 导出 (derived) 默认 属性 满足 槽 的 约束 属性 。 也 就 是 说 ， 你 的 程序 不 能 依赖 
于 置 于 槽 中 的 特定 导出 值 (例如 ， 上 例 中 槽 a 中 的 符号 nil 和 槽 b 中 的 整数 0)。 如 果 你 的 程序 依靠 于 一 
个 特定 的 默认 值 ， 那 么 ， 你 应 该 使 用 一 个 有 默认 属性 的 表达 式 (很 快 就 会 解释 默认 属性 )。 

如 果 在 默认 属性 中 规定 的 是 ? NONE， 则 当 事 实 被 声明 时 ， 必 须要 给 该 槽 提供 一 个 值 。 也 就 是 说 ， 
没有 默认 值 。 例 如 : 


CLIPS> (clear) — 
CLIPS> 
(deftemplate example 

(slot a) 

{slot b (default ?NONE)))~— 
CLIPS> (assert (example) )— 
(TMPLTRHS1] Slot b requires a value because of its 
(default ?NONE) attribute. 
CLIPS> (assert (example (b 1)))W 
<Fact-0> 
CLIPS> (facts) 

f-0 (example (a nil) (b 1)) 
For a total of 1 fact. 
CLIPS> 


如 果 … 个 或 多 个 表达 式 使 用 默认 属性 ， 则 在 对 该 槽 作 语法 检查 时 ， 会 求 出 表达 式 的 值 。 而 且 ， 若 
在 assert 命令 中 没有 规定 槽 值 ， 则 其 值 会 存 于 该 槽 中 。 对 于 一 个 单字 段 槽 而 言 ， 其 默认 属性 必须 包含 
一 个 确切 的 表达 式 。 如 果 在 一 个 多 字段 楼 的 默认 属性 中 没有 规定 表达 式 ， 则 一 个 长 度 为 0 的 多 字段 会 
被 用 于 该 默认 值 。 否 则 ， 所 有 表达 式 的 返回 值 就 会 成 为 一 组 形成 一 个 多 字段 值 。 以 下 是 使 用 带 默 认 属 
性 的 表达 式 的 例子 : 


CLIPS> (clear) J 
CLIPS> 
(deftemplate example 
(slot a (default 3)) 
(slot b (default (+ 3 4))) 
(multislot c (default a b c)) 
(mltislot a (default (+ 1 2) (+ 3 4))))H 
CLIPS> (assert (example) )-! 
<Fact-0> 
CLIPS> (facts) 
£-0 (example (a 3) (b 7) (c abe) (dad 3 7) 
For a total of 1 fact. 
CLIPS> 


默认 动态 属性 


当 使 用 默认 属性 时 ， 在 对 槽 定义 作 语 法 检查 时 ， 模 的 默认 值 就 被 确定 了 。 当 然 ， 也 可 以 在 声明 将 
要 使 用 默认 值 的 事实 时 ， 产 生 此 默认 值 。 这 就 需要 用 到 默认 -动态 属性 (default-dynamic attribute)。 当 
利用 默认 -动态 属性 的 槽 值 没有 在 assert 命令 中 规定 时 ， 就 会 求 出 在 默认 -动态 属性 中 规定 的 表达 式 的 
值 ， 并 将 其 用 于 该 槽 值 。 

举 个 例子 来 说 ， 让 我 们 考虑 这 样 一 个 问题 : 在 经 过 一 定 的 时 间 后 删除 事实 的 问题 。 首 先 ， 我 们 需 
要 某 种 方法 知道 事实 是 什么 时 候 声 明 的 。CLIPS 中 提供 的 time 函数 可 用 于 标记 事实 创建 的 时 间 ， 还 会 
返回 经 过 的 秒 数 ， 这 是 一 个 依赖 于 系统 的 参考 时 间 。 但 就 其 本 身 而 言 ， 时 间 函 数 返回 的 时 间 值 并 没有 
什么 意义 。 它 仅仅 是 在 和 时 间 函 数 返回 的 其 他 值 作 比 较 时 才 有 用 。 下 面 举 个 自 定义 模板 的 例子 。 它 包 
含 一 个 creation-time 槽 和 一 个 value 槽 ， 分 别 用 于 保存 事实 创建 的 时 间 和 与 该 事实 相 联系 的 值 。 


(deftemplate data 
(slot creation-time (default-dynamic (time))) 
(slot value) ) 


当 每 一 个 data 事实 被 创立 、 而 没有 规定 creation-time MAT, time 函数 就 会 被 调用 、 其 时 间 值 会 被 
保存 于 creation-time 槽 中 。 
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CLIPS> (watch facts). 
CLIPS> (assert (data (value 3))) 


==> £-0 (data (creation-time 12002.45) 
(value 3)) 

<Fact-0> 

CLIPS> (assert (data (value b))) 

==> f-1 (data ({creation-time 12010.25) 
(value b))} 

<Fact~-1> 

CLIPS> (assert (data (value c)))-~! 

==> f£-2 (data (creation-time 12018.65) 
(value c)) 


<Fact-2> 
CLIPS> 


假定 事实 creation-time 已 经 被 声明 ， 并 被 其 他 规则 更 新 以 包含 当前 系统 时 间 ， 以 下 规则 将 撤销 还 
不 到 1 分 钟 之 前 才 被 声明 的 事实 data: 


(defrule retract-data-facts-after-one-minute 
?f <- (data (creation-time ?t1)) 
(current-time ?t2) 

(test (> (- ?t2 ?tl) 60)) 
=> 
(retract ?f£)) 


注意 ， 将 规则 retract-data-facts-after-one-minute 改变 为 下 列 形式 不 会 产生 相同 的 结果 。 


(defrule retract-data-facts-after-one-minute 
?ft <- (data (creation-time ?t1)) 
(test (> (- (time) ?t1) 60)) 
=> 
(retract ?f)) 


只 在 第 一 模式 与 data 事实 匹配 时 ， 在 test CE 中 的 time 函数 才 会 被 检查 。 由 于 返回 值 和 creation-time $ 
的 值 大 致 有 相同 的 时 间 ， 因 此 ， 该 规则 不 会 得 到 满足 。CLIPS 不 会 连续 重新 检查 test CE 以 决定 它们 是 
否 得 到 一 个 不 同 的 值 ， 只 有 当前 面 的 CE 发 生变 化 时 ， 它 们 才 会 被 检查 。 这 就 是 为 什么 在 规则 的 原始 
版 本 中 current-time 事实 必须 更 新 ，test CE 才 会 被 周期 性 地 重新 检查 的 原因 。 


冲突 槽 属性 
CLIPS 不 允许 你 规定 槽 的 冲突 属性 。 例 如 ， 槽 的 默认 值 必须 满足 槽 的 类 型 、allowed-……、 范 围 和 


基数 性 属性 。 如 果 规 定 allowed-…… 属性 ， 则 与 属性 相关 联 的 类 型 必须 满足 槽 的 类 型 属性 。allowed- 
numbers, allowed-integers 和 allowed-floats 属性 可 以 不 与 范围 属性 一 起 使 用 。 


9.3 优先 级 


至 此 ， 控 制 事实 一 直 用 来 间接 控制 程序 的 执行 。CLIPS 提供 2 种 具体 的 技术 来 控制 规则 的 执行 : 
优先 级 (salience) 和 模块 (modules)。 用 模块 来 控制 规则 的 执行 将 在 本 章 稍 后 讨论 。 关 键 词 优先 级 的 
使 用 人 允许 规则 的 优先 级 被 明确 地 规定 。 通 常 ， 议 程 像 堆栈 一 样 起 作用 。 也 就 是 说 ， 在 议程 中 最 近 的 激 
活 ， 将 会 最 先 触发 。 不 管 规则 何 时 被 增加 ， 优 先 级 都 允许 更 为 重要 的 规则 停留 在 议程 的 顶部 。 在 议程 
中 ， 较 低 的 优先 级 规则 被 推 到 更 高 的 优先 级 规则 之 下 。 

优先 级 可 以 设 定 为 一 个 数字 值 ， 范 围 从 最 极 小 的 - 10 000 到 最 大 的 10 000。 如 果 程 序 员 没 有 在 程 
序 中 明确 指定 规则 的 优先 级 ， 则 CLIPS 假定 其 优先 级 值 为 0。 注意 ， 优 先 级 值 0 是 介 于 最 大 和 最 小 优 
先 级 值 之 间 的 。 优 先 级 为 0 并 不 意味 着 该 规则 没有 优先 级 、 而 是 意味 着 它 有 一 个 中 间 的 优先 级 。 一 个 
最 近 激活 的 规则 被 置 于 议程 中 优先 级 相同 或 更 低 的 所 有 规则 之 前 、 优 先 级 更 高 的 所 有 规则 之 后 。 

优先 级 的 应 用 之 一 是 迫使 规则 以 连续 的 方式 触发 。 考 虑 下 列 规则 集 ， 规 则 中 没有 说 明 优先 级 : 

(defrule fire~first 


(priority first) 
=> 
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(printout t "Print first" crlf)) 


{defrule fire-second 

(priority second) 

=> 

(printout t "Print second" crlf)) 
(defrule fire-third 

(priority third) 

=> 

(printout t "Print third" crif) 


规则 触发 的 顺序 取决 于 满足 规则 LHS 中 CE 的 事实 被 声明 的 顺序 。 例 如 ， 如 果 输入 这 些 规则 ， 则 
下 列 命令 将 产生 下 面 所 显示 的 输出 ; 


CLIPS> (unwatch all) 

CLIPS> (reset) -| 

CLIPS> (assert (priority first)) 
<Fact-1> 

CLIPS> (assert (priority second) ) 
<Fact-2> 

CLIPS> (assert (priority third))- 
<Fact-3> 

CLIPS> (run) 

Print third 

Print second 

Print first 

CLIPS> 


注意 输出 语句 的 顺序 。Print third 先 被 打印 ， 然 后 是 Print second， 最 后 是 Print first。 第 一 个 事实 
(priority first) 激活 规则 fire-first。 当 第 二 个 事实 被 声明 时 ， 它 激活 栈 中 置 于 规则 fire-first 之 上 的 规则 
fire-second。 最 后 ， 第 三 个 事实 被 声明 ， 它 激活 的 规则 fire-third 位 于 栈 中 的 规则 fire-second 之 上 。 

在 CLIPS 中 ， 被 不 同 模式 激活 的 有 相同 优先 级 的 规则 按 事 实 的 堆栈 顺序 来 区 分 优先 级 次 序 。 议 程 
中 规则 的 触发 顺序 是 自 堆栈 的 顶部 开始 往 下 进行 。 因此， 由 于 fire-third 规则 在 栈 的 顶部 ， 所 以 ， 它 被 
首先 触发 ;其 次 是 规则 fire-second; 最 后 是 规则 fire-first。 如 果 声 明 事实 的 顺序 颠倒 过 来 ， 那 么 ， 规 则 
和 触发 的 顺序 也 将 颠倒 过 来 。 这 可 从 下 列 输出 中 看 到 : 


CLIPS> (reset) 

CLIPS> (assert (priority third) )-i 
<Fact-1> 

CLIPS> (assert (priority second) )-! 
<Fact-2> 

CLIPS> (assert (priority first)) 
<Pact-3> 

CLIPS> (run) 

Print first 

Print second 

Print third 

CLIPS> 


重要 的 一 点 是 ， 如 果 二 条 或 更 多 的 具有 相同 优先 级 的 规则 被 同一 个 事实 激活 ， 那 么 ， 将 无 法 保证 
规则 以 何 种 顺序 置 于 议程 中 。 

优先 级 能 用 来 迫使 规则 按 顺序 fire-first、fire-second、fire-third 触发 ， 而 不 管 激活 的 事实 被 声明 的 顺 
序 。 这 可 以 通过 说 明 优 先 级 的 值 来 完成 : 


(defrule fire-first 
(declare (salience 30)) 
(priority first) 
=> 
(printout t "Print first" crif)) 


(defrule fire-second 
{declare (salience 20)) 
(priority second) 
=> 
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(printout t "Print second" crlf)) 


(defrule fire-third 
(declare (salience 10)) 
(priority third) 
=> 
(printout t "Print third" crlf)) 


不 管事 实 被 声明 的 优先 级 顺序 如 何 ， 该 议程 总 是 按 相同 的 顺序 排列 。 在 声明 优先 级 事实 后 执行 
agenda 命 令 将 产生 下 列 输出 ; 


CLIPS> (reset) 

CLIPS> (assert (priority Secona) 
(priority first) 
(priority third) ) 

<Fact-3> 

CLIPS> (agenda) 

30 fire-first: f-2 

20 fire-second: f-1 

10 fire-third: f£-3 

For a total of 3 activations. 

CLIPS> 


注意 ， 优 先 级 值 是 如 何 重新 排列 议程 中 规则 的 优先 级 的 。 当 运行 程序 时 ， 规 则 触发 的 顺序 将 总 是 : 


fire-first 、fire-second 、fire-third。 


9.4 ”阶段 和 控制 事实 


基于 规则 的 专家 系统 的 最 精确 概念 是 ， 每 当 它 们 可 适用 时 ， 规 则 按 机 率 执行 。 然 而 ， 大 多 数 专家 
系统 有 某 种 程序 特点 。 例 如 ，Sticks 程序 ， 它 有 不 同 的 规则 可 适用 ， 只 是 取决 于 它 是 人 类 的 意图 还 是 
计算 机 的 愿望 。 此 程序 的 控制 由 表明 轮 到 顺序 的 事实 进行 处 理 。 这 些 控制 事实 允许 有 关 程序 的 控制 
结构 的 信息 ， 幅 入 到 领域 知识 的 规则 中 。 这 有 一 个 缺点 :关于 规则 的 控制 知识 与 关于 如 何 玩 游戏 的 知 
识 相互 混淆 起 来 。 对 于 Sticks 程序 来 说 这 不 是 主要 的 缺点 ， 因 为 此 程序 很 小 。 但 是 ， 对 于 那些 有 成 百 
或 成 千 条 规则 的 程序 来 说 ， 混 涌 领 域 知识 和 控制 知识 会 使 程序 的 开发 和 维护 成 为 主要 间 题 。 

例如 ， 考 虑 一 个 系统 〈 如 电子 设备 ) 的 故障 检测 、 隔 离 和 恢复 的 
问题 。 故 障 检测 是 指 识别 电子 设备 工作 不 正常 的 过 程 。 隔 离 是 指 找 出 
使 设备 产生 故障 的 设备 元 件 的 过 程 。 恢 复 是 指 决定 排除 故障 (如 果 可 
能 的 话 ) 必须 采取 的 步 又 的 过 程 。 一 般 地 ， 对 这 种 类 型 的 问题 ， 专 家 
系统 必须 有 一 些 规则 确定 是 否 出 现 了 故障 、 有 一 些 规则 隔离 故障 的 原 
因 、 还 要 有 -- 些 规则 决定 如 何 从 故障 中 恢复 。 然 后 ， 继 续 循环 。 图 
9.1 给 出 了 这 种 类 型 系统 的 控制 流 的 例子 。 

在 此 系统 中 ， 实 现 控制 流 至 少 有 4 种 方法 。 前 3 种 应 用 优先 级 的 
方法 将 在 这 里 讨论 。 第 4 种 应 用 模块 的 方法 将 在 本 章 稍 后 讨论 。 

第 一 种 实现 控制 流 的 方法 是 直接 将 控制 知识 能 入 规则 中 。 例 如 ， 
(故障 ) 检测 规则 包括 指示 隔离 阶段 应 在 何 时 开始 的 规则 。 对 每 个 组 
的 规则 将 给 予 一 个 模式 ， 以 指示 在 哪 一 个 阶段 该 规则 可 以 被 应 用 。 此 图 9.1 故障 检测 、 隔 离 和 
项 技术 有 两 个 缺点 ; 第 一 个 缺点 已 提 到 过 ， 控 制 知 识 嵌入 到 领域 知识 。 恢复 问题 的 不 同 阶段 
规则 中 ， 难 以 理解 ， 第 二 个 缺点 是 ， 一 个 阶段 完成 的 时 间 不 是 都 易于 决定 。 一 般 地 ， 只 有 所 有 其 他 的 
规则 已 触发 ， 才 可 写 出 一 个 合用 的 规则 。 

第 二 种 方法 是 应 用 优先 级 来 组 织 规则 ， 如 图 9.2 所 示 。 这 种 方法 也 有 两 个 缺点 : 第 一 ， 控 制 知识 
仍 被 嵌入 到 使 用 优先 级 的 规则 中 ; 第 二 ， 这 种 方法 并 不 保证 正确 的 执行 顺序 。 检 测 规则 总 是 先 于 隔离 
规则 触发 。 但 是 ， 当 隔离 规则 开始 触发 时 ， 它 们 可 能 会 引起 检测 规则 被 激活 ， 并 由 于 检测 规则 有 更 高 
的 优先 级 而 立即 触发 。 
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在 控制 执行 流 的 过 程 中 ， 第 三 种 也 是 更 好 的 一 种 方法 是 ， 将 控制 知识 与 领域 知识 分 离 ， 如 图 9.3 
所 示 。 用 这 种 方式 ， 每 个 规则 被 给 予 一 个 控制 模式 ， 指 示 它 的 适用 阶段 。 然 后 ， 写 出 控制 规则 以 便 在 


不 同时 期 转换 控制 ， 如 下 所 示 ， 


(defrule detection-to-isolation 
(declare (salience -10)) 
?phase <- (phase detection) 
=> 
(retract ?phase) 

(assert (phase isolation))) 


(defrule isolation-to-recovery 
(declare (salience -10)) 
?phase <- (phase isolation) 
=> 
{retract ?phase) 

{assert (phase recovery) ) ) 


(defrule recovery-to-detection 
(declare (salience -10)) 
?phase <- (phase recovery) 
=> 
{retract ?phase) 

(assert (phase detection) )) 


专家 知识 








4 检测 规则 恢复 规则 





隔离 规则 















隔离 优先 级 控制 知识 
图 9.2 优先 级 在 不 同 阶段 的 分 配 图 9.3 专家 知识 和 控制 知识 的 分 离 


适用 于 特定 阶段 的 每 一 条 规则 都 被 给 予 一 个 控制 模式 ， 此 模式 用 于 确认 适当 的 控制 事实 已 出 现 。 


例如 ， 恢复 规则 可 能 会 是 这 样 ， 


(defrule find-fault-location-and-recovery 
(phase recovery) 
(recovery-solution switch-device 
?replacement on) 
=> 
(printout t "Switch device" ?replacement "on" 
erlf)) 


优先 级 层次 (salience hierarchy) 用 于 对 专家 系统 的 优先 级 值 进行 
描述 。 优 先 级 层次 中 的 每 一 级 都 和 一 组 特定 的 规则 相对 应 ， 这 组 规则 
的 成 员 都 有 相同 的 优先 级 。 如 果 检 测 、 隔 离 和 恢复 3 条 规则 都 被 给 予 
一 个 为 0 的 默认 优先 级 ， 那 么 ， 优 先 级 层次 可 示 于 图 9.4。 ERR, 
当 事 实 (phase detection) 在 事实 表 中 时 ， 规 则 detection-to-isolation 将 
在 议程 中 。 既 然 它 有 比 检测 规则 更 低 的 优先 级 ， 因 此 ， 在 所 有 的 检测 
规则 有 机 会 触发 之 前 ， 它 将 不 会 触发 。 下 列 输出 给 出 了 之 前 的 3 个 控 
制 规则 的 运行 范例 : 


CLIPS> (reset) 

CLIPS> (assert (phase detection) ) 
<Fact-1> 

CLIPS> (watch rules). 

CLIPS> (run 10) 


专家 规则 
控制 规则 


图 9.4 使 用 专家 规则 和 
控制 规则 的 优先 级 层次 


优先 级 
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FIRE 1 detection-to-isolation: 上 -1 
FIRE 2 isolation-to~recovery: f-2 
FIRE 3 recovery-to-detection: f£-3 
FIRE 4 detection-to~isolation: f-4 
FIRE 5 isolation-to~recovery: f-5 
FIRE 6 recovery-to-detection: f-6 
FIRE 7 detection-to~isolation: f-7 
FIRE 8 isolation-to-recovery: f-8 
FIRE 9 recovery-to-detection: f-9 
FIRE 10 detection-to-isolation: f-10 


CLIPS> 


注意 ， 控 制 规则 仅仅 按 顺 序 逐 个 触发 ， 因 为 没有 领域 知识 规则 在 任何 阶段 被 应 用 。 如 果 有 ， 则 领 
域 知识 规则 将 在 适当 的 阶段 应 用 于 已 激活 的 规则 。 
利用 自 定义 事实 结构 和 一 条 规则 ， 可 以 将 前 面 的 控制 规则 更 一 般 地 写成 : 


(deffacts control-information 
(phase detection) 
(phase-after detection isolation) 
(phase-after isolation recovery) 
(phase-after recovery detection) } 
(defrule change-phase 
(declare (salience -10)) 
?phase <- (phase ?current-phase) 
(phase-after ?current-phase ?next-phase) 
=> 
(retract ?phase) 
(assert (phase ?next-phase) )) 


或 者 ， 利 用 一 系列 循环 执行 的 阶段 将 它们 写 为 : 


(deffacts control-information 
(phase detection) 
(phase-sequence isolation recovery detection) } 


{defrule change-phase 
(declare (salience ~10)) 
?phase <- (phase ?current-phase) 
?list <- (phase-sequence ?next-phase 
$?other-phases) 
=> 
(retract ?phase ?list) 
(assert (phase ?next-phase) ) 
(assert (phase-sequence ?other-phases 
?next-phase) )) 


附加 层次 能 很 容易 地 添加 到 优先 级 层次 中 去 。 图 9.5 有 2 个 附加 层 4 
次 。 约束 规则 表示 检测 非法 或 多 余 状 态 的 规则 ， 这 些 状 态 在 专家 系统 中 [区 和 出 有] 
可 能 会 出 现 。 例 如 ， 一 个 给 人 安排 各 种 任务 的 专家 系统 可 能 会 得 到 一 份 
违反 约束 的 计划 表 。 约 束 规则 不 是 允许 较 低 的 优先 级 规则 继续 在 计划 表 [e] 
中 起 作用 ， 而 是 立即 删除 该 计划 表 中 的 冲突 。 另 一 例子 是 ， 用 户 可 能 答 th 
ARATE NH BERANE, TSE [aaa | 
个 非法 值 。 约 束 规 则 可 用 来 解决 这 些 冲突 。 

在 图 9.5 中 反映 的 询问 规则 代表 了 那些 询问 用 户 一 些 特定 问题 以 协 | e] 
助 专家 系统 作出 回答 的 规则 。 这 些 规则 比 专家 规则 的 优先 级 低 ， 因 为 询 
问 用 户 可 由 专家 规则 解决 的 问题 是 不 合适 的 。 这 样 ， 只 有 当 专家 规则 不 mos 4 层 优先 级 层次 
能 得 到 更 多 信息 时 才 使 用 询问 规则 。 


95 优先 级 属性 的 误 用 


优先 级 属性 虽然 是 一 个 强 有 力 的 控制 执行 工具 ， 但 它 容易 被 滥用 。 
特别 是 那些 基于 规则 的 程序 设计 初学 者 ， 因 为 优先 级 属性 能 让 它们 明确 地 控制 执行 过 程 。 这 更 像 它们 
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常用 的 过 程 程序 设计 ， 其 中 的 语句 按 顺序 执行 。 

过 多 地 使 用 优先 级 属性 会 导致 质量 低劣 的 程序 。 基 于 规则 程序 的 主要 优点 是 程序 员 不 必 担 心 控制 
执行 的 过 程 。 一 个 设计 良好 的 基于 规则 的 程序 有 一 个 自然 的 执行 模式 ， 它 允许 推理 机 指导 规则 以 最 佳 
方法 触发 。 

优先 级 属性 应 主要 作为 确定 规则 触发 顺序 的 机 制 。 这 意味 着 ,一 条 存 于 议程 中 的 规则 通常 最 后 才 
触发 。 当 模式 能 用 来 描述 选择 的 条 件 时 ， 优 先 级 属性 就 不 应 作为 从 一 组 规则 中 选择 一 条 规则 的 方法 ， 
也 不 应 作为 “快速 解决 方法 (quick fix)” 来 使 规则 按 合适 的 顺序 触发 。 

通常 ， 任 何在 规则 中 使 用 的 优先 级 值 都 应 对 应 着 专家 系统 优先 级 层次 中 的 一 层 。 认 为 优先 级 值 的 
范围 为 ~10 000~10 00 是 容易 引起 误解 的 。 编 写 专家 系统 程序 极 少 需要 7 个 以 上 的 优先 级 值 ; 大 部 
分 编写 良好 的 专家 系统 需要 的 优先 级 值 不 会 超过 3 个 或 4 个 。 对 于 一 个 大 型 专家 系统 ， 强 烈 推 荐 程序 
员 最 好 利用 模块 控制 执行 的 流程 (下 一 节 讨论 )， 并 且 优 先 级 值 不 超过 2 个 或 3 个 。 

下 面 是 怎样 避免 使 用 优先 级 的 例子 。 该 例 示 出 一 套 简单 的 规则 ， 该 规则 建议 在 一 字 棋 游戏 中 标记 
哪些 方 格 。 这 些 规则 按 它们 被 使 用 的 顺序 列 出 。 


IF a winning square is open, THEN take it. 
IF a blocking square is open, THEN take it. 
IF a square is open, THEN take it. 


如 果 事 实 choose-move 表明 应 该 选 移动 ， 且 事实 open-square 表明 一 个 成 功 (winning). 1# (block- 
ing)、 中 间 (middle), #848 (comer) 或 边界 (side) 方 格 是 否 开放 ， 则 下 面 规则 将 选择 合适 的 移动 ， 


(defrule pick-to-win 
(declare (salience 10)) 
?phase <- (choose-move) 
(open-square win) 
=> 
(retract ?phase) 
(assert (move-to win))) 


(defrule pick-to-block 
(declare (salience 5)) 
?phase <- (choose-move) 
(open-square block) 
=> 
(retract ?phase) 

(assert (move-to block})}) 


(defrule pick-any 
?phase <- (choose-move) 
(open-square ?any&corner |middle| side) 
=> 
(retract ?phase) 
(assert (move-to ?any))) 


注意 ， 如 果 超 过 一 种 方 格 可 选用 ， 则 全 部 3 条 规则 都 将 放 在 议程 中 。 当 规则 pick-to-win, pick-to- 
block 或 pick-any 三 者 之 一 被 触发 时 ， 撤 销 控制 事实 将 移 走 议程 中 的 其 他 规则 。 这 三 条 规则 就 是 这 样 紧 
密 联系 的 。 如 果 不 整体 理解 而 想 单独 理解 每 条 规则 的 意图 是 不 可 能 的 。 这 违反 了 基于 规则 编程 的 基本 
观点 : 一 条 规则 应 尽 可 能 多 地 代表 一 种 表达 完全 的 启发 式 方法 。 在 这 种 情况 下 ， 优 先 级 属性 用 来 表达 
一 些 规则 间 的 固有 关系 ， 而 这 种 关系 能 利用 这 些 规则 中 的 附加 模式 加 以 明确 描述 。 不 使 用 优先 级 属性 ， 
这 些 规则 可 改写 为 : 


(defrule pick-to-win 
?phase <- {choose-move) 
(open-square win) 
=> 
{retract ?phase) 
(assert (move-to win))}) 


(defrule pick-to-block 
?phase <- (choose-move) 
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(open-square block} 

(net (open-square win)) 
=> 

(retract ?phase) 

(assert (move-to block))) 


(defrule pick-any 
?phase <- (choose-move) 
(open-square ?any&corner |middle|side) 
{not (open-square win)})} 
(not (open-square block) ) 
=> 
(retract ?phase) 
(assert (move-to ?any))) 


把 附加 模式 添加 到 规则 上 明确 说 明了 规则 可 用 的 条 件 。 规 则 间 紧 密 的 相互 作用 被 切断 ， 从 而 允许 
这 些 规 则 有 机 会 生效 。 重 写 这 些 规 则 也 可 证 明 原 来 的 启发 式 方法 可 以 表达 得 更 清楚 。 


IF a winning square is open, THEN take it. 
IF a blocking square is open, and 
a winning square is not open, THEN take it. 
IF a corner, middle, or side square is open, and 
a winning square is not open, and 
a blocking square is not open, THEN take it. 


9.6 自 定义 模块 结构 


直到 现在 ， 所 有 的 自 定义 规则 、 自 定义 模板 和 自 定义 事实 都 只 包含 在 单个 工作 空间 中 。CLIPS 用 
自 定义 模块 (defmodule) 结构 通过 定义 不 同 的 模块 来 划分 知识 库 。 这 种 结构 的 基本 语法 是 ; 


(defmodule <module-name> [<comment>]) 


CLIPS 定义 的 模块 默认 名 叫 作 MAIN 模块 。 在 前 面 的 例子 中 ， 我 们 已 看 到 MAIN 模块 名 伴随 着 漂 
亮 的 结构 打印 描述 而 出 现 。 例 如 ， 


CLIPS> (clear) 
CLIPS> (deftemplate sensor (slot name) )-! 
CLIPS> (ppdeftemplate sensor) -| 
(deftemplate MAIN: : sensor 

(slot name) ) 
CLIPS> 


在 名 称 MAIN: : sensor 中 的 符号 “: :” 叫 做 模块 分 隔 符 (module separator)。 模 块 分 隔 符 的 右边 是 
结构 的 名 称 。 分 隔 符 的 左边 是 包含 于 结构 中 的 模块 名 。 因 为 所 有 至 此 被 定义 的 结构 全 部 默认 地 放 在 
MAIN 模块 中 ， 所 以 ，MAIN 模块 名 和 漂亮 的 结构 打印 描述 一 起 出 现 。 

既然 我 们 知道 了 自 定义 模块 的 语法 格式 ， 我 们 就 能 定义 新 的 模块 。 将 前 面 的 故障 检测 系统 作为 例 
F, 我 们 将 定义 对 应 于 DETECTION (检测 )、ISOLATION (隔离 ) 和 RECOVERY (RS) 三 个 阶段 
的 模块 。 


CLIPS> (defmodule DETECTION) -| 
CLIPS> (defmodule ISOLATION) .| 
CLIPS> (defmodule RECOVERY) 


一 旦 我 们 定义 了 除 MAIN 模块 之 外 更 多 的 模块 ， 则 “新 结构 应 放 到 哪个 模块 中 ”的 问题 也 就 出 现 
了 。 默 认 地 ，CLIPS 把 新 定义 的 结构 放 到 当前 模块 中 。 当 CLIPS 开始 启动 或 被 清除 时 ， 当 前 模块 自动 
置 为 MAIN 模块 。 这 样 ， 在 前 面 几 个 例子 中 ， 因 为 只 有 一 个 模块 且 它 是 当前 模块 ， 所以， 所 有 定义 的 
结构 都 放 到 了 MAIN 模块 中 。 

无 论 什么 时 候 定义 一 个 新 模块 ，CLIPS 都 把 该 新 建 的 模块 置 为 当前 模块 。 因 为 上 面 例子 中 最 后 定 
义 的 是 RECOVERY 模块， 因此， 它 就 是 当前 模块 ， 新 定义 的 规则 将 置 于 其 中 。 


CLIPS> (defrule examplel =>). 

CLIPS> (ppdefrule exampiel) 

(defrule RECOVERY: :examplel 
=>) 

CLIPS> 
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结构 所 在 的 模块 可 在 结构 名 中 详细 说 明 。 在 结构 名 中 ， 首 先 规定 模块 ， 接 着 是 模块 分 隔 符 ， 最 后 
是 结构 名 。 


CLIPS> (defrule ISOLATION: :example2 #>).! 
CLIPS> (ppdefrule example?) .| 
(defrule ISOLATION: : example2 
=>) 
CLIPS> 


当 在 结构 名 中 指定 了 模块 名 时 ， 当 前 模块 则 被 改变 。 通 过 函数 get-current-module 可 以 确定 当前 模 
块 。 这 个 函数 不 需要 参数 ， 返 回 当 前 模块 名 。 函 数 set-current-module 是 用 来 改变 当前 模块 的 。 它 需要 
一 个 参数 : 新 的 当前 模块 名 。 它 返回 前 一 次 的 当前 模块 名 。 


CLIPS> (get-current-module) 

ISOLATION 

CLIPS> (set-current-module DETECTION) 
ISOLATION 

CLIPS> 


命令 中 指定 模块 


默认 地 ， 大 部 分 CLIPS 的 结构 命令 只 对 包含 于 当前 模块 的 结构 有 效 。 例如， 如 果 当 前 模块 是 DE- 
TECTION， 那 么 ， 命 令 list-defrules 将 不 产生 输出 ， 因 为 该 模块 没有 包含 规则 : 


CLIPS> (list-defrules) 
CLIPS> 


如 果 想 看 包含 在 ISOLATION 模块 中 的 defrules， 我 们 可 以 设置 当前 模块 为 ISOLATION， 然 后 执 
行 另 一 list-defrules 命令 。 
CLIPS> (set-current-module ISOLATION) — 


DETECTION 

CLIPS> (list-defrules) 
example2 

For a total of 1 defrule. 
CLIPS> 


RH , list-defrules 命令 接受 一 个 模块 名 作为 一 个 可 选 参数 ， 该 参数 说 明 列 出 哪个 模块 的 规则 


CLIPS> (list-defrules RECOVERY) -! 
examplel 

For a total of 1 defrule. 

CLIPS> 


如 果 符 号 x 作为 list-defrules 的 参数 ,那么 将 列 出 所 有 模块 的 规则 。 模 块 名 先 于 规则 列 出 。 


CLIPS> (list-defrules *) 
MAIN: 
DETECTION: 
ISOLATION: 
examp] e2 
RECOVERY : 
examplel 
For a total of 2 defrules. 
CLIPS> 


List-deftemplates 和 list-deffacts 的 功能 与 list-defrules 命令 相似 。Show-breaks 命令 显示 指定 模块 中 的 
断 点 。 这些 函 数 的 语法 结构 为 ; 


(iist-defrules [<module-name>]) 
(list-deftemplates [<module-name>] ) 
(list-deffacts [<module-name>] ) 
(show-breaks [<module-name>] ) 


对 指定 结构 的 操作 允许 说 明 一 个 模块 名 。 例 如 ， 如 果 没 有 指明 模块 名 ，ppdefrule 只 搜索 当前 模块 : 


CLIPS> (ppdefrule example2) 
(defrule ISOLATION: :example2 
=>) 
CLIPS> (ppdefrule examplel).! 
{PRNTUTIL1] Unable to find defrule examplel. 
CLIPS> 
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Example2 规则 能 以 漂亮 打印 格式 显示 因为 它 包 含 在 ISOLATION 模块 里 面 ， 但 是 example! 规则 不 
在 ISOLATION 里 面 ， 所 以 ppdefrule 命令 找 不 到 它 。 
可 以 在 结构 名 之 前 ， 模 块 分 隔 符 之 后 设置 所 要 找 的 模块 名 。 例 如 ; 


CLIPS> (ppdefrule RECOVERY: :examplel) 
(defrule RECOVERY: :examplel 

=>) 
CLIPS> 


在 不 同 模块 中 可 能 存在 同名 的 结构 。 在 结构 名 前 使 用 模块 说 明 可 以 在 命令 中 将 两 者 区 分 开 来 : 


CLIPS> (defrule DETECTION: :examplel =>)J 
CLIPS> (list-defrules *) 
MAIN: 
DETECTION: 
examplel 
ISOLATION: 
example2 
RECOVERY: 
examplel 
For a total of 3 defrules. 
CLIPS> (ppdefrule RECOVERY: : example1) 
(defrule RECOVERY: :examplel 
=>) 
CLIPS> (ppdefrule DETECTION: :example1) J 
(defrule DETECTION: :examplel 
=>) 
CLIPS> 


于 列 命令 允许 模块 说 明 为 结构 名 的 一 部 分 : ppdefrule, undefrule, ppdeftemplate, undeftemplate, 


ppdeffacts, undeffacts, matches, refresh, remove-break, set-breako 


9.7 输入 、 输 出 事实 


你 已 经 学 会 了 通过 把 结构 置 于 不 同 模 块 中 来 划分 结构 的 方法 。 事 实 本 身 也 可 以 这 样 划 分 。 被 声明 
的 事实 会 自动 与 定义 的 对 应 自 定义 模板 联系 上 。 例 如 : 

CLIPS> 

{deftemplate DETECTION: :fault 


{slot component) ) .) 
CLIPS> (assert (fault (component A)))- 


<Fact-0> 

CLIPS> (facts) 

£-0 (fault (component A)) 
For a total of 1 fact. 

CLIPS> 


(deftemplate ISOLATION: :possible-failure 
{slot component) ) 
CLIPS> (assert (possible-failure (component B)))-~! 


<Fact-1> 
CLIPS> (facts) 
f-1 (possible-failure (component B)) 


For a total of 1 fact. 
CLIPS> (set-current-module DETECTION). 


ISOLATION 

CLIPS> (facts) 

£-0 (fault (component A)) 
For a total of 1 fact. 

CLIPS> 


注意 ,在 ISOLATION 模块 中 ， 列 出 的 惟一 事实 是 possible-failure 事实 ， 它 对 应 的 自 定义 模板 包含 
在 此 ISOLATION 模块 中 。 在 DETECTION 模块 中 的 fault 事实 也 同样 如 此 。 

facts 命令 与 list-defrules 及 其 类 似 命令 一 样 ， 能 接受 一 个 模块 名 作为 可 选 参数 。facts 命令 的 语法 结 
HA: 


(facts [<module-name>] 
[<start> [<end> (<maximum>]]]) 
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和 list-defrules 命令 一 样 ， 指 明 一 个 模块 名 只 会 列 出 包含 于 该 模块 中 的 事实 。 如 果 用 符号 x 来 代替 模块 
名 ， 则 会 列 出 所 有 事实 : 


CLIPS> (facts DETECTION) J 

£-0 (fault (component A) ) 

For a total of 1 fact. 

CLIPS> (facts ISOLATION) 

f-1 (possible~failure (component B)) 
For a total of 1 fact. 

CLIPS> (facts RECOVERY) .| 

CLIPS> (facts *)J 


£-0 {fault (component A)) 

f-1 {(possible-failure (component B)) 
For a total of 2 facts. 

CLIPS> 


自 定义 模板 结构 (和 所 有 使 用 该 自 定义 模板 的 事实 ) 不 像 自 定义 规则 和 自 定义 事实 结构 ， 它 可 以 
与 其 他 模块 共享 。 事 实 被 包含 其 自 定义 模板 的 模块 所 “拥有 ”， 但 该 模块 能 输出 (export) 与 事实 相关 
联 的 自 定义 模板 ， 这样， 使 得 该 事实 和 所 有 使 用 该 自 定义 模板 的 事实 都 可 以 为 其 他 模块 可 见 (visible). 
但 仅 输出 自 定义 模板 使 某 个 事实 为 另 一 个 模块 可 见 是 不 够 的 。 为 了 能 使 用 在 另 一 个 模块 中 定义 的 自 定 
义 模板 ,一 个 模块 还 必须 输入 (import) 该 自 定义 模板 的 定义 。 

输出 自 定义 模板 的 模块 必须 在 自 定义 模块 中 使 用 输出 属性 。 输 出 属性 必须 使 用 下 面 格式 之 一 : 


{export ?ALL) 

(export ?NONE) 

(export deftemplate ?ALL) 

(export deftemplate ?NONE) 

{export deftemplate <deftemplate-name>+)} 


第 一 种 格式 从 一 个 模块 中 输出 所 有 可 输出 的 结构 。 在 本 书目 前 为 止 所 讨论 的 结构 中 ， 只 有 自 定 义 
模板 是 可 以 输出 的 。 在 CLIPS 中 某 些 其 他 例 程 和 面向 对 象 程序 结构 也 可 以 输出 ， 其 输出 方式 在 第 10 
章 和 第 11 章 中 讨论 。 第 二 种 格式 表示 没有 结构 输出 ， 这 是 自 定义 模块 的 默认 情况 。 第 三 种 格式 表明 ， 
模块 中 的 所 有 自 定义 模板 都 输出 。 对 于 本 书 中 讨论 的 结构 来 说 ， 这 与 第 一 种 格式 是 相同 的 。 类 似 地 ， 
第 四 种 格式 表明 ， 没 有 自 定 义 模板 结构 输出 。 第 二 和 第 四 种 格式 主要 用 来 使 通过 模块 输出 的 结构 能 够 
明确 地 加 以 说 明 。 最 后 ， 第 五 种 格式 提供 了 通过 模块 输出 的 自 定义 模板 的 一 个 指定 列表 。 输 出 属性 能 
够 在 模块 定义 中 多 次 使 用 ， 以 对 不 同 种 类 的 输出 结构 进行 规定 。 但 在 我 们 所 讨论 的 范围 内 ， 自 定义 模 
板 是 唯一 的 可 输出 结构 ， 因 此 ， 没 有 必要 使 用 多 个 输出 属性 语句 。 

输入 属性 也 有 以 下 5 种 可 能 的 格式 : 


{import <module-name> ?ALL) 

{import <module-name> ?NONE) 

{import <module-name> deftemplate ?ALL) 

(import <module-name> deftemplate ?NONE) 

(import <module-name> deftemplate 
<deftemplate-name>+) 


以 上 格式 除了 指定 的 结构 被 输入 之 外 ， 其 他 含义 与 对 应 的 输出 格式 相同 。 此 外 ， 从 其 中 输入 结构 
的 模块 必须 加 以 说 明 。 与 输出 属性 一 样 ， 自 定义 模块 也 可 以 有 多 种 输入 属性 。 

一 种 结构 ， 在 输入 列表 中 说 明 它 之 前 ， 必 须 定义 之 ; 但 在 输出 列表 中 说 明 结构 之 前 ， 则 不 必定 义 
(在 输出 列表 中 说 明 结 构 的 目的 是 将 结构 置 于 模块 中 ， 此 模块 必须 要 定义 。 所 以 ,实际 上 在 输出 结构 的 
模块 定义 之 前 是 不 可 能 定义 结构 的 )。 由 于 这 种 限制 ， 两 种 模块 互相 从 对 方 输入 是 不 可 能 的 (例如: 如 
果 模 块 A 从 模块 B 输 入 ， 则 模块 B 不 可 能 从 模块 A 中 输入 )。 

为 了 说 明 输 入 和 输出 事实 的 含义 ， 我 们 可 以 假设 模块 RECOVERY 从 模块 DETECTION 中 输入 
fault 自 定 义 模板 、 从 模块 ISOLATION 输入 possible-failure 自 定义 模板 。 和 其 他 结构 不 同 ， 自 定义 模块 
一 旦 被 定义 后 则 不 可 以 被 重 定义 。 因 此 ， 为 了 改变 其 输入 和 输出 属性 ， 一 个 清除 命令 必须 要 先 发 出 。 
不 过 有 一 种 情况 是 不 受 此 限制 的 ， 即 预定 义 的 MAIN 模块 可 以 重新 定义 一 次 以 包括 不 同 的 输入 和 输出 
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BE (MAIN 模块 的 默认 值 是 不 输入 不 输出 任何 东西 )。 注 意 ，MAIN 模块 的 默认 定义 并 不 输出 自 定义 
模板 initial-fact。 回 忆 第 8 章 ， 我 们 知道 这 种 (initial-fact) 模式 在 某 种 情况 下 (例如 ， 当 第 一 个 CE 是 
一 个 not CE BY) 被 加 入 到 规则 的 LHS 中 。 如 果 这 样 一 条 规则 置 于 不 从 MAIN 模块 中 输入 initial-fact 自 
定义 模板 的 模块 中 ， 则 不 可 能 激活 此 规则 。 而 且 注 意 ， 你 在 定义 规则 的 时 候 不 会 收 到 错误 信息 ， 因 为 
这 种 (initial-fact) 模式 会 导致 在 当前 模块 中 建立 一 个 隐 式 initial-fact 自 定义 模板 。 

至 于 DETECTION, ISOLATION 和 RECOVERY 模块 及 其 自 定 义 模板 (都 应 该 在 cear 命令 后 输 
A) 的 全 新 定义 如 下 ; 


{defmodule DETECTION 
(export deftemplate fault))} 


(deftemplate DETECTION: : fault 
(slot component) ) 
(defmodule ISOLATION 
(export deftemplate possible-failure) } 


(deftemplate ISOLATION: :possible-failure 
{slot component) ) ) 


(defmodule RECOVERY 
(import DETECTION deftemplate fault) 
(import ISOLATION deftemplate possible- 
failure) ) 


有 了 这 些 定 义 ， 就 可 以 声明 在 DETECTION 和 RECOVERY 模块 中 的 fault 事实 以 及 声明 在 ISO- 
LATION 和 RECOVERY 中 的 possible-failure 事实 : 


CLIPS> 
(deffacts DETECTION: : start 
(fault (component A))) 
CLIPS> 
(deffacts ISOLATION: :start 
(possible-failure (component B))).! 
CLIPS> 
(deffacts RECOVERY: :start 
(fault (component C)) 
(possible-failure (component D)))-~ 
CLIPS> (reset) 
CLIPS> (£acts DETECTION) 
£-0 {fault (component A) ) 
£-2 (fault (component C)) 
For a total of 2 facts. 
CLIPS> (facts ISOLATION). 
f-1 {(possible-failure (component B)) 
£-3 (possible~failure (component D)) 
For a total of 2 facts. 
CLIPS> (facts RECOVERY) — 


£-0 (fault (component A) ) 

f-1 (possible-failure (component B)) 
£-2 (fault {component C)) 

£-3 (possible-failure (component D)) 
For a total of 4 facts. 

CLIPS> 


注意 ,模块 DETECTION 和 RECOVERY 均 可 以 看 到 由 它们 之 中 任意 一 个 声明 的 fault 事实 。 同 样 
也 适用 于 由 模块 ISOLATION 和 RECOVERY 声明 的 possible-failure 事实 。 


9.8 模块 与 执行 控制 


除了 控制 模块 能 输入 和 输出 哪些 自 定 义 模板 外 ， 自 定义 模块 结构 还 能 用 来 控制 规则 的 执行 。 每 个 
在 CLIPS 中 定义 过 的 模块 都 有 自己 的 议程 ， 而 不 只 是 一 个 总 体 议 程 中 的 一 部 分 。 通 过 选择 模 芯 议程 来 
执行 规则 可 以 进行 执行 控制 。 例 如 ， 以 下 自 定义 规则 可 全 部 由 上 例 中 声明 的 fault 和 possible-failure 事实 
激活 : 
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(defrule DETECTION: :rule-1 
(fault (component A | C)) 
=>) 


(defrule ISOLATION: :rule-2 
(possible-failure (component B | D)) 
=>) 


(defrule RECOVERY: :rule-3 
(fault (component A | C)) 
(possible-failure (component B | D)) 
=>) 


如 果 agenda 命令 是 在 这 些 规 则 调 人 后 发 出 的 ， 则 由 于 定义 的 最 后 规则 是 放 人 RECOVERY 模块 而 
显示 该 模块 的 议程 : 


CLIPS> (get-current-module). 

RECOVERY 

CLIPS> (agenda) 

0 rule-3: f- 

0 rule-3: f- 

0 rule-3: f- 
f- 
4 


H wrew 


0 

0 

2 
0 rule-3: 2 
For a total of 
CLIPS> 


与 list-defrules 和 facts 命令 一 样 ，agenda 命令 也 接受 一 个 可 选 参数 ， 该 参数 指示 列 出 哪个 模块 的 
议程 


, 王 - 
f- 
,£- 
f- 

activations. 


CLIPS> (agenda DETECTION) 

0 rule-1: £-2 

0 rule-1: £-0 

For a total of 2 activations. 
CLIPS> (agenda ISOLATION) 

0 rule-2: f-3 

0 rule-2: f-1 


For a total of 


2 activations. 





CLIPS> (agenda RECOVERY) .| 


0 rule-3: £-0,£-3 
0 rule-3: £-0,f-1 
0 rule-3: f-2,f-3 
0 rule-3: f£-2,f£-1 
For a total of 4 activations. 
CLIPS> (agenda *)-~! 
MAIN: 
DETECTION: 
0 rule-1: £-2 
0 rule-1: f-0 
ISOLATION: 
0 rule-2: f-3 
0 rule-2: f-1 
RECOVERY: 
0 rule-3: f-0,f-3 
0 rule-3: f-0,f-1 
0 rule-3: £-2,f-3 
0 rule-3: £-2,f-1 
For a total of 8 activations. 
CLIPS> 
Focus 命令 


此 时 ， 有 3 个 不 同 议程 中 的 规则 ， 那 么 ， 当 发 出 一 个 run 命令 时 会 发 生 什 么 情况 呢 ? 


CLIPS> (unwatch all)t 
CLIPS> (watch rules) 
CLIPS> (run) 

CLIPS> 


没有 规则 触发 ! 除 当前 模块 ， 即 CLIPS 88 FRR ER PA HO fr ch R HT LR A RR 
些 结构 会 受命 令 影响 外 ，CLIPS 还 维护 当前 焦点 (current focus) ， 从 而 决定 在 执行 过 程 中 run 命令 使 用 
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哪个 议程 。reset 和 clear 命令 自动 将 当前 焦点 设 为 MAIN 模块 。 当 前 焦点 在 当前 模块 改变 时 保持 不 变 。 
因此 ， 在 本 例 中 ， 当 发 出 run 命令 后 ， 与 MAIN 模块 相 联系 的 议程 被 用 来 选择 规则 以 便 执 行 。 但 因 该 
议程 为 空 ， 所 以 不 会 触发 任何 规则 。 

focus 命令 可 用 来 改变 当前 焦点 。 其 语法 如 下 : 

(focus <module-name>+) 

在 这 个 简单 的 例子 中 只 规定 一 个 模块 名 ， 当 前 焦点 被 设置 为 指定 的 模块 。 通 过 将 当前 焦点 设 为 模 
块 DETECTION， 然 后 发 出 run 命令 ， 则 在 模块 DETECTION 议程 中 的 规则 将 被 触发 : 


CLIPS> (focus DETECTION) 
TRUE 

CLIPS> (run) 

FIRE 1 rule-1: £-2 
FIRE 2 rule-1: f-0 
CLIPS> 


使 用 focus 命令 不 仅 会 改变 当前 焦点 ， 而 且 会 唤起 当前 焦点 的 前 一 个 值 。 实 际 上 ， 当 前 焦点 就 是 称 
为 焦点 栈 的 堆栈 数据 结构 的 顶点 值 。 无 论 何 时 用 focus 命令 改变 当前 焦点 ， 实 际 上 就 是 将 新 的 焦点 推 至 
焦点 栈 的 顶部 ， 从 而 取代 原 焦点 。 随 着 规则 的 执行 ， 当 前 焦点 的 议程 变 空 时 ， 当 前 焦点 将 从 焦点 栈 中 
弹出 (移出 )， 同 时 另 一 模块 成 为 当前 焦点 。 然 后 ， 规 则 将 按 新 的 当前 焦点 的 议程 执行 ， 直 至 另 一 新 模 
块 成 为 焦点 或 已 无 规则 遗留 在 当前 焦点 的 议程 中 。 规 则 会 一 直 继 续 执行 ， 直 至 在 焦点 栈 中 无 模块 留 下 
或 发 出 halt 命令 为 止 。 

继续 讨论 本 例 ， 先 把 ISOLATION 模块 作为 焦点 、 再 将 RECOVERY 模块 作为 焦点 将 触发 所 有 在 
RECOVERY 模块 的 议程 中 的 规则 ， 紧 接着 又 会 触发 ISOLATION 模块 的 议程 中 的 规则 。list-focus-stack 
命令 可 用 来 显示 焦点 栈 中 的 模块 。 


CLIPS> (focus ISOLATION) -! 


TRUE 

CLIPS> (focus RECOVERY) 
TRUE 

CLIPS> (list-focus-stack) 
RECOVERY 

ISOLATION 

CLIPS> (run) 

FIRE 1 rule-3: £-1,£-4 
FIRE 2 rule-3: f-1,f-2 
FIRE 3 rule-3: £-3,f-4 
FIRE 4 rule-3: £-3,f£-2 
FIRE 5 rule~2: £-4 

FIRE 6 rule-2: £-2 
CLIPS> (list-focus-stack) 
CLIPS> 


用 两 个 focus 命令 来 压 人 ISOLATION 和 RECOVERY 模块 将 导致 RECOVERY 规则 在 ISOLATION 
规则 之 前 执行 。 然 而 ， 当 多 个 模块 在 单个 focus 命令 中 指定 时 ， 这 些 模块 将 从 右 至 左 推 人 焦点 栈 中 。 
例如 : 


CLIPS> (focus ISOLATION RECOVERY) 
TRUE 

CLIPS> (list-focus-stack) J 
ISOLATION 

RECOVERY 

CLIPS> (focus ISOLATION) 
TRUE 

CLIPS> (list-focus-stack) 
ISOLATION 

RECOVERY 

CLIPS> (focus RECOVERY) -! 
TRUE 

CLIPS> (list-focus-stack) J 
RECOVERY 

ISOLATION 

RECOVERY 

CLIPS> 
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注意 ， 同 一 个 模块 可 以 不 只 一 次 出 现在 焦点 栈 中 ， 但 是 ， 压 人 一 个 已 经 是 当前 焦点 的 模块 于 栈 中 
将 不 起 作用 。 


控制 和 检查 焦点 栈 


CLIPS 提供 了 几 个 命令 和 函数 处 理 当前 焦点 和 焦点 栈 。clear-focus-stack 命令 将 所 有 模块 从 焦点 栈 
中 移出 。 而 get-focus 命令 则 返回 当前 焦点 的 模块 名 ， 或 者 ， 当 焦点 栈 为 空 时 返回 符号 FALSE。pop-fo- 
cus 函数 删除 焦点 栈 中 的 当前 焦点 〈 且 返回 模块 名 ， 或 者 当 焦点 栈 为 空 时 返回 符号 FALSE)。get-focus- 
stack 函数 则 返回 包含 在 焦点 栈 中 模块 的 多 字段 值 。 


CLIPS> (get-focus-stack) .| 
(RECOVERY ISOLATION RECOVERY) 
CLIPS> (get-focus)— 
RECOVERY 

CLIPS> (pop-focus).! 
RECOVERY 

CLIPS> (clear~focus-stack) 
CLIPS> (get-focus-stack) 
() 

CLIPS> (get-focus) .| 

FALSE 

CLIPS> (pop-focus) .| 

FALSE 

CLIPS> 


watch 命令 可 以 用 关键 字 focus 作为 参数 ， 以 此 来 监视 焦点 栈 的 变化 : 


CLIPS> (watch focus). 

CLIPS> (focus DETECTION ISOLATION RECOVERY) 
==> Focus RECOVERY 

==> Focus ISOLATION from RECOVERY 
==> Focus DETECTION from ISOLATION 
TRUE 

CLIPS> (run). 

<== Focus DETECTION to ISOLATION 
<== Focus ISOLATION to RECOVERY 
<== Focus RECOVERY 

CLIPS> 


在 run 命令 已 发 出 且 焦点 栈 为 空 的 情况 下 ，MAIN 模块 会 自动 推 人 焦点 栈 。 这 种 特性 主要 是 为 了 
在 程序 结束 后 无 模块 剩余 在 焦点 栈 中 时 ， 为 添加 新 的 激活 而 提供 方便 措施 。 例 如 : 


CLIPS> (clear) 

CLIPS> (watch focus) 

CLIPS> (watch rules) 

CLIPS> (defrule example-1 =>) 
CLIPS> (reset) 

<== Focus MAIN 

==> Focus MAIN 

CLIPS> (run). 

FIRE 1 example-1: £-0 

<== Focus MAIN 

CLIPS> (defrule example-2 =>) 
CLIPS> (agenda) 

0 example-2: f-0 

For a total of 1 activation. 
CLIPS> (list-focus-stack) 
CLIPS> 


规则 example-2 在 议程 中 ， 但 无 模块 于 焦点 栈 中 。 发 出 一 个 run 命令 将 MAIN 模块 推 人 焦点 栈 ， 因 
而 规则 example-2 无 论 如 何 都 可 以 触发 。 


CLIPS> (run) 

==> Focus MAIN 

FIRE 1 example-2: £-0 
<== Focus MAIN 

CLIPS> 
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Return 命令 


正如 在 第 9.4 节 中 讨论 的 那样 ， 用 控制 事实 来 表示 阶段 以 控制 执行 流程 有 一 个 缺点 ， 就 是 在 某 个 
特定 状态 下 不 可 能 触发 某 些 激活 (activation) ， 只 有 退出 该 阶段 ， 然 后 再 回 到 该 阶段 执行 议程 中 剩余 的 
激活 。 这 种 情况 的 发 生 是 由 于 一 旦 表示 阶段 的 控制 事实 被 撤销 ， 则 该 阶段 的 前 面 所 有 激活 将 从 议程 中 
移出 。 当 控制 事实 随后 被 重新 声明 时 ， 此 阶段 所 有 前 面 的 激活 也 将 被 重新 激活 ， 而 不 仅仅 是 重新 激活 
那些 以 前 未 触发 的 激活 〈 当 然 ， 这 是 假定 只 声明 或 只 撤销 该 控制 事实 ， 而 不 是 任何 其 他 事实 )。 

如 果 模 块 用 来 控制 执行 流程 ， 则 可 能 提前 〈 即 ， 在 模块 议程 为 空 之 前 ) 终止 执行 特定 模块 议程 中 
的 激活 。return 命令 可 用 来 立刻 中 止 规则 RHS 的 执行 ， 并 将 当前 焦点 从 焦点 栈 中 移出 〈 因 此 ， 将 执行 
控制 返回 到 焦点 栈 中 的 下 一 个 模块 )。 当 return 命令 在 规则 RHS 中 运用 时 ， 就 不 应 该 传递 参数 给 它 
(在 CLIPS 提供 的 例 程 结构 中 也 可 以 使 用 return 命令 )。 下面 的 例子 可 用 来 解释 返回 命令 的 使 用 : 


CLIPS> (clear) 
CLIPS> 
(defmodule MAIN 
{export deftemplate initial-~fact))W 
CLIPS> 
(defmodule DETECTION 
(import MAIN deftemplate initial-fact))W 
CLIPS> 
(defrule MAIN: : start 
=> 
(focus DETECTION) ) .| 
CLIPS> 
(defrule DETECTION: :example-1 
=> 
(return) 
(printout t "No printout!" crl£))-! 
CLIPS> 
(defrule DETECTION: :example-2 
=> 
(return) 
(printout t "No printout!" erlf)) 
CLIPS> (watch rules) 
CLIPS> (watch focus) 
CLIPS> (reset) 
<== Focus MAIN 
==> Focus MAIN 
CLIPS> (run) 
FIRE 1 start: £-0 
==> Focus DETECTION from MAIN 
FIRE 2 example-1: £-0 
<== Focus DETECTION to MAIN 
<== Focus MAIN 
CLIPS> 


本 例 有 两 点 值得 注意 。 首 先 ， 为 了 用 默认 的 initial-fact 模式 激活 DETECTION 模块 中 的 规则 ， 自 定 
义 模板 initial-fact 必须 从 MAIN 模块 输出 并 由 DETECTION 模块 输入 。 其 次 ， 注 意 retum 命令 将 立刻 
挂 起 规则 的 RHS 的 执行 。printout 命令 (在 return 命令 后 ) 将 不 会 在 example-1 规则 中 执行 (或 ， 不 会 
在 example-2 规则 中 执行 ， 因 为 没有 机 会 触发 )。 注 意 ，return 函数 的 功能 与 pop-focus 命令 类 似 , 但 不 


完全 相同 ， 后 者 从 焦点 栈 中 删除 当前 焦点 ,但 允许 规则 的 RHS 操作 继续 执行 。 若 在 本 例 中 用 后 者 代替 
return 命令 ， 则 当 执 行规 则 example-1 的 操作 时 将 显示 字符 串 “No printout!” 
自动 焦点 特性 


除了 可 以 用 focus 命令 明确 聚焦 到 模块 之 外 ， 当 某 个 模块 中 特定 的 规则 被 激活 时 ， 自 动 聚焦 到 该 模 
块 也 是 可 能 的 。 默 认 状态 下 ， 被 激活 规则 的 模块 是 不 会 自动 被 聚焦 的 。 但 使 用 自动 聚焦 (auto-focus) 
特性 可 以 改变 这 种 情况 。 与 优先 级 属性 一 起 ， 自 动 聚焦 特性 在 declare 语句 中 规定 。 规 定 的 关键 词 auto 
focus 之 后 是 TRUE (使 该 特性 有 效 ) 或 FALSE (使 该 特性 无 效 )。 没 有 必要 为 了 让 模块 中 的 某 些 规则 
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使 用 自动 聚焦 功能 ， 而 使 模块 中 的 所 有 规则 都 有 人 允许 的 自动 聚焦 特性 。 同 样 ， 如 果 规 则 中 使 用 declare 
语句 ， 也 没有 必要 既 宣 布 declare) 优先 级 属性 又 宣布 自动 聚焦 特性 。 下 面 的 例子 说 明了 自动 聚焦 特 
性 的 使 用 : 
CLIPS> (clear) 
CLIPS> 
(defmodule MAIN 
{export deftemplate initial-fact))W 
CLIPS> 
(defmodule DETECTION 
(import MAIN deftemplate initial-fact)) 
CLIPS> 
(defrule DETECTION: : example 
(declare (auto-focus TRUE) ) 
=>) 
CLIPS> (watch focus). 
CLIPS> (reset) 
<== Focus MAIN 
==> Focus MAIN 
==> Focus DETECTION from MAIN 
CLIPS> 


当 发 出 reset 命令 时 ，MAIN 模块 就 会 因 焦点 栈 已 空 而 自动 聚焦 。 例 中 example 规则 被 initial-fact 事 
实 的 声明 激活 。 由 于 对 此 规则 自动 聚焦 特性 已 经 有 效 ， 所 以 ，DETECTION 模块 会 自动 地 被 推 人 焦点 
栈 中 。 自 动 聚焦 特性 对 探测 约束 冲突 的 规则 特别 有 用 。 因 为 该 约束 规则 的 模块 会 立即 成 为 当前 焦点 ， 
因此 ， 当 冲突 出 现时 采取 行动 是 可 能 的 ， 而 不 需要 检测 冲突 的 明确 阶段 。 


替换 阶段 和 控制 事实 


通过 使 用 自 定义 模块 、focus 和 retum 命令 ， 以 及 自动 聚焦 属性 ， 就 可 以 用 更 加 明确 的 机 制 取代 阶 
段 和 控制 事实 的 使 用 ， 从 而 控制 规则 执行 的 流程 。 在 第 9.4 节 里 描述 过 的 控制 执行 的 结构 可 以 用 以 下 
的 结构 来 代替 : 


{defmodule DETECTION) 
(defmodule ISOLATION) 
{defmodule RECOVERY) 


(deffacts MAIN: :control-information 
(phase-sequence DETECTION ISOLATION RECOVERY) ) 


(defrule MAIN: :change-phase 

?list <- (phase-sequence ?next-phase 
$?other-phases) 

=> 

{focus ?next-phase) 

(retract ?list) 

{assert (phase-sequence ?other-phases 
?next-phase) )) 


执行 的 控制 可 以 从 模块 DETECTION 到 模块 ISOLATION 再 到 模块 RECOVERY 进行 ， 然 后 冉 从 
头 重 新 开始 循环 。 在 允许 下 一 个 模块 的 规则 触发 以 前 (除非 发 出 了 return 命令 或 由 于 自动 聚焦 特性 而 
使 一 个 新 的 模块 被 聚焦 )， 每 个 模块 中 的 所 有 规则 都 会 触发 。 ; 


CLIPS> (unwatch all) 

CLIPS> (reset) 

CLIPS> (watch rules) 

CLIPS> {watch focua) 

CLIPS> (run 5) 

FIRE 1 change-phase: f-1 
==> Focus DETECTION from MAIN 
<== Focus DETECTION to MAIN 
FIRE 2 change-phase: f-2 
==> Focus ISOLATION from MAIN 
<== Focus ISOLATION to MAIN 
FIRE 3 change-phase: f-3 
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==> Focus RECOVERY from MAIN 
<== Focus RECOVERY to MAIN 
FIRE 4 change-phase: f-4 
==> Focus DETECTION from MAIN 
<== Focus DETECTION to MAIN 
FIRE 5 change-phase: f-5 
==> Focus ISOLATION from MAIN 
<== Focus ISOLATION to MAIN 
CLIPS> 


9.9 Rete 模式 匹配 算法 


基于 规则 的 的 语言 ， 如 CLIPS, Jess, Eclipse 和 OPS5， 使 用 了 一 种 非常 有 效 的 算法 ， 将 事实 和 规 
则 中 的 模式 相 竞 争 ， 以 确定 哪些 规则 满足 了 它们 的 条 件 。 这 种 算法 称 为 Rete 模式 匹配 算法 (Rete Pat- 
tern-Matching Algorithm) (Forgy 79, Forgy 85, Brownston 85)。 编 写 有 效 的 CLIPS 规则 不 需要 理解 
Rete 算法 。 然 而， 理解 CLIPS 及 其 他 基于 规则 的 语言 中 使 用 的 基本 算法 ， 使 人 们 更 易于 明白 为 什么 用 
这 种 方法 写 规则 会 比 男 一 种 方法 更 有 效 。 

要 明白 为 什么 Rete 算 法 是 有 效 的 ， 可 研究 一 下 通常 将 事实 和 规则 进行 匹配 的 问题 ， 并 接着 考察 不 
那么 有 效 的 其 他 算法 ， 这 是 有 帮助 的 。 图 9.6 示 出 了 Rete 算法 所 提出 的 问题 。 

如 果 匹 配 过 程 只 需 一 次 ， 那 么 这 个 问题 的 解决 方法 就 简单 易 仅 了 。 推 理 机 可 以 检查 每 条 规则 并 搜 
索 一 组 事实 来 决定 规则 的 模式 是 否 已 满足 。 如 果 是 的 话 ， 则 将 此 规则 记 入 议程 中 。 图 9.7 示 出 了 这 一 
方法 。 








图 9.6 模式 匹配 : 规则 和 事实 图 9.7 搜索 事实 的 规则 


然而 ， 在 基于 规则 的 语言 中 ， 匹 配 过 程 不 断 重 复 进 行 。 通 常 ， 事 实 表 在 每 次 执行 中 都 会 被 修改 ， 
添加 新 的 事实 到 事实 表 或 删除 旧 的 事实 。 这 些 改变 可 令 先 前 不 满足 条 件 的 模式 得 到 满足 ， 反 之 亦 然 。 
匹配 问题 因此 成 了 不 断 进 行 的 过 程 。 在 每 次 循环 中 ， 随 着 事实 的 添加 和 删除 ， 必 须 对 已 满足 条 件 的 规 
则 集合 进行 维护 和 更 新 。 

在 每 次 循环 后 ， 令 推理 机 检查 每 条 规则 以 指导 对 事实 的 搜索 ， 从 而 为 解决 这 个 问题 提供 了 简单 直 
接 的 技巧 。 这 种 方法 最 主要 的 缺点 是 速度 太 慢 。 大 多 数 基于 规则 的 专家 系统 都 显示 了 这 种 特征 : 时 间 
FARE (temporal redundancy)。 一 般 地 ， 一 条 规则 的 运行 仅 会 改变 事实 表 中 的 少数 事实 。 即 : 专家 系 
统 中 的 事实 随时 间 改 变 很 慢 。 在 每 次 循环 中 ， 仅 添加 、 删 除了 很 少 一 部 分 事实 ， 所 以 ， 事实 表 中 的 变 
化 一 般 只 影响 很 少 部 分 的 规则 。 因 此 ， 令 规则 推动 对 所 需 事 实 的 搜索 ， 需 要 大 量 不 必要 的 计算 。 这 是 
因为 ， 在 当前 循环 中 ， 大 多 数 规则 所 找到 的 事实 很 可 能 与 上 一 次 循环 所 找到 的 相同 。 图 9.8 示 出 了 这 
种 低 效 的 方法 。 阴 影 部 分 代表 了 对 事实 表 所 做 的 改变 。 正 如 图 9.9 所 显示 的 ， 在 不 断 循 环 中 ， 通 过 记 
住 哪 些 是 已 经 匹配 好 的 ， 然 后 只 计算 那些 刚 添加 或 删除 事实 所 引起 的 必要 变化 ， 从 而 可 以 避免 不 必要 
的 计算 。 规 则 是 不 变 的 ， 而 事实 是 变化 的 ， 所 以 应 是 事实 寻找 相应 的 规则 ， 而 不 是 反 过 来 。 

Rete 模式 匹配 算法 正 是 利用 了 基于 规则 的 专家 系统 所 具有 的 时 间 宛 余 性 。 它 的 实现 是 通过 存储 不 
断 循环 中 匹配 过 程 的 状态 ,并 且 只 重新 计算 在 事实 表 中 发 生 了 变化 、 又 反映 到 本 次 状态 中 的 变化 来 完 
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图 9.8” 当 规则 搜索 事实 时 ， 产 生 不 必要 的 计算 图 9.9 事实 搜索 规则 


成 的 。 也 就 是 说 ， 如 果 在 一 次 执行 周期 中 ， 一 组 模式 找到 3 个 所 需 事 实 中 的 2 个 ,那么 ,在 下 一 周期 
中 ， 就 无 须 对 已 经 找到 的 这 两 个 事实 进行 检查 一 一 只 有 第 3 个 事实 才 是 需要 关注 的 。 仅 当 添加 或 删除 
事实 时 ， 匹 配 过 程 的 状态 才 被 更 新 。 如 果 添 加 、 删 除 事实 的 数量 与 事实 和 模式 的 总 数 相 比 很 小 ， 那 么 
匹配 过 程 会 进行 的 很 快 。 最 糟 的 情况 是 ， 如 果 所 有 的 事实 都 改变 了 ， 那么， 所 有 的 事实 将 与 所 有 的 模 
式 进 行 竞争 。 

如 果 仅 是 事实 表 进 行 更 新 ， 那 么 每 一 条 规则 必须 记 住 已 与 之 匹配 的 事实 。 也 就 是 说 ， 如 果 一 个 新 
的 事实 与 规则 的 第 三 个 模式 相 匹配 ， 那 么 ， 头 两 个 模式 的 匹配 信息 必须 存在 以 完成 匹配 过 程 。 这 种 状 
态 信息 指出 了 与 某 一 规则 中 前 面 的 模式 相 匹配 的 事实 ， 称 之 为 部 分 匹配 (partial match)。 规 则 的 部 分 
匹配 是 满足 规则 模式 的 任何 一 组 事实 ， 它 以 规则 的 第 一 个 模式 为 开始 ， 以 任 一 模式 〈 包 括 最 后 一 个 模 
R) 为 结束 。 因 此 ， 一 条 有 三 个 模式 的 规则 对 第 一 个 模式 ， 第 一 和 第 二 个 模式 ， 第 一 、 第 二 和 第 三 个 
模式 都 有 部 分 匹配 。 一 条 规则 的 所 有 模式 的 部 分 匹配 也 是 一 个 激活 。 另 一 种 存储 的 状态 信息 称 为 模式 
DEBE (pattern match) 。 当 一 个 事实 满足 了 任 一 规则 中 的 单个 模式 而 不 需 考虑 在 其 他 模式 中 可 能 会 限制 
匹配 过 程 的 变量 时 ， 则 出 现 的 就 是 模式 匹配 。 

Rete 模式 匹配 算法 的 主要 缺点 是 内 存 使 用 量 大 。 将 所 有 的 事实 与 所 有 的 模式 进行 简单 地 比较 不 需 
要 使 用 内 存 。 但 是 ， 存 储 使 用 了 模式 匹配 和 部 分 匹配 的 系统 的 状态 会 消耗 大 量 的 内 存 。 总 的 来 说 ， 为 
了 速度 而 牺牲 内 存 是 值得 的 ， 然 而 要 记 住 ， 一 条 设计 不 好 的 规则 不 仅 运行 速度 慢 ， 而 且 会 耗 掉 大 量 内 
存 。 

通过 利用 规则 中 结构 相似 性 (structural similarity) 的 优点 ，Rete 算法 同样 也 会 提高 基于 规则 的 系 
统 的 效率 。 结 构 相 似 性 是 指 许多 规则 通常 包含 了 相似 的 模式 或 模式 群 。 利 用 这 一 特性 ，Rete 算法 通过 
将 公共 部 分 放 在 一 起 来 提高 效率 ， 因 为 公共 部 分 不 必 计算 一 次 以 上 。 


9.10 模式 网 络 


事实 与 规则 的 匹配 问题 可 分 为 二 步 。 首 先 ， 当 添加 或 删除 事实 时 ， 必 须 决 定 哪些 模式 是 已 匹配 的 。 
其 次 ， 必 须 对 跨 模 式 的 变量 约束 进行 比较 ， 以 决定 模式 群 的 部 分 匹配 。 

决定 哪些 事实 已 与 哪些 模式 匹配 的 过 程 是 在 模式 网 络 (pattern network) 中 进行 的 。 为 简单 起 见 ， 
我 们 将 模式 匹配 限于 自 定义 模板 事实 的 单字 段 槽 。 所 有 不 涉及 与 其 他 模式 中 的 约束 变量 相 比较 的 匹配 
均 可 在 模式 网 络 中 进行 。 模 式 网 络 的 结构 像 一 棵 树 。 所 有 模式 的 第 一 槽 值 约 束 是 与 树 根 相 连 的 结 点 。 
所 有 模式 的 第 二 模 值 约束 又 是 与 此 结 点 相连 的 另 一 些 结 点 ， 依 此 类 推 。 一 个 模式 中 的 最 后 一 些 槽 值 约 
束 是 该 树 的 叶子 。 因 为 每 一 结 点 只 接收 它 上 层 结 点 的 信息 ， 所 以 ， 模式 网 络 中 的 结 点 称 为 单 输入 结 点 
(one-input node) 。 模式 网 络 中 的 结 点 有 时 也 称 为 模式 结 点 (pattern node)。 叶 结 点 也 称 为 终端 结 点 
(terminal node) 。 每 一 个 模式 结 点 包含 一 个 说 明 用 来 决定 一 个 事实 的 槽 值 是 否 与 一 个 模式 的 模 值 约束 
相 匹 配 。 例 如 ， 因 为 只 有 一 个 槽 值 约束 ， 所 以 ， 模 式 : 


(data (x 27)) 
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只 需 一 个 结 点 来 表示 。 第 一 个 结 点 的 匹配 说 明 将 是 : 

The slot x value is equal to the constant 27 

实际 上 ， 还 须 检 查 是 否 为 事实 取 了 一 个 合适 的 对 应 于 模式 的 关系 名 (例如 ， 你 不 希望 仅 因 有 相同 
HZ FF foobar 事实 与 data 模式 相 匹 配 )。 为 了 执行 这 一 测试 ，CLIPS 为 每 一 个 自 定 义 模板 设 有 独立 
的 模式 网 络 ， 这 样 ， 在 建立 事实 时 ， 但 在 模式 匹配 进行 之 前 ， 就 进行 关系 名 的 检查 。 

为 匹配 单个 槽 ,匹配 说 明 包 括 了 所 有 的 信息 。 一 些 测试 可 同时 进行 。 例 如 ， 模 式 : 

(data (x ~red&~green)) 
会 产生 以 下 x 槽 的 匹配 说 明 ， 


The slot x value is not equal to the constant red 
and is not equal to the constant green 


除非 变量 在 模式 中 使 用 一 次 以 上 ， 否 则 ， 模 式 网 络 通常 是 不 检查 变量 约束 的 ， 例 如 ， 模 式 : 

(data (x ?x) {y ?y) (z ?x)) 
不 会 为 x 槽 或 y 模 生成 匹配 说 明 ， 因 为 槽 值 变量 的 第 一 个 约束 对 模式 是 否 与 事实 相 匹配 没有 影响 。 然 
而 ，z 槽 一 定 与 x 槽 有 相同 的 值 ， 所 以 ，z 模 的 匹配 说 明 是 : 

The z slot value is equal to the x slot value 

在 模式 网 络 中 可 以 检查 那些 全 部 位 于 模式 中 的 含有 变量 的 描述 。 例 如 ， 模 式 

(data {x ?x&:(> ?x ?y))) 
不 会 为 x 槽 生成 匹配 说 明 ， 因 为 变量 ? y 不 在 模式 中 (当然 ， 假 设 变量 ? y 在 前 一 模式 中 已 被 定义 )， 
然而 ，x 槽 在 模式 : 

(data (x ?x&:(> ?x 4))) 
中 将 有 匹配 说 明 ; 

The x slot value is greater than the constant 4 
因为 在 描述 中 找到 的 唯一 变量 ? x 同样 在 该 模式 之 内 。 

正如 前 面 所 述 ， 模 式 网 络 是 按 层 次 分 布 的 ， 顶 部 是 与 模式 第 一 槽 值 约束 相对 应 的 模式 结 点 。 当 声 
明 一 个 事实 时 ， 会 检查 模式 网 络 中 的 第 一 槽 值 约 束 的 模式 结 点 。 任 何 满足 了 匹配 说 明 的 模式 结 点 会 直 
接 激活 它 以 下 的 模式 结 点 。 这 一 过 程 将 持续 下 去 直到 模式 网 络 的 终端 结 点 。 模 式 网 络 的 终端 结 点 表示 
一 个 模式 的 结尾 和 一 次 成 功 的 模式 匹配 。 每 一 终端 结 点 有 一 个 alpha 或 tight memory，alpha memory 包 
含 与 终端 结 点 有 关 、 已 与 模式 匹配 的 所 有 事实 的 集合 。 换 句 话说 ，alpha memory 存储 了 某 一 特定 模式 
的 模式 匹配 集 。 

通过 共享 模式 间 的 公共 模式 结 点 ， 模 式 网 络 利用 了 结构 相似 性 的 优点 。 因 为 模式 结 点 是 按 层 次 存 
储 的 ， 所 以 ， 如 果 两 个 模式 的 头 N 个 槽 值 约束 的 匹配 说 明 相 同 ， 则 它们 共享 头 N 个 模式 结 点 ， 例 如 ， 
模式 : 


{data {x red) {y green)) 
(data (x red) (y blue)) 


可 以 共享 x 槽 的 公共 模式 结 点 。 注 意 : 匹配 说 明 必 须 相 同 ， 而 模式 中 的 槽 值 约 束 不 必 相 同 。 例 如 ， 
模式 : 


(data (x ?x) (y ?x)) 
(data (x ?y) (y ?y)) 


可 以 共享 y 槽 的 模式 结 点 ， 尽 管 这 两 个 模式 中 的 变量 不 一 样 。x 槽 并 不 形成 匹配 说 明 ， 所 以 ， 为 了 共 
享 而 忽略 这 些 x 槽 。 然 而 ， 将 槽 的 顺序 变 为 : 


(data (x ?x) (y ?x)) 
(data (y ?y) (x ?y)) 


会 使 模式 不 能 共享 结 点 ， 因 为 第 一 模式 会 产生 y 槽 的 匹配 说 明 ， 而 第 二 模式 会 产生 x EC 
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图 9.10 示 出 了 由 下 面 规则 生成 的 模式 网 络 。 


(defrule Rete-rule-1 
(match (a red)) 
(data (x ?x) (y ?x)) 
=>) 

(defrule Rete-rule-2 
{match (a ?x) (b red)) 
(data (x ~green) (y ?x)) 
(data (x ?x) (y ?x)) 


=>) 


匹配 模式 网 络 数据 模式 网 络 


Coa Eo 


ata bas METE v 
于 常量 req 于 常量 red 于 常量 green 于 x 
模式 已 匹配 ) 模式 已 匹配 ) 模式 已 匹配 ) 模式 已 匹配 ) 


图 9.10 两 个 规则 的 模式 网 络 








9.11 连接 网 络 


一 旦 确定 哪些 模式 与 事实 匹配 ， 则 必须 要 进行 跨 模式 的 变量 约束 比较 以 保证 多 个 模式 中 所 用 的 变 
量 有 一 致 的 值 。 这 种 比较 是 在 连接 网 络 (join network) 中 实现 的 。 模 式 网 络 的 每 一 个 终端 结 点 在 连接 
网 络 中 作为 一 个 连接 (join) ， 即 双 输 入 结 点 (two-input node) 的 一 个 输入 。 每 一 个 连接 包括 一 个 匹配 
说 明 ， 该 匹配 说 明 是 为 与 终端 结 点 相 联系 的 alpha 内 存 的 匹配 和 已 经 与 前 面 模式 匹配 了 的 部 分 匹配 集 而 
设置 的 。 前 面 模式 的 部 分 匹配 保存 在 连接 的 beta BK left memory 中 。 一 条 有 N 个 模式 的 规则 将 有 N 一 1 
个 连接 (但 是 CLIPS 实际 上 用 N 个 连接 来 简化 Rete 算法 ， 因 此 ， 每 个 连接 允许 只 有 一 个 模式 输入 )。 

第 一 个 连接 和 最 先 的 两 个 模式 比较 ， 剩 下 的 连接 将 其 余 的 模式 与 前 面 连接 的 部 分 匹配 相 比 较 。 例 
如 ， 假 如 在 前 面 的 例子 中 使 用 规则 Rete-rule-2: 


(defrule Rete-rule-2 
(match (a ?x) (b red)) 

(data (x ~green) (y ?x)) 

(data (x ?x) (y ?x)) 

=>) 


第 一 个 连接 包含 如 下 的 匹配 说 明 : 


The a slot value of the fact 

bound to the first pattern is equal to 
the y slot value of the fact 

bound to the second pattern. 


第 二 个 连接 将 收 到 来 自 第 一 个 连接 的 一 组 部 分 匹配 作为 输入 ， 它 将 包含 如 下 的 匹配 说 明 


The x slot value of the fact 

bound to the third pattern is equal to 
the y slot value of the fact 

bound to the second pattern. 


注意 ， 第 三 模式 中 的 变量 ? x 的 值 可 与 第 一 模式 中 的 变量 ? x 的 值 进行 比较 ， 而 不 是 与 第 二 模式 中 的 变 
量 ? x 的 值 进行 比较 。? x 在 第 三 模式 中 的 第 二 次 出 现 可 以 在 模式 网 络 中 被 检查 到 ， 因 此 ， 它 不 用 在 连 
接 网 络 中 被 检查 。 规 则 Rete-rule-2 的 模式 和 连接 网 络 如 图 9.11 所 示 。 

连接 网 络 通过 共享 规则 间 的 连接 来 利用 结构 的 相似 性 。 从 第 一 个 模式 开始 ， 连 接 网 络 中 的 连接 可 
被 两 条 规则 共享 ， 前 提 是 这 两 条 规则 有 相同 的 模式 和 两 个 以 上 模式 的 连接 比较 。 例 如 ， 这 些 规则 : 
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{defrule sharing-1 
{match (a ?x) (b red) } 
{data (x ~green) {y ?x)) 
{data (x ?x) {y ?x)) 
{other {q ?z)) 
=>) 


(defrule sharing-2 
(match (a ?y) (b red)) 
(data (x ~green}) (y ?y)) 
(data (x ?y) (y ?y)) 
(other (q ?y)) 
=>) 


模式 网 络 
匹配 模式 网 络 数据 模式 网 络 
HETE 
于 常量 green 


模式 已 匹配 ) 模式 已 匹配 


1 
约束 给 第 二 模式 的 事 
实 的 a 槽 值 等 于 约束 
给 第 一 模式 的 事实 的 
via 









































约束 于 第 二 模式 的 事 
SH x MAS FLOR 
给 第 三 模式 的 事实 的 
via 


Rete-rule-2 
图 9.11 规则 Rete-rule-2 的 模式 网 络 和 连接 网 络 


能 够 共享 它们 在 模式 网 络 中 的 所 有 模式 并 共享 在 连接 网 络 中 为 前 三 个 模式 所 生成 的 连接 。 在 连接 网 络 
中 第 四 个 模式 的 连接 不 能 被 共享 ， 因 为 两 条 规则 的 匹配 说 明 不 相同 。 规 则 sharing-1 的 第 四 模式 的 匹配 
说 明 不 需要 进行 任何 比较 ， 因 为 变量 ? z 没有 在 其 他 模式 里 使 用 。 然 而 ， 规 则 sharign-2 的 第 四 模式 的 
匹配 说 明 一 定 要 把 变量 ? y 和 其 他 模式 中 所 使 用 的 ? y 进行 比较 ， 以 保证 变量 约束 的 一 致 性 。 再 次 注 
意 ， 利 用 结构 相似 性 特点 时 ， 变 量 名 不 需要 相同 。 最 重要 的 是 匹配 说 明 …- 定 要 相同 。 

如 果 发 出 watch compilations 命令 ，CLIPS 将 提供 有 关 共 享 连接 的 有 用 信息 。 例 如 ， 以 下 命令 阑 明 
了 如 何 显 示 有 关 共 享 的 信息 。 假 定 规则 sharing-1 和 sharing-2 在 文件 rules.clp 中 。 


CLIPS> (watch compilations) 

CLIPS> (load "rules.clp") 

Defining defrule: sharing-1 +j+j+j+j 
Defining defrule: sharing-2 =j=j=j+j 
TRUE 

CLIPS> 


输出 中 的 +j 表示 增加 一 个 连接 ， 而 =j 表示 一 个 连接 被 共享 。 因 此 ， 当 加 上 规则 sharing 1 时 ， 就 生成 
4 个 新 的 连接 ， 当 加 上 规则 sharing-2 时 ， 它 将 与 sharing 1 共享 头 3 个 连接 ， 同 时 为 它 最 后 的 模式 生成 
一 个 新 的 连接 。 注 意 ， 与 通常 需要 的 3 个 连接 不 同 ，CLIPS 用 4 个 连接 来 表达 规则 。 由 于 实现 原因 ， 
每 个 连接 只 有 一 个 模式 更 方便 ， 所 以 ，CLIPS 在 前 两 个 模式 中 不 用 一 个 连接 而 用 两 个 。 








连接 网 络 
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9.12 模式 顺序 的 重要 性 


为 了 提高 速度 和 节省 内 存 ， 规 则 中 的 模式 要 按 正确 排列 ， 刚 使 用 基于 规则 的 语言 的 程序 员 往 往 会 
误解 这 一 点 。 因 为 Rete 算 法 网 络 保存 了 从 一 个 循环 到 下 一 个 循环 的 状态 ， 所 以 ， 确保 规则 不 产生 大 量 
的 部 分 匹配 是 很 重要 的 。 例 如 ， 考 虑 以 下 简单 的 程序 段 : 


(deffacts information 
(find-match a c e g} 
(item a) 

{item b) 
(item c} 
(item d} 
{item e) 
(item f) 
{item g)) 


(defrule match-1 
(find-match ?x ?y ?z ?w) 
(item ?x) 

(item ?y) 
{item ?2) 
(item ?w) 


(assert (found-match ?x ?y ?z ?w))) 


这 段 程序 重 置 (reset) 很 快 ， 在 reset 命令 前 发 一 个 watch facts 命令 将 证 实 这 一 点 。 现 在 考虑 以 下 
程序 : 


(deffacts information 
(find-match a c e g) 
(item a} 

(item b) 
(item c) 
(item d) 
(item e) 
(item f} 
(item g)) 


(defrule match-2 
(item ?x) 
(item ?y) 
(item ?z) 
(item ?w) 
(find-match ?x ?y ?2 ?w) 
=> 
{assert (found-match ?x ?y ?z ?w))) 


在 这 段 程序 中 ， 一 个 后 面 跟着 重 置 命令 的 watch facts 命令 将 演示 一 段 很 慢 的 重 置 时 间 。 当 重 置 执 
行 时 ， 自 定义 事实 结构 中 的 头 几 个 事实 很 快 被 声明 ， 而 随后 的 事实 则 需要 越 来 越 长 的 时 间 。 规 则 


O matchi 和 match-2 各 自 有 相同 的 模式 ， 但 match-2 重 置 时 间 更 长 ， 实 际 上 ， 在 … 些 电脑 中 ， 规 则 





match-2 会 让 CLIPS 内 存 不 足 。 通 过 向 information 自 定义 事实 增加 事实 ， 速 度 的 差别 会 更 大 (事实 上 ， 
为 了 显示 明显 差别 ， 在 一 些 电脑 中 必须 向 information 自 定义 事实 加 入 额外 的 事实 )。 


计算 规则 match-1 的 匹配 


计算 规则 match-1 的 模式 匹配 和 部 分 匹配 能 提供 有 用 的 信息 ， 在 列 出 模式 匹配 和 部 分 匹配 时 ， 使 
用 事实 标识 ， 而 不 用 整个 事实 。 而 且 部 分 匹配 将 被 括 在 括号 中 ， 事 实 标识 如 下 : 


f-1 (find-match a c e g} 
£-2 (item a} 
f-3 (item b} 
f-4 (item c) 
f-5 (item d) 
f-6 (item e) 
£-7 (item f} 
£-8 (item g) 
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规则 match-1 包含 以 下 模式 匹配 : 


Pattern 1: f-1 
Pattern 2: £-2, f~3, £-4, f-5, £-6, £-7, £-8 
Pattern 3: f-2, f-3, f-4, f-5, f-6, £-7, f-8 
Pattern 4: f-2, £-3, £-4, £-5, £-6, £-7, £-8 
Pattern 5: £-2, £-3, £-4, f-5, £-6, f£-7, f-8 
规则 match-1 包含 以 下 部 分 匹配 : 
Pattern 1; [f£-1] 
Patterns 1-2: [f-1,f-2] 
Patterns 1-3: [f-1,f-2,f£-4] 
Patterns 1-4: [f-1,£-2,f£-4,f£-6] 
Patterns 1-5: [f-1,f£-2,f£-4,f-6,f-8]} 

计算 规则 match-2 的 匹配 
规则 match-2 包含 以 下 模式 匹配 : 
Pattern 1: f-2, f-3, f-4, f-5, f-6, f-7, f-8 
Pattern 2: f-2, f-3, f-4, £-5, f-6, £-7, f£-8 
Pattern 3: £-2, f-3, f-4, £-5, f-6, f-7, f-8 
Pattern 4: £-2, £-3, f-4, £-5, f£-6, f-7, f£-8 
Pattern 5: £-1 


规则 match-1 和 match-2 含有 相同 数量 的 模式 匹配 ， 现 在 仅 考 虑 模式 1 的 部 分 匹配 ; 


[E-2]，[E-3]，[f-4] (£-5], (£-6], [f-7], (£-8] 


模式 1 有 7 个 部 分 匹配 ， 这 并 不 奇怪 ， 因 为 模式 匹配 和 部 分 匹配 在 第 一 个 模式 中 是 一 样 的 。 然 而 











在 模式 1 和 2 中 的 部 分 匹配 相当 多 。 
£-2,f-"j, (£-2,£-3), [£-2,£-4], (£-2,f£-5], 
{£-2,£-6), (£-2,£-7), [f-2,f-8), 
£-2 2-2], [£-3,£-3], [£-3,f-4], (£-3,£-5 
£-3,£-6), (£-3,f~-7], (£-3,f-8 
£-4,f£-2],[f£-4,f£-3], [£-4,£~-4], [£-4,£-5 
£-4,£-6], [f-4,f-7], (£-4,£-81, 
£-5,£-2], {£-5,£-3}, [f-5,f-4}, (£-5,£-5), 
{£-5,£-6], [£-5,£-7], [£-5,£-8], 
£-6,f£-2 f£-6,£-3],[£-6,f-4], (f£-6,f-5], 
£-6,f£-6]),[£-6,£-7), [f~-6,f-81], 
£-7,£-2], (£-7,£-3], [£-7,£-41], (£~+7,£-5], 
£-7,£-6], (£-7,£-7], (£-7,£-8], 
£-8,£-2], (£-8,f£-3], (f-8,£-4], (£-8,£-5] 
£-8,£-6], [£-8,£-7], [£~8,£-8 

















总 共有 49 个 部 分 匹配 在 模式 1 和 2 中 (模式 1 中 的 7 个 乘 上 模式 2 中 的 7 个 模式 匹配 ) ， 部 分 匹配 
很 快 会 受到 空间 的 限制 ， 因 为 从 模式 1 到 模式 3 将 有 343 个 部 分 匹配 ， 从 模式 1 到 模式 4 会 有 2401 个 
部 分 匹配 。 而 对 于 规则 match-1， 从 模式 1 到 5 仅 有 一 个 部 分 匹配 存在 。 

(£-2,£-4,£-6,£-8, f-1] 

注意 ， 尽 管 对 于 规则 match-1 和 match-2， 其 模式 匹配 及 其 激活 数目 都 一 样 多 ， 但 规则 match-1 仅 
有 5 个 部 分 匹配 ， 而 match-2 有 2801 个 。 随 着 事实 的 增多 ， 差 别 会 继续 增 大 。 事 实 (item h) 不 会 为 规 
则 match-1 增加 新 的 部 分 匹配 ， 但 会 给 match-2 增加 1880 个 。 这 个 例子 表明 ， 部 分 匹配 的 产生 数量 会 
大 大 影响 程序 的 性 能 ， 一 个 高 效 的 规则 集 应 该 不 但 能 尽量 减少 部 分 匹配 的 生成 ， 而 且 能 减少 旧部 分 匹 
配 的 删除 。 实 际 上 ， 应 该 尝试 尽量 减少 从 一 个 循环 到 下 一 个 循环 的 系统 状态 变化 。 减 少 状态 变化 的 专 
门 技 术 将 在 本 章 稍 后 讨论 。 


Matches 命令 
CLIPS 有 一 个 调试 命令 matches， 它 能 显示 规则 中 的 模式 匹配 、 部 分 匹配 及 规则 的 激活 。 对 于 查找 





HERRI, BATHE H Fo My RR 333 





生成 大 量 部 分 匹配 的 规则 和 调试 那些 已 匹配 好 所 有 模式 但 却 未 能 激活 的 规则 ， 这 一 命令 很 有 用 。 
matches 命令 的 语法 格式 是 : 


(matches <rule-name>) 


matches 命令 的 参数 是 其 所 要 显示 的 规则 名 ， 以 下 的 对 话说 明了 matches 命令 的 输出 情况 : 


CLIPS> (clear) 
CLIPS> 
(defrule match-3 
{find-match ?x ?y) 
(item ?x) 
(item ?y) 
=> 
(assert (found-match ?x ?y)))J 
CLIPS> 
(assert (find-match a b) 
(find-match c d) 
(find-match e f) 
{item a) 
(item b) 
(item c) 
(item £))} 
<Fact-6> 
CLIPS> (facts) 
£-0 (find-match a b} 
f-1 (find-match c da) 
£-2 (find-match e f) 
£-3 (item a) 
f-4 (item b) 
f-5 (item c) 
f-6 (item f) 
For a total of 7 facts. 
CLIPS> (matches match-3) 
Matches for Pattern 1 
f-0 
f-1 
£-2 
Matches for Pattern 
£-3 


Ls) 


ot 
心 


w 


ches for Pattern 


w 


Hh U thh O Mh hh h Fh oh th hh 
1 
OR OPR AU ek WTt Hi 


artial matches for CEs 1 - 2 
-1,f-5 
-0,£-3 

artial matches for CEs 1 - 3 
-0,£-3,£-4 

Activations 

f-0,f£-3,f-4 

CLIPS> 


规则 match-3 的 第 一 个 模式 有 3 个 模式 匹配 ， 每 个 find-match 事实 一 个 。 类 似 地 ， 第 二 、 三 个 模式 
都 有 4 个 模式 匹配 ， 每 个 item 事实 一 个 。 头 两 个 模式 包含 2 个 部 分 匹配 : 一 个 与 事实 find-match c d) 
和 (item c) 对 应 ， 另 一 个 与 事实 (find-match cd) 和 (item c) 对 应 。 由 于 事实 (item e) AA, A 
此 没有 与 事实 (find-match e f) 对 应 的 部 分 匹配 。 对 全 部 3 个 模式 仅 有 一 个 部 分 匹配 存在 : 对 应 着 事实 
(fact-match a b), (item a) 和 (item b) 的 部 分 匹配 。 这 个 部 分 匹配 还 有 一 个 激活 ， 一 旦 match-3 规则 
触发 了 这 个 激活 ， 就 不 会 被 matches 命令 显示 出 来 。 


监视 状态 变化 
matches 命令 提供 了 一 种 有 效 方法 检查 规则 中 的 部 分 匹配 。 另 一 种 监视 部 分 匹配 的 方法 是 将 它们 作 
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为 规则 的 部 分 激活 来 考虑 。 如 果 规 则 match-1 被 看 作 是 若干 个 独立 分 开 的 规则 ， 每 个 都 计算 部 分 匹配 ， 
那么 当 部 分 匹配 生成 时 ， 我 们 就 可 以 用 watch activations 命令 来 监视 部 分 匹配 。 规 则 match-1 能 分 成 以 
FJL: 


(defrule mi-pm-1 
"Partial matches for pattern 1" 
(find-match ?x ?y ?2 ?w) 
=>) 


(defrule ml-pm-1-to-2 
"Partial matches for patterns 1 and 2” 
(find-match ?x ?y ?2 ?w) 
(item ?x) 
=>) 


{defrule ml-pm-1-to-3 
“Partial matches for patterns 1 to 3" 
(find-match ?x ?y ?z ?w) 
{item ?x) 
(item ?y) 
=>) 


(defrule ml-pm-1-to-4 
“Partial matches for patterns 1 to 4" 
(find-match ?x Py ?z ?w) 
{item ?x) 
(item ?y) 
(item ?z) 
=>) 


(defrule match-1 "Activations for the match rule" 
(find-match ?x ?y ?z ?w) 
(item ?x) 
(item ?y) 
(item ?2) 
(item ?w) 
=> 
{assert (found-match ?x ?y ?2z ?w))) 


如 果 调 入 以 上 规则 和 information 自 定义 事实 ， 则 当 部 分 匹配 生成 时 ， 我 们 可 以 用 以 下 命令 对 话 来 
监视 到 它们 : 
CLIPS> (watch activations) 


CLIPS> (watch facts) 
CLIPS> (reset) 


==> f-0 (imitial-fact) 

==> £-1 (find-match a c e g) 

==> Activation 0 ml-pm-1: f-1 

==> f-2 {item a} 

==> Activation 0 ml-pm-1-to-2: f-1,f-2 

==> f-3 (item b) 

==> f-4 (item c) 

==> Activation 0 ml-pm-1-to-3: f-1,£-2,f-4 
==> £-5 (item d) 

==> £-6 (item e) 

==> Activation 0 ml-pm-1-to~4: f£-1,£-2,f£-4,f£-6 
==> f-7 (item f) 

==> £-8 (item g) 

==> Activation 0 match-1: f-1,f-2,f-4,f£-6,f£-8 
CLIPS> 


如 果 对 规则 match-2 使 用 同样 技术 ， 将 产生 数 以 百 计 的 部 分 激活 。 从 效率 的 观点 看 ， 现 在 显然 不 
能 把 规则 的 LHS 看 成 是 事物 的 全 部 。 每 个 规则 的 LHS 应 被 视 为 若干 条 独立 的 规则 ， 各 规则 为 整体 生 
成 一 系列 部 分 匹配 。 编 写 高 效 的 规则 不 但 要 求 限制 规则 中 激活 的 总 数 ， 而 且 要 求 限制 组 成 规则 的 LHS 
的 各 个 独立 的 子规 则 的 部 分 匹配 的 数量 。 
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9.13 排列 模式 以 求 高 效 


当 我 们 确定 模式 的 次 序 以 限制 产生 的 部 分 匹配 数量 时 ， 应 遵循 几 个 基本 原则 。 要 确定 最 佳 次 序 是 
很 困难 的 ， 因 为 这 些 原则 间 会 产生 冲突 。 总 的 来 说 ， 这 些 原则 是 为 了 避免 基于 规则 的 系统 在 总 体 上 出 
现 低 效率 。 调 试 好 一 个 专家 系统 需要 反复 对 模式 进行 重新 排序 ， 以 确定 哪些 改变 能 令 系 统 运行 更 快 。 
通常 ， 尝 试 完全 不 同 的 途径 会 比 模式 微调 带 来 更 好 的 效果 。 


最 特定 的 模式 优先 (Most Specific Patterns Go First) 


最 特定 的 模式 应 放 在 规则 的 LHS 前 面 。 特 定 模式 通常 只 含有 最 少数 量 的 事实 表 中 的 匹配 事实 ,而 
含有 最 多 数量 的 限制 其 他 模式 的 变量 约束 。 在 规则 match-1、match-2 中 模式 (match? x? y? z? w) 
是 最 特定 的 ， 因 为 它 限制 了 为 规则 的 其 他 4 个 模式 生成 部 分 匹配 的 事实 。 


对 应 多 变 事实 的 模式 最 后 (Patterns Matching Volatile Facts Go Last) 


与 经 常 在 事实 表 中 增加 或 删除 的 事实 相对 应 的 模式 应 该 置 于 规则 的 LHS 后 面 。 这 将 尽 可 能 少 地 引 
起 部 分 匹配 的 变化 。 但 必须 注意 ， 与 多 变 事实 对 应 的 模式 往往 是 规则 中 最 特定 的 模式 。 这 给 最 大 效率 
地 安排 模式 次 序 带 来 困难 。 例 如 ， 通 常 将 控制 事实 作为 开始 模式 是 有 利 的 。 如 果 控 制 事实 不 出 现 ， 就 
没有 部 分 匹配 生成 。 然 而 ， 如 果 控 制 事实 被 定义 和 撤销 太 过 频繁 ,不断 重 复 计 算 大 量 的 部 分 匹配 ， 那 
么 ， 把 控制 事实 放 在 规则 最 后 反而 会 更 高 效 些 。 


对 应 事实 最 少 的 模式 优先 (Patterns Matching the Fewest Facts Go First) 


把 对 应 事实 很 少 的 模式 放 到 规则 中 靠 前 的 位 置 将 减少 部 分 匹配 的 生成 数量 。 再 说 明 一 次 ,利用 这 
一 原则 可 能 会 与 其 他 原则 发 生 冲突 。 一 个 对 应 极 少 事实 的 匹配 模式 不 一 定 是 最 特定 模式 ， 又 或 者 模式 
匹配 的 事实 可 能 是 多 变 的 。 


9.14 多 字段 变量 与 效率 


多 字段 通配符 和 多 字段 变量 有 强大 的 模式 匹配 能 力 。 然 而 ， 若 使 用 不 当 ， 它们 也 会 降低 效率 。 使 
用 多 字段 通配符 和 变量 时 应 遵循 两 个 规则 。 第 一 ， 必 要 时 才 用 。 第 二 ， 即 使 使 用 ， 也 应 注意 它们 在 模 
式 的 单个 槽 中 的 数量 。 以 下 规则 显示 出 多 字段 通配符 和 变量 很 有 用 ， 但 代价 也 很 高 : 
(defrule produce-twoplets 
(list (items $?b $?m $?e)) 
(assert (front ?b)) 


(assert (middle ?m)) 
(assert (back ?e))) 


给 定 一 个 类 似 于 (list (items a4 22) ) 的 事实 ， 这 个 规则 将 生成 一 个 描述 表 的 前 、 中 、 后 部 的 事实 。 
可 变 部 分 的 长 度 在 0 到 表 长 度 之 间 。 这 个 规则 很 容易 说 明 多 字段 变量 的 使 用 ; 然而 ， 这 是 个 代价 极 高 
的 模式 匹配 操作 。 表 9.1 示 出 了 所 有 被 尝试 的 匹配 ， 也 显示 了 多 字段 通配符 和 变量 可 以 完成 模式 匹配 
过 程 中 的 大 量 工作 。 一 般 而 言 ， 若 有 N 个 字段 包含 在 item 事实 中 ， 将 会 有 (下 +3N+2) 人 2 个 匹配 在 
produce-twoplets 规则 中 出 现 。 


表 9.1 3 个 多 字段 变量 的 匹配 尝试 





匹配 尝试 匹配 $? b 的 字段 匹配 $? m 的 字段 匹配 $ ? e 的 字段 
1 a4z2 
2 a 422 


3 a4 z2 
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( 续 ) 

匹配 尝试 匹配 $ ? b 的 字段 匹配 $ ? m 的 字段 匹配 $ ? e 的 字段 

4 a4z 2 

5 a4z2 

6 a 422 

7 a 4 2 

8 a 4z 2 

9 a 422 

10 a4 2 

11 a4 z 2 

12 a4 z2 

13 a4z 2 

14 a4dz 2 

15 a4z2 


9.15 测试 条 件 元 素 与 效率 
规则 中 的 测试 条 件 元 素 应 尽量 靠近 规则 的 顶部 。 例 如 ， 以 下 的 规则 尝试 寻找 3 个 不 同 的 点 : 


(defrule three-distinct-points 
?Ppoint-1 <- (point (x ?x1) {y ?y1)) 
?point-2 <- (point (x ?x2) (y ?y2))} 
?point~3 <- (point (x ?x3) (y ?y3)) 
(test (and (neq ?point-1 ?point-2) 
(neq ?point-2 ?point-3) 
(neg ?point-1 ?point-3))) 


=> 

(assert (distinct-points (xl ?x1) (yl ?y1) 
(x2 2x2) (y2 ?y2) 
(x3 ?x3) (Y3 ?y3)))) 


测试 条 件 元 素 确 定 事实 地 址 ? point-1 与 ? point-2 不 相同 ， 因 此 ， 它 可 被 立即 置 于 第 二 个 模式 之 
将 测试 CE 放 于 此 处 将 减少 部 分 匹配 的 生成 。 


(defrule three-distinct-points 
?point-1 <- (point (x ?xl) (y ?yl)) 
?point-2 <- (point (x ?x2) (y ?y2)) 
{test {neq ?point-1 ?point-2)) 
?point-3 <- (point (x ?x3) (y ?y3)) 
(test (and (neq ?point-2 ?point-3) 
(neg ?point-1 ?point-3))) 


z 


=> 

(assert (distinct-points (xl ?x1} (yl ?y1) 
(x2 ?x2) (y2 ?y2) 
(X3 ?x3) (y3 ?y3)))) 


当 部 分 匹配 在 连接 网 络 中 生成 时 ， 规 则 LHS 上 的 测试 CE 总 会 被 求 值 。 如 果 某 些 条 件 满足 ， 在 模 
式 匹配 过 程 中 ,使 用 了 谓词 或 相等 字段 约束 的 表达 式 可 能 会 被 求 值 。 模 式 网 络 里 ， 在 模式 匹配 过 程 中 
对 表达 式 进 行 求 值 会 带 来 更 高 效率 。 如 果 表 达 式 引用 的 所 有 变量 可 以 在 包含 它 的 模式 中 找到 的 话 ， 使 
用 了 谓词 或 返回 值 字段 限制 的 表达 式 将 在 模式 匹配 过 程 中 被 求 值 。 

因为 处 于 测试 CE 中 ， 以 下 规则 中 的 表达 式 将 在 部 分 匹配 生成 时 被 求 值 : 


(defrule points-share-common-x-or-y-value 
(point (x ?x1) (y ?y1)) 
(point (x ?x2) (y ?y2)) 
(test (or (= ?x1l ?x2) (= ?yl ?y2))) 
=> 
(assert (common-x-or-y-value 
(xl ?x1) (y1 ?y1) 
(x2 2x2) (y2 ?y2)))) 
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在 模式 内 放置 表达 式 不 会 造成 在 模式 匹配 时 求 值 ， 因 为 变量 ? xl 和 ? yl 并 未 被 包含 在 第 二 个 模式 中 。 


{defrule points-share-common-x-or-y-value 
(point (x ?xl) (y ?yl)) 
{point (x ?x2) (y Py2&: (or (= ?x1 ?x2) 
(= ?yl ?y2)))) 
=> 
(assert (common-x-or-y-value 
(x1 ?x1) (yl ?y1) 
(x2 ?x2) (y2 ?y2)))) 
同样 地 ， 当 部 分 匹配 生成 时 ， 以 下 规则 中 的 表达 式 会 被 求 值 ， 因 为 该 表达 式 包含 在 一 个 测试 CE 中 : 
(defrule point-not-on-x-y-diagonals "" 
(point (x ?x1) (y ?yl1)) 
(test (and (<> ?xl ?y1) (<> ?x1 (- 0 ?yl1)))) 
=> 
{assert (non-diagonal-point (x ?x1) (y ?yl)))) 


然而 这 一 次 ， 在 模式 中 放置 表达 式 将 允许 它 在 模式 匹配 时 被 求 值 ， 因 为 这 两 个 变量 ? xl 和 ? yl 均 
被 包含 在 表达 式 的 模式 中 : 


(defrule point-not-on-x-y-diagonals 
(point (x ?x1) 
(y ?yl&: (and (<> ?x1 ?y1) 
(<> ?xl (~ 0 ?y1))))) 
=> 
(assert (non-diagonal-point (x ?x1) (y ?y1)))) 


9.16 ”内置 的 模式 匹配 约束 


内 置 的 模式 匹配 约束 常常 比 等 价 的 必须 被 求 值 的 表达 式 更 有 效率 。 例 如 ， 当 使 用 模式 匹配 约束 可 
以 得 到 同样 的 结果 时 ， 下 面 的 规则 


(defrule primary-color 
(color ?x&:(or (eq ?x red) 
(eq ?x green) 
(eq ?x blue))) 
=> 
(assert (primary-color ?x)})) 


就 不 应 使 用 ， 而 应 使 用 如 下 规则 : 


(defrule primary-color 
(color ?x&red|green|blue) 
=> 
(assert (primary-color ?x))} 


9.17 通用 规则 与 专用 规则 


较 多 专用 规则 是 否 比较 少 的 通用 规则 更 有 效 并 不 总 是 那么 明显 。 专 用 规则 趋向 于 将 大 部 分 模式 网 
络 中 的 模式 匹配 过 程 分 离开 来 ， 减 少 连接 网 络 的 工作 量 。 而 通用 规则 通常 提供 更 多 的 模式 网 络 和 连接 
网 络 内 的 共享 机 会 。 单 个 规则 应 该 比 大 群 专用 规则 更 易于 维护 。 虽 然 如 此 ， 写 通用 规则 却 要 十 分 小 心 。 
因为 它们 要 完成 多 个 规则 的 工作 ， 因 此 写 一 个 低 效 的 通用 规则 比 写 一 个 低 效 的 专用 规则 容易 。 为 说 明 
两 种 技术 间 的 差异 ， 思 考 以 下 自 定义 模板 和 四 个 规则 ， 它 们 可 更 新 包含 一 个 能 向 东南 西北 移动 的 物体 
的 网 格 坐标 的 事实 。 位 置 事实 包含 了 该 物体 的 x Ay 坐标 。 向 北 移动 将 增 大 y 坐标 值 ， 向 东 移 动 将 增 
大 x 坐标 值 。 


(deftemplate location (slot x) (slot y)) 


(defrule move-north 
(move north) 
?old-location <- (location (y ?old-y)) 
=> 


(modify ?o0ld-location (y (+ ?0ld-y 1)}}) 


(defrule move-south 
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(move south) 

?old-location <- (location {y ?old-y)) 
=> 

(modify ?old-location (y (- ?old-y 1)))) 


(defrule move-east 
(move east) 
?o0ld-location <- (location (x ?o0ld-x 
=> 
(modify ?old-location (x (+ ?oldq-Xx 1)))) 


(defrule move-west 
(move west) 
?old-location <- (location (x ?01d-x)) 





=> 
(modify ?old-location (x (- ?old-x 1)))) 


以 上 4 个 规则 可 以 由 一 个 更 通用 的 规则 、 一 个 附加 的 自 定义 模板 和 一 个 自 定义 事实 所 取代 ， 


(deftemplate direction 
{slot which-way) 
{slot delta-x) 
{slot delta-y) ) 


(deffacts direction-information 

(direction (which-way north) 

(delta-x 0) (delta-y 1)) 
{direction (which-way south) 

(delta-x 0) (delta-y -1) 
(direction (which-way east} 

{delta-x 1) (delta-y 0)) 
(direction (which-way west) 

(delta-x -1) (delta-y 0))) 


(defrule move-direction 
{move ?dir) 
(direction (which-way ?dir) 
(delta-x ?dx) 
(delta-y ?dy)) 
?0ld-location <- (location (x ?old-x}) 
(y ?old-y)) 
=> 
(modify ?0ld-location (x (+ ?old-x ?dx)) 
(y (+ ?old-y ?dy)))) 


变量 ? dx 和 ? dy 分别 是 delta x (Ax) 和 delta y (Ay) 的 值 ， 它 们 要 加 到 旧 位 置 的 x 和 y 值 上 去 ， 
以 得 到 新 位 置 的 x 和 y 坐标 值 。 

这 个 新 规则 在 产生 部 分 匹配 以 决定 将 delta x 和 delta y 的 值 加 到 当前 位 置 上 时 要 做 大 量 工作 。 然 
而 ， 它 提供 了 一 个 抽象 层 ， 令 增加 更 多 方向 变 得 简单 起 来 。 向 东北 、 东 南 、 西 北 、 西 南方 向 移动 ， 需 
要 增加 4 个 新 的 专用 规则 。 而 通用 规则 只 需 在 自 定义 事实 结构 中 加 4 个 新 的 事实 ， 如 下 所 示 : 


(deffacts direction-information 
(direction (which-way north) 
(delta-x 0) (delta-y 1)) 
(direction (which-way south) 
(delta-x 0) (delta-y -1)) 
(direction (which-way east) 
(delta-x 1) (delta-y 0) ) 
(direction (which-way west) 
(delta-x -1) (delta-y 0)) 
(direction (which-way northeast) 
(delta-x 1) (delta-y 1)) 
(direction (which-way southeast) 
(delta-x 1) (delta-y -1)) 
{direction (which-way northwest) 
{delta-x -1) (delta-y 1)} 
(direction (which-way southwest) 
(delta-x -1) (delta-y -1))) 
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9.18 简单 规则 与 复杂 规则 


基于 规则 的 语言 可 以 简洁 而 又 优雅 地 表达 许多 问题 。 虽 然 CLIPS 不 是 专门 用 来 解决 计算 问题 的 ， 
但 它 很 容易 用 来 寻找 一 组 数字 中 的 最 大 值 。 以 下 规则 与 相关 联 的 自 定 义 事实 将 声明 一 组 样本 数字 作为 
规则 寻找 最 大 数字 的 测试 数据 ; 


(deffacts max~num 
(loop-max 100)) 
(defrule loop-assert 
{loop-max ?n) 
=> 
(bind ?i i) 
{while (<= ?i ?n) do 
(assert (number ?i)) 
(bind ?i (+ ?i 1)))) 


寻找 最 大 数字 的 最 简单 的 方法 已 在 第 8 AMET. RB, RAAT UA RRA REK 
数字 
{defrule largest-number 
{number ?number1) 
{not (number ?number2&: (> ?number2 ?numberl))) 
(printout t “Largest number is ” ?numberl crlf)) 


这 条 规则 虽然 很 简单 ， 但 不 是 寻找 最 大 数 的 最 快 方法 。 如 果 N 代表 与 number 有 关 的 事实 的 数目 ， 
则 第 一 个 和 第 二 个 模式 将 做 N 次 模式 匹配 。 即 使 最 初 的 两 个 模式 只 有 一 次 部 分 匹配 ， 也 要 进行 N 次 
比较 来 找到 此 部 分 匹配 。 将 事实 loop-max 的 值 增加 到 200、300、400 等 等 ， 可 发 现 运 行 该 问题 的 时 间 
与 NN 成 比例 。 

这 种 类 型 的 比较 是 极其 低 效率 的 ， 因 为 每 增加 一 个 数字 ， 它 都 要 和 其 他 所 有 的 数字 进行 比较 来 确 
定 它 是 否 是 最 大 的 。 例 如 ， 代 表 数 字 2 至 100 的 事实 已 经 定义 了 ， 现 在 定义 代表 数字 1 的 事实 ， 则 要 
进行 199 次 比较 来 确定 1 是 否 是 最 大 的 数字 。 该 事实 (number 1) 符合 第 一 个 模式 ， 因 而 它 要 和 符合 
第 二 个 模式 的 99 个 事实 进行 比较 来 确定 它 是 否 最 大 。 第 一 次 比较 就 会 失败 (因为 从 2 到 100 的 任何 一 
个 数字 都 比 1 大 )， 但 它 还 是 要 和 余下 的 数字 进行 比较 。 同 样 地 ， 该 事实 (number 1) 符合 第 二 个 模 
式 ， 因 而 它 将 和 符合 第 一 个 模式 的 100 个 事实 进行 比较 (第 一 个 模式 此 在 也 包括 该 事实 (number 1))。 

提高 程序 运行 速度 的 关键 是 防止 不 必要 的 比较 发 生 。 要 做 到 这 一 点 ， 可 以 使 用 一 个 附加 的 事实 来 
记 住 最 大 的 数字 ， 将 事实 number 与 它 进行 比较 。 下 面 的 规则 说 明 如 何 做 到 这 一 点 : 

(ee try-number 

(n er ?n) 


=> 
(assert (try-number ?n))) 


(defrule largest~-unknown 
Pattempt <- (try-number ?n) 
(not (largest ?)}) 
=> 
(retract ?attempt) 

(assert (largest ?n))) 


{defrule largest-smaller 
?old-largest <- (largest ?nl) 
?attempt <- (try-number ?n2&:(> ?n2 ?ni)) 
=> 
(retract ?o0ld-largest ?attempt) 
{assert (largest ?n2))} 


{defrule largest-bigger 
{largest ?n1) 
?attempt <- (try-number ?n2&:(<= ?n2 ?nl1)) 
=> 
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{retract ?attempt) ) 


(defrule print-largest 
(declare (salience -1)) 
(largest ?number} 
=> 
(printout t "Largest number is " ?number crlf)) 


当 max-loop 的 值 为 100 200, 300. 400 等 等 时 ， 运 行 这 个 程序 的 时 间 与 N 成 比例 。 更 有 趣 的 是 第 
一 个 程序 只 激发 两 条 规则 ， 而 第 二 个 程序 将 激发 大 约 2N 条 规则 。 第 二 组 的 规则 说 明 一 条 规则 不 仪 要 
尽量 限制 它 拥有 的 部 分 匹配 的 数量 ， 而 且 要 尽量 限制 用 于 决定 部 分 匹配 所 需 的 比较 次 数 。 就 像 第 一 条 
规则 所 展示 的 那样 ， 如 果 第 一 个 和 第 二 个 模式 都 有 N 个 匹配 ， 则 该 规则 会 做 N? 次 比较 来 确定 最 初 两 
个 模式 的 部 分 匹配 。 即 使 没有 产生 部 分 匹配 ， 计 算 时 间 也 大 约 等 于 产生 了 N 次 部 分 匹配 的 时 间 。 第 二 
组 规则 限制 了 比较 的 次 数 使 之 等 于 N。 既 然 一 次 只 有 一 个 largest (最 大 数字 ) 事实 和 一 个 try-number 
(尝试 数字 ) 事实 存在 ， 因 此 , 在 任何 时 候 ， 对 于 largest-unknown, largest-smaller 和 largest-bigger 三 条 
规则 ， 也 只 存在 一 个 部 分 匹配 。N 个 try-number 事实 的 产生 会 使 计算 时 间 限 制 在 产生 N 次 部 分 匹配 的 
时 间 范 围 内 。 第 一 眼看 去 ， 似 乎 有 可 能 生成 一 个 以 上 的 try-number 事实 (因此 导致 有 N? 次 部 分 匹配 ) 。 
但 是 回忆 第 9.3 节 的 内 容 就 会 发 现 ， 议 程 工 作 就 像 一 个 堆栈 -一 一 这 意味 着 通过 loop-assert 规则 放 在 议程 
中 的 所 有 的 try-number (尝试 数字 ) 的 激活 都 将 在 激活 largest-unknown, largest-smaller 和 largest-bigger 
规则 后 触发 。 因 为 这 些 规则 总 是 删除 当前 的 try-number (尝试 数字 ) 事实 ， 所 以 这 种 类 型 的 事实 决 不 
会 超过 一 个 。 

这 个 例子 论证 了 两 个 重要 的 概念 。 第 一 ， 用 基于 规则 的 语言 解决 问题 的 最 简单 的 方法 不 一 定 是 最 
好 的 。 第 二 ， 通 过 运用 临时 事实 来 存储 数据 ， 通 常 可 减少 比较 的 次 数 。 在 这 个 问题 中 ，largest 事实 用 
来 存储 今后 比较 的 值 ， 使 得 比较 时 不 必 查 找 所 有 的 number 事实 。 


9.19 小 结 


本 章 介绍 了 各 种 CLIPS 特性 ， 以 利于 开发 健壮 的 专家 系统 。 自 定义 模板 属性 允许 实施 类 型 约束 和 
值 约束 ， 从 而 可 以 防止 书写 和 语义 上 的 错误 。 约 束 检查 可 以 静态 地 ( 当 表 达 式 或 结构 被 定义 时 ) Kah 
态 地 ( 当 表 达 式 被 求 值 时 ) DVT. type 属性 约束 槽 的 合法 类 型 ，allowed value 属性 限制 某 个 槽 的 合法 值 
于 某 个 规定 的 列表 中 。range 属性 限制 数值 于 某 个 特定 的 范围 内 ，cardinality 属性 限制 存储 于 一 个 多 字 
段 槽 中 的 最 小 或 最 大 字段 值 。 另 外 两 个 自 定义 模板 属性 ， 即 default 和 default-dynamic 属性 ， 并 不 约束 
槽 值 ， 但 允许 指定 自 定义 模板 醒 的 初始 值 。 

优先 级 提供 了 一 个 针对 更 为 复杂 的 控制 结构 的 机 制 。 它 可 赋予 规则 优先 级 ， 这 样 ， 已 被 激活 且 拥 
有 最 高 优先 级 的 规则 能 被 首先 触发 。 优 先 级 可 与 控制 事实 结合 使 用 ， 以 便 将 专家 知识 和 控制 知识 区 分 
开 来 。 

自 定义 模块 结构 允许 将 一 个 知识 库 分 区 。 通 过 明确 描述 可 从 哪些 自 定义 模板 输入 、 哪 些 自 定义 模 
板 可 输出 到 其 他 模块 中 去 ， 一 个 模块 可 以 控制 哪些 事实 可 为 它 所 见 。 使 用 focus 命令 ， 程 序 的 执行 可 以 
受 控 ， 但 不 必 使 用 优先 级 属性 ， 而 是 通过 把 规则 分 为 不 同 的 组 ， 并 将 这 些 组 放 到 不 同 的 模块 中 去 。 

本 章 阐 明了 有 效 地 将 事实 和 规则 进行 竞争 的 重要 性 。Rete 算法 在 这 种 匹配 过 程 中 非常 有 效 ， 因 为 
它 利 用 了 基于 规则 的 专家 系统 所 展示 的 时 间 元 余 性 和 结构 相似 性 。 

在 规则 网 络 中 ， 规 则 被 转换 为 数据 结构 。 这 个 网 络 包括 了 一 个 模式 网 络 和 一 个 连接 网 络 。 模 式 网 
络 将 事实 和 模式 进行 竞争 ， 连 接 网 络 保证 跨 模 式 的 变量 约束 是 一 致 的 。 模 式 的 排序 会 对 规则 的 性 能 产 
生 重要 的 影响 。 通 常 ， 最 特定 的 和 匹配 最 少 事实 的 模式 应 该 首先 放 在 规则 的 LHS 侧 ， 而 匹配 多 变 事实 
的 模式 应 该 放 在 规则 的 LHS 侧 的 后 面 。 命 令 matches 用 来 显示 规则 的 模式 匹配 、 部 分 匹配 和 激活 。 

还 有 其 他 几 种 提高 规则 效率 的 技巧 ， 包 括 正确 使 用 多 字段 变量 、 定 位 测试 模式 和 使 用 内 置 的 模式 
匹配 约束 。 此 外 ， 在 编写 与 通用 规则 和 专用 规则 、 简 单 规则 和 复杂 规则 有 关 的 规则 时 ， 也 可 以 进行 效 
率 的 平衡 。 
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习题 


9.1 


9.2 


9.3 


9.4 
9.5 


修改 第 8 章 中 的 Stick 程序 ， 将 控制 规则 与 玩 游戏 的 规则 分 离 。 使 用 优先 级 属性 给 控制 规则 赋 子 
较 低 的 优先 级 。 

添加 一 条 规则 到 第 7.23 节 的 “ 块 世界 程序 ”中 ， 如 果 某 个 移动 目标 已 经 满足 这 个 规则 ， 则 删除 
该 移动 目标 。 

写 出 实现 判定 程序 的 规则 ， 以 确定 某 三 段 论 是 否 有 效 。 用 习题 8.24 来 检验 你 的 这 个 关于 三 段 论 
的 程序 。 

编写 程序 ， 确 定 一 个 数 的 质数 因子 。 例 如 ，15 的 质数 因子 是 3 和 5. 

已 知 德州 各 城市 间 的 距离 如 下 ， 求 解 旅行 售 货 者 问题 (第 1.13 节 )。 写 一 个 程序 来 寻找 访问 所 有 
城市 的 最 短路 径 。 程 序 的 输入 应 该 是 出 发 的 城市 和 要 访问 的 所 有 城市 列表 。 用 Houston 作为 出 发 
城市 ， 测 试 你 的 程序 ， 找 出 最 短路 径 。 





9.6 


9.7 


Houston Dallas Austin Abilene Waco 
Houston 一 241 162 351 183 
Dallas 241 一 202 186 97 
Austin 162 202 一 216 106 
Abilene 351 186 216 一 186 
Waco 183 97 106 186 一 


给 出 以 下 信息 ， 写 一 个 程序 ， 询 问 可 见 到 的 云 的 种 类 和 风向 ， 然 后 ， 给 出 会 不 会 下 雨 的 预报 。 
积 云 意味 着 天 畏 ， 但 如 果 风 向 是 从 东北 到 南 的 话 ， 它 们 就 会 变 成 乱 层 云 。 卷 积 云 且 风 向 是 东北 到 
南 的 话 ， 则 本 日 内 有 雨 。 如 果 风 向 是 北 到 西 ， 则 会 出 现 阴 天 。 如 果 风 向 是 东北 到 南 ， 则 层 积 云 会 
变 成 积 雨 云 。 层 云 意 味 着 下 毛毛 雨 。 如 果 风 向 是 从 东北 到 南 ， 就 会 发 生长 时 间 降 雨 。 如 果 风 向 从 
西南 到 北 ， 乱 层 云 只 会 带 来 短 时 间 降 雨 。 如 果 风 向 是 东北 到 南 ， 则 意味 着 长 时 间 的 降雨 。 如 果 积 
雨 云 在 午前 可 见 ， 则 预示 着 阵雨 。 如 果 风 向 是 东北 到 南 ， 则 卷 层 云 预示 15 到 24 小 时 之 内 会 下 
雨 。 如 果 高 层 云 且 风向 是 东北 到 南 ， 则 本 日 内 会 下 雨 ， 否 则 会 是 阴 天 。 高 层 积 云 且 风向 东北 到 南 
预示 在 15 至 20 小 时 内 会 降雨 。 

编写 一 个 程序 ， 把 摩尔 斯 (Morse) 码 信息 转换 成 一 系列 等 价 的 字母 。 首 先 请 看 范例 ， 范 例 展 示 
了 程序 的 输入 和 输出 〈 其 中 * 和 -分 别 代表 点 和 划 ， 字 符 / 用 来 分 隔 摩 尔 斯 码 )。 a 


Enter a message (<CR> to end): ** * f---/ 
二 * * 

The message is SO S$ 

Enter a message (<CR> to end): J 

CLIPS> 


代码 和 等 价 字 符 如 下 表 : 
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9.8 


9.9 


与 一 个 程序 ， 使 给 出 一 个 由 数字 和 单位 组 成 的 表达 式 时 ， 能 把 其 中 的 单位 转化 成 基本 单位 〈 如 
米 、 秒 、 千 克 、 便 士 和 安培 )。 下 面 的 例子 说 明 该 程序 所 要 求 的 输入 和 输出 。 


Enter an expression (<CR> to end): 30 meters / 
minute! 

Conversion is 0,5 m/s 

Enter an expression (<CR> to end): 4 

CLIPS> 


写 一 个 程序 解决 Life 问题 (一 个 常见 的 模仿 细胞 自动 机 的 程序 )。 假 设 有 一 个 二 维 细胞 阵列 ， 其 
中 的 细胞 或 者 是 死 的 或 者 是 活 的 ， 下 一 代 细 胞 的 值 取决 以 下 规则 : 任何 与 两 个 或 三 个 其 他 活 细胞 
相 邻 的 活 细胞 都 能 够 继续 生存 ; 与 少 于 两 个 或 多 于 三 个 其 他 活 细 胞 相 邻 的 活 细胞 都 将 会 死亡 ; 与 
三 个 其 他 活 细胞 相 邻 的 死 细胞 会 复活 。 例 如 ， 如 果 第 一 代 细 胞 是 一 个 5x5 的 阵列 ， 其 中 的 活 细胞 

















那么 下 一 代 细 胞 的 情况 会 是 这 样 : 





用 上 图 所 示 的 初始 配置 计算 后 面 四 代 的 情况 。 

四 边 形 是 有 4 条 边 的 图 形 。 有 两 对 相连 等 长 边 的 四 边 形 是 筝 形 (kite)。 有 一 对 平行 边 的 四 边 形 
是 梯形 。 两 对 边 都 平行 的 四 边 形 是 平行 四 边 形 。 四 条 边 等 长 的 四 边 形 是 菱形 。 四 个 角 都 是 直角 
的 四 边 形 是 矩形 。 四 条 边 等 长 且 四 个 角 都 是 直角 的 四 边 形 是 正方 形 。 注 意 ， 凌 形 是 筝 形 的 一 种 ， 
也 是 平行 四 边 形 的 一 种 ; 平行 四 边 形 是 梯 型 的 一 种 ; 矩形 是 平行 四 边 形 的 一 种 ; 正方 形 是 矩形 
的 一 种 ， 也 是 鞭 形 的 一 种 。 

写 一 个 程序 ， 给 出 一 个 四 边 形 的 四 个 顶点 ， 判 定 它 是 何 种 四 边 形 。 该 程序 应 能 处 理 售 人 误差 
(如 果 两 条 边 之 间 的 差 小 于 0.00001， 就 认为 它们 是 相等 的 )。 用 如 下 四 边 形 测试 你 的 程序 : 

(a) 4 个 点 分 别 是 : (0, 0)、(2, 4)、(6, 0) 和 (3, 2); 

(b) 4 个 点 分 别 是 : (0, 3), (2, 5), (4, 3) 和 (2, 0); 

(c) 4 个 点 分 别 是 : (0, 0). (3, 2)、(4, 2) 和 (9, 0); 

(d) 4 个 点 分 别 是 : (0, 0)、(1, 3)、(5, 3) 和 (4, 0); 

(e) 4 个 点 分 别 是 : (0, 0), (3, 5.196152), (9, 5.196152) 和 (6, 0); 

(f) 4 个 点 分 别 是 : (0, 0). (0, 4), (2, 4) 和 (2, 0); 

(g) 4 个 点 分 别 是 : (0, 2), (4, 6). (6, 4) 和 (2, 0); 
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(h) 4 个 点 分 别 是 : (0, 2)、(2, 4), (4, 2) 和 (2, 0)。 

提示 : 若 边 1 包含 点 (xl, y1) 和 (x2， 她),， 边 2 包含 点 (x3, y3) A (x4, y4), BA, 边 1 
平行 于 边 2 的 条 件 是 : (x2-x1) * (y4-y3) 等 于 (x4-x3) * (y2-y1)。 

写 一 个 CLIPS 程序 ， 判 定 一 个 简单 句子 的 语法 是 否 正 确 。 句 子 使 用 如 下 的 BNF. 


<sentence> ::= <verb> <direct-object> 
[<indirect-object>] 

<direct-object> ::= [<determiner>] <adjective>* <noun> 

<indirect-object> ::= <preposition> <direct-object> 

<determiner> ::= a | an | the 

<adjective> ::= red | shiny | heavy 

<noun> ::= ball | wrench | gun | pliers 

<preposition> ::= with { in | at 

<verb> ::= get | throw | shoot 

例如 : 


Enter a sentence (<CR> to end): shoot the red 
shiny gun at the pliers 

OK 

Enter a sentence (<CR> to end): gun shoot 

I don't understand. 

Enter a sentence (<CR> to end): 

CLIPS> 


修改 习题 8.12 中 的 程序 ， 使 得 只 有 符合 所 有 要 求 的 灌木 才能 列 出 ， 否 则 打印 信息 表示 没有 符合 
条 件 的 灌木 。 

已 知 有 若干 发 电机 提供 电力 和 有 若干 台 设 备 使 用 电力 ， 写 一 个 程序 使 设备 与 发 电机 相连 ,使 所 
用 的 发 电机 的 台数 最 少 、 且 使 每 一 台 发 电机 未 被 利用 的 电力 最 少 。 例 如 ,由 4 台 发 电机 分 别 供 
应 5、6、7 和 10 瓦 的 电力 ， 有 4 台 设 备 分 别 消 耗 4、$、6 和 7 瓦 的 电力 ， 则 把 5 瓦 的 设备 连 至 
5 瓦 的 发 电机 上 ，7 瓦 的 设备 连 至 7 瓦 的 发 电机 上 ，4 瓦 与 6 瓦 的 设备 均 连 至 10 瓦 的 发 电机 上 ， 
这 样 使 所 用 的 发 电机 数量 最 少 ， 且 每 一 台 发 电机 未 被 利用 的 电力 最 小 。 程 序 的 输入 和 输出 可 以 
是 一 系列 事实 。 用 上 列 数据 测试 你 的 程序 ; 另外 ， 也 用 与 上 相同 的 发 电机 ， 但 用 耗 电 为 1、3、 
4、5 和 9 瓦 的 设备 作为 数据 测试 你 的 程序 。 

写 一 个 程序 ， 使 其 具有 类 似 计算 机 操作 系统 的 功能 ， 并 确定 内 存 中 适合 的 位 置 以 加 载 应 用 程序 ， 
这 些 应 用 程序 要 求 分 配给 它们 固定 数量 的 内 存 。 程 序 的 输入 可 以 是 类 似 于 下 面 的 一 系列 事实 : 


(launch {application word-processor) 
(memory-needed 2) ) 

(launch (application spreadsheet} 
(memory-needed 6)) 

(launch (application game) (memory-needed 1)) 
(terminate (application word-processor) )} 
(launch (application game) (memory-needed 1) ) 
(terminate (application spreadsheet) ) 
(terminate (application game) } 


假设 计算 机 有 8 Mbyte 内 存 ， 每 个 应 用 程序 使 用 的 内 存 的 兆 数 为 整数 。 如 果 内 存 中 恰好 符合 应 
用 程序 需要 的 空间 ， 就 应 使 用 该 空间 。 例 如 ， 有 两 个 可 用 内 存 块 分 别 为 Mbyte 和 4 Mbyte, JA 
动 某 个 应 用 程序 需要 使 用 4 Mbyte 空间 ， 那 么 ， 该 应 用 程序 就 应 被 置 于 此 4 Mbyte 的 内 存 块 而 非 
6 Mbyte 的 内 存 块 中 。 当 处 理 启动 或 结束 命令 时 ， 要 求 打印 出 一 条 信息 。 如 果 没 有 足够 的 内 存 空 
间 运 行 某 个 程序 ， 也 要 求 打印 出 这 种 信息 。 通 过 声明 上 面 的 事实 ， 并 在 声明 完 每 一 个 事实 后 发 
出 run 命令 来 测试 你 的 程序 。 运 行 结果 应 类 似 如 下 形式 : 

Application word-processor memory location is 1 to 2. 


Application spreadsheet memory location is 3 to 8. 
Unable to launch application game. 
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Terminating word-processor. 

Application game memory location is 1 to 1. 
Terminating spreadsheet. 

Terminating game. 


开发 出 一 个 文字 菜单 接口 ， 它 自 包含 在 一 个 模块 中 ， 且 可 以 适应 于 其 他 应 用 程序 的 重用 。 菜 单 
项 可 以 被 表示 为 事实 。 菜 单项 必须 支持 两 种 类 型 的 行为 : 一 是 可 以 退出 程序 的 执行 ， 即 如 果 该 
项 类 型 被 选择 ， 程 序 应 停止 执行 ; 另 一 个 为 声明 一 个 事实 并 聚焦 于 一 个 特定 的 模块 ， 对 该 类 型 
行为 ,菜单 项 事实 应 包含 能 规定 焦点 模块 的 模 ， 还 包含 当 该 项 被 选择 时 所 声明 的 事实 值 。 例 如 ， 
在 下 面 对 话 中 ， 选 择 Option A 的 结果 是 聚焦 于 模块 A 并 声明 事实 《menu-select (value option-a)), 
其 中 A 和 option-a 是 在 menu-item 事实 中 被 规定 的 值 。 模 块 A 包含 一 条 与 menu-select 事实 匹配 
的 规则 ， 而 致使 Executing Option A 的 消息 被 打印 出 来 。 
CLIPS» (run) 
Select one of the following options{( 选 择 下 列 选 项 中 的 一 个 ) : 

1 一 Option A( 选 项 A) 

2—Option B( 选 项 B) 

9—Quit Program( 退 出 程序 ) 

Your choice( 你 的 选择 ): 1 

Executing Option A 


Select one of the following options( 选 择 下 列 选 项 中 的 一 个 ): 

1—Option A( 选 项 A) 

2—Option B{ 选 项 B) 

9--Quit Program( 退 出 程序 ) 

Your choice( 你 的 选择 ): 9 

CLIPS» 
修改 习题 8.33 中 的 程序 ， 使 不 同 模块 能 分 别 打印 所 有 有 指定 光谱 级 的 星星 、 所 有 有 指定 光度 的 
星星 、 以 及 所 有 同时 符合 以 上 两 个 条 件 并 满足 地 球 到 这 些 星星 的 光 年 数 距离 的 星星 的 信息 。 
修改 习题 8.15 中 的 程序 ， 以 便 包括 在 习题 7.13 的 宝石 表 中 的 剩余 宝石 。 对 于 其 硬度 或 密度 只 
有 一 个 数值 的 宝石 ， 修 改 这 些 规则 ， 使 得 任何 指定 值 在 0.01 之 内 的 值 都 可 以 接受 。 增 加 规则 ， 
使 得 当 硬 度 不 在 1 一 10 之 间 、 密 度 不 在 1 一 6 之 间 时 ， 检 测 这 些 情 况 并 重新 提示 用 户 。 
下 表 列 出 某 高 中 所 有 课程 、 教 师 姓名 和 上 课时 间 。 输 入 一 个 事实 表示 准备 要 上 的 课 和 愿意 的 教 
师 以 及 希望 有 课 或 无 课 的 时 间 ， 写 一 个 程序 来 建议 适当 的 教师 及 上 课时 间 。 为 了 决定 “最 佳 ” 
教师 及 上 课时 间 ， 要 给 每 一 个 候选 方案 评分 。 规 则 为 : 开始 分 数 为 0; 愿意 的 教师 和 时 间 各 加 
一 分 ; 不 愿意 的 教师 和 时 间 各 减 一 分 ; 没有 表示 愿意 与 否 的 教师 和 空余 时 间 则 分 数 不 变 。 这 样 ， 
有 最 高 得 分 的 教师 和 时 间 则 为 “最 佳 ”。 





R B 教 ” 师 . 上 课时 间 
代数 Jones 1, 2, 3 
代数 Smith 3, 4, 5, 6 
美国 历史 Vale 5 

美国 历史 Hill 1, 2 

艺术 Jenkins 1, 3,5 
生物 Dolby 1, 2, 5 

化 学 Dolby 3, 6 

化 学 Vinson 6 
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( 续 ) 
RO 程 教 w 上 课时 间 
法 语 Blake 2, 4 
地 质 Vinson 1 
几何 Jones 5, 6 
几何 Smith 1 
德语 Blake 5 
文学 Henning 2, 3, 4, 5, 
文学 Davis 1, 2, 3, 4, 
音乐 Jenkins 2,4 
体育 Mack 1, 2, 3, 4, 
体育 King 1，2，3，4， 
体育 Simpson 2,3, 4, 5, 
物理 Vinson 2, 3,5 
西班牙 语 Blake 1, 3 
德州 历史 Vale 2, 3,4 
德州 历史 Hill 5, 6 
世界 历史 Vale 2, 3, 4 
世界 历史 Hill 4 


9.19 修改 习题 8.14 中 的 程序 ， 以 便 打印 配置 的 总 价格 。 如 果 选 择 的 小 装置 比 支 架 数 还 多 ， 或 者 ,小 
装置 所 需 的 功率 比 底座 提供 的 还 要 多 ， 则 都 打印 一 则 警告 信息 。 
9.20 对 于 下 列 各 模式 的 槽 ， 列 出 所 产生 的 模式 结 点 说 明 


(a) (blip (altitude 100)) 

(b) (blip (altitude ?x&:(> ?x 100))) 
(c) (stop-light (color ~red)) 

(d) (balloon (color bluejwhite) ) 


9.21 画 出 下 列 模 式 的 模式 网 络 ， 


(data (x red) (y ?y) (z ?y)) 
(data (x ~red)) 

(item (b ?y) (c ?x&: (> ?x ?y))) 
(item (a red) (b blue|yellow)) 


9.22 MH PAIS RA ERs. META HR RAR: 


(defrule rulel 
(phase (name testing) ) 
(data (x ?x) (y ?y)} 
{data (x ?y) (y ?x&:(> ?x ?y))) 


=>) 


(defrule rule2 
(phase (name testing) ) 
{data (x ?x) (y ?y)) 
(data (x ?y&~red) (y ?x&~green)) 
=>) 


9.23 改写 下 列 规则 ， 使 之 执行 更 有 效率 ; 


(defrule bad-rule 
(items (x ?x1) {y ?y1) (z ?z1)) 
(items (x ?x2) (y ?y2) (z ?22)) 
(items (x ?x3) (y ?y3) (z ?23)) 
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{test (and (or (eq ?x3 green) 
(eq ?x3 red)) 
(eq ?z2 ?y3) 
(> ?yl ?x1) 
(< ?2z1 ?x1) 
(neq ?z3 ?x1)}) 
=>) 


9.24 下 图 示 出 了 一 人 台 假 想 的 设备 故障 网 络 图 。 其 中 的 箭头 指出 故障 传播 的 方向 。 例 如 ， 若 元 件 A 出 
故障 ， 则 元 件 B 和 C 也 将 出 现 故 障 。 





下 列 规 则 将 在 网 络 中 传播 故障 ; 


(defrule propagate-device-A-fault 
{fault device-A) 

=> 
(assert (fault device-B) ) 
(assert (fault device-C))) 


(defrule propagate-device-C-fault 
(fault device-C) 

=> 
(assert (fault device-D)) 
(assert (fault device-E))) 


(defrule propagate-device-E-fault 
(fault device-E) 
=> 


(assert (fault device-F))) 


将 这 3 条 规则 改写 为 一 条 通用 规则 和 一 个 自 定义 事实 结构 ， 使 之 传播 故障 的 方式 与 上 述 3 条 规 
则 一 样 。 解 释 在 此 故障 网 络 中 添加 一 个 新 元 件 时 必须 对 这 些 方法 进行 的 修改 。 
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第 10 章 ”过程 化 程序 设计 


10.1 概述 


本 章 将 介绍 CLIPS 提供 的 类 似 C、Ada 和 Pascal 语言 的 过 程 化 程序 设计 规范 。 有 时 ,使 用 过 程 化 
程序 执行 某 些 操作 比 使 用 基于 规则 的 程序 设计 更 有 用 (也 更 有 效 )。 本 章 首先 介绍 包括 一 些 允 许 循环 和 
条 件 判断 操作 的 过 程 化 函数 。 自 定义 函数 结构 可 以 用 来 定义 新 的 函数 ， 这 些 函 数 可 以 被 规则 或 其 他 函 
数 调用 。 自 定义 全 局 变量 结构 允许 对 全 局 变量 进行 定义 ， 与 在 一 个 规则 或 函数 中 定义 的 局 部 变量 不 同 ， 
这 些 变量 总 是 维持 它们 的 值 。 自 定义 类 属 和 自 定义 方法 结构 允许 对 类 属 函数 进行 定义 ， 类 属 函数 类 似 
于 函数 ， 除 了 其 执行 依赖 于 所 传递 的 参数 个 数 和 类 型 外 。 最 后 ， 本 章 介 绍 一 些 有 用 的 实用 函数 。 


10.2 ”过程 化 函数 


CLIPS 提供 了 一 些 函数 以 控制 执行 流程 。While、it、switch 、loop-for-count、progn $ 和 break 函数 
提供 了 与 现代 高 级 程序 语言 ， 如 Ada, Pascal 和 C 类 似 的 功能 和 控制 结构 。 另 外 ，halt 函数 允许 规则 的 
执行 在 其 RHS 上 停止 。 

CLIPS 被 设计 成 一 种 高 效 的 基于 规则 的 语言 。 应 该 审慎 使 用 这 些 过 程 化 函数 。 在 规则 的 RHS 编写 
宛 长 的 过 程 程序 会 令 使 用 基于 规则 的 语言 变 得 毫 无 意义 。 通 常 ， 在 规则 的 RHS， 这 些 函 数 应 被 用 于 实 
现 简单 的 测试 和 循环 控制 。 应 避免 在 规则 的 RHS 出 现 复杂 的 这 些 函 数 的 炭 套 结构 。 


If 函数 
函数 的 语法 格式 是 : 


(if <predicate-expression> 
then <expression>+ 
[else <expression>+]}) 


其 中 < predicate expression> 是 一 个 独立 的 表达 式 CANT TA PE RE), KEF if A then Ja BY <expression> 
+ 是 一 个 或 多 个 表达 式 ， 这 些 表 达 式 将 在 < predicateexpression> 返 回 值 的 基础 上 被 求 值 。 注 意 else 子 句 是 可 
选项 。 

当 if 函数 执行 时 ， 由 < predicate-expression> 描 述 的 条 件 将 首先 被 求 值 ， 以 决定 是 否 执行 then FA 
或 else 子 句 。 如 果 条 件 不 为 FALSE， 则 执行 then 子 句 。 如 果 条 件 为 FALSE， 则 执行 else 子 句 。 如 果 没 
有 else 子 句 ， 则 在 FALSE 的 条 件 下 不 执行 任何 操作 。 一 旦 if 函数 执行 完毕 ， 且 规则 RHS LATA, 
则 CLIPS 将 继续 执行 下 一 个 行为 。 

不 用 其 他 规则 来 执行 测试 ， 而 用 if 函数 来 检查 规则 RHS 的 值 是 很 有 用 的 。 例 如 ， 以 下 规则 可 用 来 
决定 一 段 程序 是 否 应 继续 执行 : 


{defrule continue-check 

?phase <- (phase check-continue) 

=> 

{retract ?phase) 

(printout t "Continue? ") 

(bind ?answer (read)) 

{if (or (eq ?Panswer y) (eq ?answer yes) 
then (assert (phase continue) ) 
else (assert (phase halt)))) 


HER, if BORA PAY yes 或 no 回答 转变 成 一 个 事实 ， 以 指示 下 一 步 的 操作 类 型 。 在 这 种 情况 下 ， 操 
作 或 者 继续 ， 或 者 停止。 
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If 函数 的 返回 值 是 函数 的 then R else 部 分 中 最 后 一 个 表达 式 的 值 。 如 果 < predicate-expression > 的 
值 为 FALSE ERA then 部 分 ， 则 返回 FALSE. 


While 函数 
While 函数 的 语法 格式 是 : 


(while <predicate-expression> [do] 
<expression>*) 


其 中 < predicate expression> 是 一 个 独立 表达 式 (如 谓词 函数 或 变量 ) ,而 在 可 选 关键 字 do 后 的 < expression > * 
是 0 个 或 更 多 的 待 求 值 的 表达 式 ， 它 们 求 值 与 否 依赖 于 < predicate eqpression> 的 返回 值 。 这 些 表 达 式 构成 一 
个 循环 体 (body). 

在 执行 循环 体 前 ， 由 <predicate-expression > 描述 的 while 函数 部 分 将 首先 被 求 值 。 如 果 < predicate- 
expression> 值 不 为 FALSE， 则 执行 循环 体 中 的 表达 式 。 如 果 < predicate-expression > 的 值 为 FALSE， 则 
PUT while 函数 体 后 的 语句 ， 如 果 有 的 话 。 每 次 执行 循环 体 前 都 要 检查 while 函数 的 条 件 以 决定 是 否 再 
次 执行 。 

While 函数 与 if 函数 可 以 同时 使 用 以 实现 在 规则 的 RHS 进行 输入 错误 检查 。 以 下 对 规则 continue- 
check 的 修改 利用 了 while 函数 来 继续 执行 循环 ， 直 到 得 到 适当 的 答案 为 止 : 


(defrule continue-check 

?phase <- (phase check-continue) 

=> 

(retract ?phase} 

(printout t "Continue? ") 

(bind ?answer (read)) 

(while (and (neq ?answer yes) (neq ?answer no)) 
do 
(printout t "Continue? ") 
(bind ?answer (read))) 

(if (eq ?answer yes) 
then (assert (phase continue) )} 
else (assert (phase halt)))) 





switch 函数 
Switch 函数 的 语法 格式 是 ; 


(switch <test-expression> 
<case-statement>* 
[<default-statement>] ) 


其 中 < case-statement > E XH: 


(case <comparison-expression> then <expression>*) 


< default-statement > XA: 


(default <expression>*) 


在 then 和 default 关键 字 后 面 的 < expression > * 是 一 个 或 多 个 表达 式 ， 它 的 值 依赖 于 < comparison- 
expression> 的 返回 值 与 < test-expression> 的 返回 值 的 匹配 关系 。 注意 可 选 的 default 操作 必须 在 所 有 的 
case 后 面 。 

当 执行 switch 函数 时 ， 首 先 计算 < test-expression > 的 值 。 然 后 按照 出 现 的 顺序 ， 计 算 每 个 < com- 
parison-expression > 的 值 ， 如 果 两 者 相同 ， 则 其 then 关键 字 后 的 语句 被 执行 ， 接 着 switch 函数 结束 。 如 
果 没 有 找到 匹配 值 ， 并 且 定 义 了 < default-statement> ， 则 执行 < default-statement > o 

以 下 代码 使 用 switch 函数 把 一 个 符号 名 映射 到 一 个 数学 函数 中 ， 
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(defrule perform-operation 
(operation ?type ?argl ?arg2) 
=> 
(switch ?type 
(case times then 
(printout t ?argl " times * ?arg2 
"is " (* ?argl ?arg2) 
crlf)) 
(case plus then 
(printout t ?argl “ plus " ?arg2 
”is " (+ ?argi ?arg2) 
erl£)) 
(case minus then 
(printout t ?argl * minus " ?arg2 
"is * (- ?argl ?arg2) 
erlf)) 
(case divided-by then 
(printout t ?argl " divided by " ?arg2 
* is " (/ ?argl ?arg2) 
crlf£)})) 


例如 : 


CLIPS> (assert (operation plus 3 4)).| 
<Fact-1> 

CLIPS> (run) 

3 plus 4 is 7 

CLIPS> 


符号 plus 在 操作 中 激发 了 switch 函数 中 的 plus 情况 ， 所 以 结果 打印 出 3 加 4 的 和 。 
Perform-operation 规则 可 以 重 写成 4 个 独立 规则 而 不 需要 使 用 switch 函数 。 


(defrule perform-operation-times 
(operation times ?argl ?arg2) 
=> 
(printout t ?argl " times " ?arg2 
"is ” (* ?argl ?arg2) crlf)) 


(defrule perform-operation-plus 
{operation plus ?argl ?arg2) 
=> 
(printout t ?argl " plus " ?arg2 
"is * (+ ?argl ?arg2) crlf)) 


(defrule perform-operation-minus 
(operation minus ?argl ?arg2) 
=> 
(printout t ?argl ” minus " ?arg2 
"is “ (+ ?argl ?arg2) crlf)) 


(defrule perform-operation-divided-by 
(operation divided-by ?argl ?arg2) 
=> 
(printout t ?argl " divided by * ?arg2 
" ig " (/ ?argl ?arg2) crlf)) 


Loop-For-Count 函数 
Loop-For-Count 函数 的 语法 格式 是 : 


(loop-for-count <range-spec> [do] <expression>*) 


HH, <rangespec> UMA: 


<end-index> | 
(<loop-variable> <end-index>) | 
(<loop-variable> <start-index> <end~index>) 


<end-index > 和 < start-index> 是 返回 整数 的 表达 式 。 如 果 只 指定 了 < end-index > ， 那 么 函数 体 
<expression> * 执行 该 数值 次 循环 。 如 果 指 定 了 < loop-variable> 和 < end-index> ， 那 么 函数 体 执行 该 
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数值 次 循环 ， 而 且 当 前 循环 ， 其 范围 从 1 到 < end-index > ， 将 会 在 每 次 循环 中 存放 在 < loop-variable > 

中 。 如 果 < start-index> 也 指定 了 ， 那 么 循环 将 从 < start-index> 开 始 而 不 是 从 1 开始 ， 循 环 的 次 数 将 是 

<end-index >< start-index> HEH 1。 如 果 < start-index > KF <end-index>, ， 则 循环 不 执行 。 
以 下 是 使 用 < range-spec> 三 个 变量 和 调用 loop-for-count 的 例子 : 


CLIPS> 
(loop-for-count (?ent1 2 4) do 
(loop-for-count (?cnt2 3) do 
(printout t ?ent1 " *) 
(loop-for-count 3 do 
(printout t ".")) 
(printout t " " ?ent2 erlf)))-~! 


PR RWW Wd dD 
WNRP WNP Wd 


一 个 <loop-variable> 将 不 影响 所 有 在 loop-for-count 表达 式 外 定义 的 同名 变量 。 例 如 : 


CLIPS> 
(defrule masking-example 
=> 
(bind ?x 4) 
(loop-for-count (?x 2) do 
(printout t "inside ?x is " ?x crlf)) 
(printout t "outside ?x is “ ?x crlf)) 
CLIPS> (reset) 
CLIPS> (run) 
inside ?x is 1 
inside ?x is 2 
outside ?x is 4 
CLIPS> 


Progn $ HB 
Progn $ 函数 的 语法 格式 是 : 


(progn$ <list-spec> <expression>*) 


HA, <list-spec> MH: 


<multifield-expression> | 
(<list-variable> <multifield-expression>) 


如 果 <list-spec> 指 定 为 < multifield-expression > , 那么 对 计算 < multifield-expression 之 所 得 到 的 多 字 
段 值 结果 中 的 每 个 字段 ， 函 数 体 < expression > * 执行 一 次 。 如 果 指 定 < list-variable > 和 < multifield-ex- 
pression> ， 则 允许 通过 引用 变量 获取 当前 迭代 的 字段 值 。 同 时 还 通过 在 < list-variable> 后 附加 -index 创 
建 一 个 特殊 的 变量 ， 该 变量 存放 当前 迁 代 的 索引 。 函 数 的 返回 值 是 对 < multifield-expression> 最 后 一 个 
字段 执行 <expression> * 的 结果 。 正 如 调用 loop-for-count 一 样 ， 对 progn $ 的 调用 可 以 峙 套 ， 为 progn $ 
表达 式 创建 的 变量 将 不 影响 在 progn $ 表达 式 外 部 定义 的 同名 变量 。 以 下 是 使 用 两 种 不 同 < lstspec> 的 
例子 : 


CLIPS> 
(progn$ (create$ 1 2 3) 
{printout t . erlf)) 
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CLIPS> 
(progn$ (?v (create$ a b c)) 
(printout t ?v-index " " ?v crif))} 


Break 函数 
Break 函数 的 语法 格式 是 : 


(break) 


break 函数 中 止 并 结束 while, loop-for-count 和 progn $ 函数 的 执行 。 它 通常 用 于 当 满 足 某 种 特殊 情 
形 时 循环 提早 结束 。 例 如 ， 以 下 对 话 显示 的 print-list 规则 打印 出 表 的 最 初 $ 个 成 员 ， 如 果 还 有 其 他 成 
员 则 打印 anaes 


CLIPS> 
(defrule print-list 
(print-list $?list) 
=> 
(progn$ (?v ?list) 
(if (<= ?v-index 5) 
then 
(printout t ?vy * =) 
else 
(printout t "...") 
(break) ) ) 
(printout t crlf)) 
CLIPS> (reset) J 
CLIPS> (assert (print-list a b c d e))W 


<Fact-1> 
CLIPS> (run) 
abcde 
CLIPS> (assert (print-listabcde fg h))J 
<Fact-2> 
CLIPS> (run) 
abcde... 
CLIPS> 
Halt 函数 


Halt 函数 可 用 在 规则 的 RHS 以 停止 执行 议程 中 的 规则 ， 它 不 需要 任何 参数 。 一 旦 调用 ， 被 激活 规 
则 RHS 的 进一步 操作 将 都 被 中 止 ， 控 制 立即 返回 顶层 。 当 调用 halt 函数 时 ,议程 将 包含 任何 余下 的 被 
激活 规则 。 

例如 ，continue-check 规则 可 以 将 以 下 操作 : 


(assert (phase halt)) 


换 成 操作 : 


(halt) 


该 halt 操作 会 中 止 规则 的 执行 。 
当 用 户 打算 稍 后 用 run 命令 重新 开始 执行 操作 时 ， 用 hat 函数 来 中 止 操作 特别 有 用 。 思 考 以 下 对 
continue-check 规则 的 修改 : 


{defrule continue-check 
?phase <- (phase check-continue) 
=> 
(retract ?phase) 
(printout t "Continue? ") 
(bind ?answer (read) ) 
(while (and (neq ?answer yes) (neq ?answer no) 
do 
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(printout t "Continue? ") 
(bind ?answer (read))) 
(assert (phase continue) ) 
(if (neq ?answer yes) 
then (halt))) 


注意 ， 无 论 用 户 对 “是 否 继续 ”的 回答 如 何 ， 该 规则 都 将 声明 事实 (phase continue)。 声 明 此 事实 将 把 
合适 的 规则 放 到 议程 中 以 继续 执行 操作 。 如 果 对 “是 否 继续 ”的 回答 不 是 yes， 执 行 操作 会 被 halt 函数 
中 止 。 然 后 ， 用 户 就 可 以 检查 这 些 规则 和 事实 ， 之 后 发 出 run 命令 在 中 止 的 地方 重新 开始 执行 。 


10.3 BEM BRA 


CLIPS 允许 你 像 在 其 他 过 程 化 语言 中 一 样 定义 新 的 函数 。 对 于 规则 来 说 ， 这 将 有 助 于 减少 LHS 和 
RHS 中 的 重复 表达 式 。 新 的 函数 使 用 自 定义 函数 (deffunction) 结构 来 定义 。 一 个 自 定义 函数 的 一 般 格 
式 如 下 : 


(deffunction <deffunction-name> [<optional-comment>] 
(<regular-parameter>* {<wildcard-parameter>]) 
<expression>*) 


其 中 ，< regular-parameter> 是 一 个 单字 段 变量 ， 而 < wildcard-parameter> 是 一 个 多 字段 变量 。 自 
定义 函数 的 名 字 < deffunction-name> 必须 是 不 同 的 ， 且 不 能 与 CLIPS 中 的 预先 已 定义 函数 重 名 。 自 定 
义 函 数 体 由 < expression> * 表示， 是 一 系列 表达 式 ， 类 似 于 规则 的 RHS， 在 自 定义 函数 被 调用 时 将 依 
次 被 执行 。 用 户 定义 的 自 定义 函数 的 执行 与 CLIPS 提供 的 预先 已 定义 函数 类 似 。 在 你 可 以 调用 一 个 
CLIPS 系统 提供 的 预先 已 定义 函数 的 地 方 ， 你 都 可 以 调用 自 定义 函数 。 与 预先 已 定义 函数 不 同 的 是 ， 
自 定义 函数 可 以 被 删除 ， 而 且 可 以 使 用 watch 命令 跟踪 它们 的 执行 。 

< regular-parameter > 和 < wildcard-parameter > 允许 你 指定 当 自 定义 函数 被 调用 时 传人 的 参数 。 这 
与 规则 中 你 在 LHS 中 约束 变量 ， 在 RHS 中 作为 参数 使 用 有 点 类 似 。 正 如 在 规则 RHS 中 一 样 ， 你 可 以 
使 用 bind 命令 在 自 定义 函数 的 内 部 创建 局 部 变量 。 

正如 一 些 预 先 已 定义 函数 具有 返回 值 一 样 ， 一 个 自 定义 函数 也 可 以 有 返回 值 。 该 返回 值 就 是 自 定 
义 函 数 内 部 最 后 一 个 表达 式 的 执行 结果 。 

作为 一 个 例子 ， 我 们 将 编写 一 个 使 用 勾 股 定理 计算 直角 三 角形 斜 边 的 长 度 的 自 定义 函数 。 如 果 a 
和 4 是 直角 边 ，c 是 斜 边 ， 则 定理 表示 为 : 





abse 


通过 改变 公式 的 形式 得 到 斜 边 长 度 ; 


把 这 个 公式 转化 成 自 定 义 函 数 得 到 : 


(deffunction hypotenuse-length (?a ?b) 
(** (+ (* ?a ?a) (* ?b ?b)) 0.5)) 


这 个 函数 的 两 个 参数 是 ? a 和 ? b, 用 来 传递 直角 三 角形 的 两 条 直角 边 。* * 函数 和 它 的 第 二 个 参 
数 0.5 用 来 计算 开平 方 根 ， 因 为 〈* x < numeric-expression > < numeric-expression >) 的 值 是 第 一 个 
参数 的 第 二 个 参数 次 寡 。 一 旦 斜 边 长 度 函数 被 定义 ， 它 可 以 在 命令 行 中 被 调用 


CLIPS> (hypotenuse-length 3 4) 
5.0 
CLIPS> 


因为 直角 边 长 度 为 3 和 4， 所 以 得 到 斜 边 的 正确 长 度 为 5。 
既然 自 定义 函数 可 以 使 用 局 部 变量 ， 对 斜 边 的 计算 可 以 采用 更 可 读 的 形式 : 


(deffunction hypotenuse-length (?a ?b) 
(bind ?temp (+ (* ?a ?a) (* ?b ?b))) 
(** ?temp 0.5)) 
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Return HA 


除了 可 以 中 止 规则 RHS 的 执行 ，return 函数 还 可 以 中 止 当前 执行 的 自 定义 函数 。 其 在 自 定义 函数 
中 使 用 的 语法 如 下 : 

(return [<expression>]) 

如 果 指 定 了 < expression> ， 则 其 计算 结果 作为 自 定义 函数 的 返回 值 。 斜 边 长 度 函 数 可 以 使 用 return 
函数 以 下 面 任何 一 种 方法 来 用 返回 斜 边 长 度 : 


(deffunction hypotenuse-length (?a ?b) 
(bind ?temp (+ (* ?a ?a) (* ?b ?b))) 
(return (** ?temp 0.5))) 


或 者 : 


(deffunction hypotenuse-length (?a ?b) 
(bind ?temp (+ (* ?a ?a) (* ?b ?b))) 
(bind ?c (** ?temp 0.5)) 

{return ?c)) 


不 过 ， 既 然 最 后 一 个 表达 式 的 计算 结果 将 作为 自 定义 函数 的 返回 值 ， 而 且 在 斜 边 长 度 自 定义 函数 
中 的 各 个 表达 式 被 顺序 执行 ， 那 么 就 没有 必要 写 出 明确 的 返回 语句 。return 函数 主要 用 于 当 符 合 某 种 
条 件 而 终止 自 定 义 函 数 的 执行 或 者 当 返回 值 是 由 某 个 不 处 于 函数 最 后 的 表达 式 计算 而 来 的 场合 。 例 如 ， 
以 下 的 自 定义 函数 判断 给 定 的 数 是 否 是 质数 : 


(deffunction primep (?num) 


{loop-for-count (?i 2 (- ?num 1)) 
(if (= ?num (* (div ?num ?i) ?1)) 
then 


(return FRALSE) ) ) 
(return TRUE) ) 


4? num 参数 是 一 个 质数 时 ，primep 自 定义 函数 返回 TRUE， 否 则 返回 FALSE。 如 果 一 个 数 的 因 
子 只 有 1 和 它 本 身 ， 那 么 它 是 一 个 质数 。 因 此 如 果 它 能 被 其 他 数 整除 ， 它 就 不 是 质数 。primep 自 定义 
函数 使 用 loop-for-count 函数 枚 举 从 2 到 小 于 本 身 的 所 有 数 来 检查 ? num 能 否 满足 质数 条 件 。 如 果 这 些 
数 中 有 任何 一 个 能 整除 ? num， 则 函数 结束 并 返回 FALSE， 因 为 它 不 是 质数 。Div 函数 用 来 决定 ? num 
的 质数 条 件 是 否 满足 。Div 函数 执行 整数 除法 返回 一 个 整数 。 因 此 ，(div 5 2) 返回 2 而 不 是 2.5, 2.5 
是 (/52) 的 返回 值 。 如 果 表 达 式 (x (div?num 7i) ?i 返回 最 初 的 ? num 值 ， 那 么 ? num 能 被 ?i 整 
除 ,? num 不 是 质数 。 如 果 loop-for-count 函数 中 枚 举 的 所 有 值 ?i 都 不 能 整除 ? num， 那 么 ? num 是 质数 ， 
自 定义 函数 的 返回 值 为 TRUE。 


重 写 棍子 程序 
回忆 第 8.7 节 自 定义 事实 和 3 条 规则 决定 是 计算 机 还 是 人 先 走 : 


(deffacts initial-phase 
(phase choose-player) } 


(defrule player-select 
(phase choose-player) 
=> 
(printout t "Who moves first (Computer: c " 
"Human: h)? ") 
(assert (player-select (read)))) 


{defrule good-player-choice 
?phase <- (phase choose-player) 
?choice <- (player-select ?player&c | h) 
=> 
(retract ?phase ?choice) 
(assert (player-move ?player))) 
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(defrule bad-player-choice 

?phase <- (phase choose-player) 

?choice <- (player-select ?player&~c&~h) 
=> 

(retract ?phase ?choice) 

(assert (phase choose-player) ) 

(printout t "Choose c or h." crilf)) 


因为 通常 都 需要 验证 输入 ， 我 们 首先 考察 一 个 能 够 免除 3 条 规则 这 种 需要 的 函数 : 


(deffunction check-input (?question ?values) ;; Line 1 
(printout t ?question " " ?values " ") 7; Line 2 
(bind ?answer (read)) ;; Line 3 
(while (not (member$ ?answer ?values)) 77 Line 4 

(printout t ?question “ " ?values ” “) ;; Line 5 
(bind ?answer (read))) ;; Line 6 
(return ?answer) ) 3; Line 7 


从 Line 1 开始 定义 check-input 自 定义 函数 ， 它 接受 两 个 参数 :? question 是 随后 显示 给 用 户 的 问题 ， 
? value 是 对 应 此 问题 的 可 接受 的 数据 列表 。Line 2 打印 出 问题 和 可 接受 的 数据 列表 。 用 户 对 问题 的 回答 由 
Line 3 的 read 函数 获取 。Line 4 开始 执行 while 循环 直到 用 户 反馈 一 个 可 接受 的 回答 。 如 果 Member $ 函数 
的 第 一 个 参数 是 第 二 个 多 字段 值 参数 中 的 一 个 ， 则 返回 TRUE。 如 果 用 户 反 馈 的 回答 ? answer 不 是 可 接 
受 值 表 ? value 中 的 一 个 ， 则 while 循环 体 执行 。Line 5 和 Line 6 构成 while 循环 体 的 内 容 ， 重 复 询 问 用 户 。 
一 旦 用 户 反馈 一 个 有 效 回答 ，while 循环 终止 并 执行 Line 7， 返 回 用 户 提供 的 有 效 回答 。 

接 下 来 我 们 将 演示 如 何 使 用 check-input AERX. Create $ 函数 用 于 从 单字 段 参数 创建 一 个 多 
字段 值 ， 以 便 作为 第 二 个 参数 传递 给 自 定 义 函 数 : 


CLIPS> 

(check-input "Who moves first, Computer or Human?" 
(create$ c h))-! 

Who moves first, Computer or Human? (c h) x 

Who moves first, Computer or Human? (c h) computer- 

Who moves first, Computer or Human? (c h) eJ 

Cc 

CLIPS> 


使 用 check-input HX, player-select 规则 可 以 重 写 如 下 内 容 ， 而 不 再 需要 good-player-choice 和 bad- 
player-choice 规则 : 


(defrule player-select 

?f <- (phase choose-player) 

=> 

(retract ?f) 

(bind ?player 
(check-input 
"Who moves first, Computer or Human?" 
(create$ c h))) 

(assert (player-move ?player))) 


递归 

自 定 义 函 数 可 以 在 函数 体 中 调用 任何 其 他 自 定义 函数 ,包括 自己 本 身 。 例 如 ， 一 个 正 整 数 n 的 阶 
RELA: 

factorial (n) = [mS factorial Ged > mn 

注意 到 要 计算 n 的 阶乘 必须 计算 n 一 1 的 阶乘 。 所 以 3 的 阶乘 (写作 3!) 等 于 3X2!， 也 就 是 3x 
X11, 等 于 3x2x1 也 就 是 6。 以 下 的 自 定义 函数 将 计算 一 个 整数 的 阶乘 : 


(deffunction factorial (?n) 
(if (>= ?n 1) 
then (* ?n (factorial (- ?n 1))) 


else 1)) 
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如 上 所 示 ，(factorial 3) 将 会 按照 3 x (factorial 2) 计 算 ， 也 就 是 3x 2 x (factorial 1) ， 最 后 实际 上 是 
计算 3x2x1， 等 于 6。 这 些 可 以 通过 直接 调用 阶乘 自 定 义 函 数 证 实 : 


CLIPS> (factorial 3) 
6 
CLIPS> (factorial 2) 
2 


CLIPS> (factorial 1) 
1 
CLIPS> 


向 前 声明 


有 时 候 自 定义 函数 循环 引用 另 一 个 函数 。 例 如 ， 自 定义 函数 A 调用 自 定义 函数 B， 而 B 调用 自 定 
义 函 数 C，C 调用 自 定义 函数 A， 如 下 : 


(deffunction A (?n) 
(if (<= ?n 0) 
then 1 
else (+ 2 (B (- ?n 1))))) 


{(deffunction B (?n) 
(if (<= ?n 0) 
then 1 
else (* 2 (C (- ?n 1))))) 


(deffunction C (?n) 
(if (<= ?n 0) 





then 1 
else (~ 2 (A (- ?n 1))))) 
下 面 用 更 清晰 的 方式 来 表示 这 3 个 函数 计算 的 值 : 
1 nx0 
A (n) -Bason n>0 
1 n <0 
B (n) = ane (n-1) n>0 
< 
C (n) = | n0 


2-A (n-1) n>0 
因为 自 定义 函数 必须 先 被 定义 后 被 引用 ， 这 就 造成 一 个 问题 。 这 些 函 数 互相 依赖 ， 不 能 编译 其 中 


的 任何 一 个 ; 


CLIPS> 
(deffunction A (?n) 
(if (<= ?n 0) 
then 1 
else (+ 2 (B (- ?na 1)))))) 
[EXPRNPSR3] Missing function declaration for B. 


ERROR: 
(deffunction MAIN::A 
On) 
(if (<= ?n 0) 
then 
1 
else 
(+ 2 (B 
CLIPS> 


解决 这 个 问题 的 方法 是 为 其 中 某 些 函数 作 向 前 声明 。 在 一 个 向 前 声明 中 给 出 函数 名 和 参数 但 是 不 
给 出 函数 体 。 函 数 被 声明 后 就 可 以 被 引用 ,但 由 于 还 没有 函数 体 所 以 它 不 能 引用 其 他 函数 。 向 前 声明 
随后 将 被 替换 成 包含 函数 体 的 版 本 。 例 如 : 
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CLIPS> (deffunction B (?n)) 
CLIPS> 
(deffunction A (?n) 
(i£ (<= ?n 0) 
then 1 
else (+ 2 (B (- ?2 1})))) 
CLIPS> (deffunction C (?n)) 
CLIPS> 
(deffunction B (?n) 
(i£ (<= ?n 0) 
then 1 
else (* 2 (C (- ?m 1)))))4 
CLIPS> . 
(deffunction C (?n) 
(if (<= ?n 0) 
then 1 
else (- 2 (A (- ?na 1)))))H 
CLIPS> 


在 这 个 例子 中 ,在 自 定义 函数 要 求 声明 之 前 插入 了 向 前 声明 。 通 常 ， 如 果 你 把 规则 存放 在 一 个 文 
本 文件 中 调 入 ， 你 可 能 会 把 所 有 向 前 声明 一 起 放 在 文件 的 头 部 以 便 提高 代码 的 可 读 性 和 可 维护 性 ,但 
是 最 主要 的 是 只 需 保证 在 自 定义 函数 要 求 的 定义 之 前 声明 就 可 以 了 。 


监视 自 定义 函数 
当 使 用 watch 命令 监视 自 定义 函数 时 ， 将 打印 出 自 定义 函数 开始 和 结束 时 的 信息 性 消息 。 例 如 ;: 


(watch deffunctions) 
(factorial 2) 


CLIPS> 
CLIPS> 





DFN >> 
DFN >> 
DFN >> 
DFN << 
DFN << 
DFN << 


factorial ED:1 
factorial ED:2 
factorial ED:3 
factorial ED:3 
factorial ED:2 
factorial ED:1 


(2) 
(1) 
(0) 
(0) 
(1) 
(2) 


2 
CLIPS> 


开始 的 DFN 表明 是 与 自 定义 函数 有 关 。 符 号 > > 表示 进 人 一 个 自 定义 函数 ，< < 表示 退出 一 个 自 
定义 函数 。 接 下 来 的 符号 是 进入 或 退出 的 自 定义 函数 的 名 字 ， 在 上 面 的 例子 中 是 自 定义 函数 factorial 
符号 ED 是 Evaluation Depth (RARE) 的 缩写 ， 后 面 跟着 一 个 冒号 和 当前 的 求 值 深度 ， 一 个 整数 。 
求 值 深度 表示 自 定义 函数 调用 的 谋 套 信息 。 它 从 零 开 始 ， 每 次 进入 一 个 自 定义 函数 则 加 一 ， 每 次 退出 
一 个 自 定义 函数 则 减 一 。 最 后 的 信息 表示 传人 自 定义 函数 的 实际 参数 。 

在 这 个 例子 中 ，factorial 自 定义 函数 最 初 调用 时 的 参数 为 2， 调用 的 求 值 深度 为 1。factorial 自 定义 
函数 再 次 调用 以 计算 1 的 阶乘 ， 此 时 调用 求 值 深度 为 2， 参数 为 1。 接 着 调用 计算 0 的 阶乘 ， 调 用 求 值 
深度 为 3， 参 数 为 0。 由 于 factorial 自 定义 函数 不 需要 再 次 递归 以 计算 0 的 阶乘 ， 因 此 函数 不 需要 再 次 
被 调用 ， 嵌 套 退 出 。 每 次 退出 都 使 求 值 深度 减 一 ， 直 到 最 初 的 自 定义 函数 调用 退出 ， 返 回 数值 2。 

通过 在 watch 自 定义 命令 后 面 加 上 函数 的 名 字 可 以 监视 特定 的 自 定义 函数 ， 例 如 : 


CLIPS> (unwatch deffunctions) 
CLIPS> (watch deffunctions C) 
CLIPS> (A 2) 

DFN >> C ED:3 (0} 

DFN << C ED:3 (0) 

4 

CLIPS> (watch deffunctions A B) 
CLIPS> (A 2) 
DFN >> A ED:1 
DFN >> B ED:2 
DFN >> C ED:3 
DFN << C ED:3 (0) 
DFN << B ED:2 (1) 
DFN << A ED:1 (2) 
4 

CLIPS> 


(2) 
(1) 
(0) 
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注意 ， 即 使 某 个 自 定义 函数 并 没有 被 监视 ， 其 求 值 深度 仍然 会 被 计算 。 
通 配 参数 


如 果 自 定义 函数 参数 列表 中 的 所 有 参数 都 是 单字 段 交 量 ， 那 么 在 参数 和 自 定义 函数 被 调用 时 传人 
的 值 之 间 存 在 一 个 一 对 一 的 对 应 关系 。 也 就 是 说 ， 如 果 有 3 个 参数 ， 那 么 自 定义 函数 被 调用 时 必须 有 
3 个 值 传 给 函数 。 

如 果 自 定义 函数 的 最 后 一 个 参数 是 多 字段 变量 ， 我 们 称 之 为 通 配 参 数 ， 那 么 自 定义 函数 接受 的 参 
数 可 以 比 参数 列表 中 列举 的 更 多 。 如 果 参 数列 表 中 有 M 个 参数 ， 在 自 定义 函数 调用 中 有 N 个 实际 参 
数 ， 那么 前 M- 1 个 实际 参数 对 应 着 参数 列表 的 前 M- 1 个 参数 。 其 他 的 从 M 到 N 个 实际 参数 作为 一 
个 多 字段 值 对 应 于 参数 列表 中 的 第 M 个 参数 。 

作为 一 个 例子 ， 下 面 重 写 check-input 函数 使 它 的 最 后 一 个 参数 ? values 成 为 通 配 参数 ， 


(deffunction check-input (?question $?values) 
(printout t ?question “ " ?Values " ") 
(bind ?answer (read) ) 

(while (not (member$ ?answer ?values) ) 
(printout t ?question * " ?Values " ") 
(bind ?answer (read))) 

(return ?answer)) 


最 后 一 个 参数 被 改写 为 通 配 参数 ， 因 此 不 再 需要 使 用 create $ 函数 来 创建 多 字段 值 传 给 自 定义 函数 : 


CLIPS> 

(check-input "Who moves first, Computer or Human?" 
ch). 

Who moves first, Computer or Human? (c h) computer 
Who moves first, Computer or Human? (c h) human 
Who moves first, Computer or Human? (c h) bJ 


CLIPS> 


在 本 例 中 ， 当 调用 check-input Bt, 4E Who moves first, Computer or Human? 被 约束 给 参数 ? 
question， 余 下 的 参数 c 和 上 转化 成 多 字段 值 存放 到 通 配 参数 $? values 中 。 


自 定 义 函 数 命令 


ppdeffunction (pretty print deffunction， 漂 亮 打印 自 定义 函数 ) 命令 用 来 显示 自 定义 函数 的 文本 描 
述 。undeffunction 命令 用 来 删除 一 个 自 定义 函数 。list-deffunctions 命令 用 来 显示 CLIPS 中 定义 的 自 定义 
函数 列表 。get-deffunction-list 函数 返回 一 个 包含 自 定义 函数 列表 的 多 字段 值 。 这 些 命令 的 语法 如 下 


{ppdeffunction <deffunction-name>) 
{undeffunction <deffunction-name>) 
(list-deffunctions [<module-name>]) 


(get-deffunction-list f<module-name>]) 


以 下 例子 演示 如 何 使 用 这 些 函 数 ; 


CLIPS> (lisat-deffunctions) 
hypotenuse- length 

primep 

check-input 

factorial 

A 

B 

C 

For a total of 7 deffunctions. 
CLIPS> (get-deffunction-list).! 
(hypotenuse-length primep check-input factorial 
ABC) 

CLIPS> (undeffunction primep) 
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CLIPS> (get-deffunction-list) J 
(hypotenuse-length check-input factorial A B C) 
CLIPS> (ppdeffunction factorial). 
(deffunction MAIN: : factorial 
(?n) 
(if (>= ?n 1) 
then 
(* ?n (factorial (- ?n 1))) 
else 
1)) 
CLIPS> 


当 存 在 引用 这 个 函数 的 其 他 自 定义 函数 或 者 结构 时 ， 无 法 删除 这 个 自 定义 函数 。 在 这 种 情况 下 ， 
只 有 删除 所 有 引用 或 者 执行 cear 命令 才能 删除 这 个 自 定义 函数 。 例 如 ; 


CLIPS> (undeffunction A). 

(PRNTUTIL4] Unable to delete deffunction A. 
CLIPS> (deffunction C (?n))4 

CLIPS> (undeffunction A) 

CLIPS> (undeffunction C) 

(PRNTUTIL4] Unable to delete deffunction C. 
CLIPS> (clear) 

CLIPS> 


用 户 定义 函数 


除了 自 定义 函数 ，CLIPS 还 提供 一 个 方法 调用 用 C 语言 编写 的 函数 。 使 用 这 种 方式 定义 的 函数 称 
为 用 户 定 义 函 数 (user-defined function)。 这 个 名 字 可 以 追溯 到 早期 CLIPS 还 未 提供 自 定义 函数 结构 ， 
加 入 新 的 函数 的 惟一 方法 是 用 C 语言 编写 函数 。 所 以 尽管 自 定义 函数 也 是 由 用 户 定 义 的 ， 也 可 以 称 为 
用 户 定义 函数 ， 但 我 们 只 把 用 C 语言 编写 的 函数 称 为 用 户 定义 函数 。 

本 书 配套 光盘 中 附带 的 “高 级 编程 指南 (Advanced Programming Guide)” 讲 述 了 如 何 创 建 和 添加 一 
个 用 户 定义 函数 到 CLIPS 中 。 一 般 只 有 两 种 情况 下 需要 用 用 户 定义 函数 而 不 使 用 自 定义 函数 。 第 一 种 
情况 是 你 想 集成 到 CLIPS 中 的 代码 已 用 C 语言 编写 好 了 。 重 新 编写 大 量 代码 没有 必要 ， 所 以 多 数 情 况 
下 在 CLIPS 中 就 采用 用 户 定义 函数 的 方式 调用 这 些 代 码 。 第 二 种 情况 是 为 了 提高 速度 ， 特 别 是 对 大 量 
程序 代码 而 言 ， 执 行 一 个 编译 成 机 器 代码 的 C 函数 比 在 CLIPS 提供 的 解释 环境 下 执行 一 个 自 定义 函 数 
快 得 多 。 幸 运 的 是 ， 对 大 多 数 任 务 ， 在 CLIPS 中 可 以 直接 定义 自 定义 函数 的 便利 性 弥补 了 运行 解释 代 
码 的 速度 减 慢 问 题 。 把 用 户 定 义 函 数 添加 到 CLIPS 中 需要 创建 一 个 新 的 CLIPS 可 执行 程序 。 如 果 你 对 
C 编译 器 和 编程 技术 并 不 熟悉 ， 这 可 能 非常 困难 。 在 “高 级 编程 指南 ”中 ,除了 用 户 定义 函数 的 例子 ， 
你 还 可 以 通过 阅读 CLIPS 的 源 代 码 找 到 许多 用 户 定义 函数 ， 这 些 都 包含 在 光盘 中 。 所 有 在 第 7 节 到 第 
12 节 讨 论 的 函数 和 命令 都 可 以 用 用 户 定 义 函 数 的 方法 加 入 到 CLIPS 中 。 


10.4 自 定 义 全 局 变量 结构 


CLIPS 允许 定义 在 结构 外 仍 保持 其 值 的 变量 。 这 些 变量 称 为 全 局 变量 (global variable), HERE, 
所 有 的 变量 都 在 结构 内 使 用 ， 称 为 局 部 变量 (local variable)。 这 些 变量 局 限 在 使 用 它们 的 结构 内 。 例 
如 ， 思 考 以 下 两 条 规则 中 的 变量 ? x: 
(defrule example-1 
(data-1 ?x) 


(printout t "?x = " ?x crlf)) 


(defrule example-2 
(data~2 ?x) 
=> 
(printout t *"?x = " ?x crlf)) 


?x 在 规则 example-1 中 的 值 并 不 影响 ? x 在 规则 example-2 中 的 值 。 如 果 事 实 (data-1 3) 被 断言 ， 
? x 在 规则 example-1 中 被 赋予 3。 这 并 不 会 限制 规则 example-2 中 的 模式 只 能 以 ?x 的 值 为 3 来 匹配 事实 
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data-2。 而 且 ， 斯 言 更 多 的 事实 〈data-1 4) 不 会 限制 在 规则 example] 的 两 次 激活 中 ,? x 的 值 必须 保持 
一 致 。 基 本 上 每 个 部 分 匹配 或 者 规则 的 激活 都 有 自己 的 局 部 变量 。 这 一 点 同样 适用 于 自 定义 函数 的 
调用 。 

全 局 变量 使 用 自 定义 全 局 变量 (defglobal) 结构 定义 。 自 定义 全 局 变量 结构 的 一 般 格式 为 : 

(defglobal [<defmodule-name>] <global-assignment>*) 

HP, <global-assignment > LH: 

<global-variable> = <expression> 

而 < global-variable> EZ MW: 

?*<symbol>* 

<defmodule-name> 是 全 局 变量 所 在 的 模块 。 如 果 没 有 指定 ， 则 指 当前 模块 。 全 局 变量 的 名 字 以 * 
括 住 ， 你 可 以 很 容易 分 辨 出 ?x 是 一 个 局 部 变量 ， 而 ? * x * 是 一 个 全 局 变量 。 当 一 个 自 定 义 全 局 变量 结 
构 被 定义 时 ， 每 个 自 定义 全 局 变量 的 初始 值 由 < expression> 的 计算 结果 决定 ， 该 结果 将 赋 给 自 定义 全 
局 变量 。 例 如 : 


CLIPS> 
(defglobal ?*x* = 3 
Pry* = (+ ?*x* 1))+ 
CLIPS> ?*x*J 
3 
CLIPS> ?*y*.t 
4 
CLIPS> 


注意 全 局 变量 ? x xx 在 ? * yx 之 前 定义 ， 所 以 可 用 来 决定 ?* y* 的 初始 值 。 此 外 ， 由 于 全 局 变量 
在 结构 外 保持 它们 的 值 ， 所 以 在 命令 行 中 输入 全 局 变量 名 就 可 以 获得 其 值 。 除 了 命令 行 ， 在 任何 可 以 
使 用 < expression > 的 地 方 都 可 以 引用 全 局 变量 ， 这 意味 着 你 可 以 在 自 定 义 函数 体 中 或 者 规则 RHS 中 使 
用 它们 。 但 是 你 不 能 把 它们 作为 自 定义 函数 的 参数 ， 而 且 只 有 当 包 含 于 函数 调用 当中 时 ， 才 可 以 在 规 
则 LHS 中 使 用 它们 。 例 如 ， 以 下 结构 都 是 不 合法 的 : 

(deffunction illegal-1 (?*x* ?y) 


(+ ?*x* y)) 


(defrule illegal-2 
(data-1 ?*x*) 
=>) 

(defrule illegal-3 
(data-1 ?x&~?*x*) 
=>) 


自 定义 全 局 变量 命令 


自 定义 全 局 变量 的 值 可 以 用 bind 命令 改变 ， 只 需 在 原来 是 局 部 变量 的 地 方 换 成 全 局 变量 。ppdef- 
global (pretty print defglobal， 漂 亮 打 印 自 定义 全 局 变量 ) 命令 用 来 显示 自 定义 全 局 变量 的 文本 描述 。 
undefglobal 命令 用 来 删除 一 个 自 定义 全 局 变量 。list-defgiobals 命令 用 来 显示 在 CLIPS 中 定义 的 自 定义 全 
局 变量 列表 。 show-defglobals 命令 用 来 显示 CLIPS 中 定义 的 自 定 义 全 局 变量 的 名 字 和 值 。get-defglobal- 
list 函数 返回 一 个 包含 自 定义 全 局 变量 列表 的 多 字段 值 。 这 些 命令 的 语法 如 下 : 


(ppdefglobal <defglobal-name>) 
(undefglobal <defglobal-name>) 
(list-defglobals [<module-name>]) 
(show-defglobals [<module-name>} ) 


(get-defglobal-list [<module-name>] } 
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ELA, ppdefglobal 和 undefglobal 命令 的 < defgiobal-name > 必须 使 用 没有 * 括 住 的 全 局 变量 名 字 
(例如 ， 应 该 用 x 而 不 是 *xx )。 下 面 的 例子 使 用 了 这 些 函数 : 


CLIPS> (ppdefglobal y).i 

(defglobal MAIN ?*y* = (+ ?*x* 1)) 
CLIPS> (list-defglobals)— 

x 

Y 

For a total of 2 defglobals. 
CLIPS> (get-defglobal-list). 


(x y) 

CLIPS> (show-defglobals) 
?*x* = 3 

?*y* = 4 

CLIPS> (bind ?*y* 5)J 

5 

CLIPS> (show-defglobals) .! 
?*x* = 3 

?*yx = 5 


CLIPS> (undefglobal y).J 
CLIPS> (list-defglobals)— 
x 

For a total of 1 defglobal. 
CLIPS> 


自 定义 全 局 变量 重 置 


每 当 执行 reset 命令 ， 或 者 执行 bind 命令 但 不 提供 一 个 新 值 时 ， 自 定义 全 局 变量 的 值 恢复 到 初始 
值 。 例如 : 


CLIPS> (bind ?*x* some~value). 
some-value 

CLIPS> ?*X*.) 

some-value 

CLIPS> (reset). 

CLIPS> ?*xt 

3 

CLIPS> (bind ?*x* another-value)-! 
another-value 

CLIPS> ?*x*.] 

another-value 

CLIPS> (bind ?*x*)J 

3 

CLIPS> ?*x*~! 

3 


CLIPS> 
通过 调用 set-reset-globals 函数 设置 FALSE， 可 以 取消 全 局 变量 的 重 置 。 设 置 TRUE 将 又 人 恢复 重 
置 。 当 取消 重 置 时 reset 命令 不 会 把 全 局 变量 的 值 恢复 为 初始 值 ， 例 如 : 


CLIPS> (bind ?*x* 5)./ 

5 

CLIPS> (set-reset-globais PALSE). 
TRUE 

CLIPS> (reset) — 

CLIPS> ?#x*J 

5 

CLIPS> (set-reset-globals TRUE) 
FALSE 

CLIPS> (reset) 

CLIPS> ?*x#J 

3 

CLIPS> 


监视 自 定义 全 局 变量 
使 用 watch 命令 监视 自 定义 全 局 变量 时 ， 每 当 其 值 发 生 改变 则 会 打印 出 信息 性 消息 。 例 如 : 
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CLIPS> (watch globals) - 
CLIPS> (bind ?*x* 6) 
1== ?*x* ==> 6 <== 3 

6 

CLIPS> (bind ?*x* 7). 
:== ?*x* ==> 7 <== 6 

5 

CLIPS> (reset). 

:== ?*x* ==> 3 <== 7 
CLIPS> (unwatch globals). 
CLIPS> (bind ?*x* 8).J 

8 

CLIPS> 


信息 性 消息 前 面 的 ，== 符 号 表明 出 现 了 一 个 对 全 局 变量 的 赋值 。 随 后 是 被 修改 的 自 定 义 全 局 变 
量 的 名 字 ， 紧 接着 == > 和 新 的 值 ， 而 < == 后 面 是 原来 的 值 。 


自 定义 全 局 变量 和 模式 匹配 


自 定义 全 局 变量 可 以 在 规则 LHS 的 表达 式 中 使 用 ,但 对 自 定义 全 局 变量 的 修改 不 会 激发 模式 匹 
配 。 例 如 ， 思 考 下 面 自 定义 全 局 变量 和 自 定义 规则 ， 
(defglobal ?*z* = 4) 
(defrule global-example 
(data ?z&:(> ?2 ?*z*)) 
=>) 
考虑 data 事实 断言 后 与 global-example 规则 的 单 模式 匹配 ， 结 果 会 怎样 。 


CLIPS> (reset) 
CLIPS> ?7*z#1 
4 


CLIPS> (assert (data 5) (data 6)).! 
<Fact-2> 

CLIPS> (facts) J 

£-0 (initial-fact) 

f-1 (data 5) 

£-2 (data 6) 


For a total of 3 facts. 
CLIPS> (agenda) 


0 global-example: f-1 

0 global-example: 上 -2 
For a total of 2 activations. 
CLIPS> 


当 事 实 (data 5) 被 断言 ， 局 部 变量 ? z 的 值 约束 为 5， 该 值 与 全 局 变量 ? x zx 的 值 4 做 比较 。 因 为 
5 大 于 4，global-example 规则 由 事实 factf-1 激发 。 类 似 的 ，6 比 4 大 ，global-example 规则 由 事实 factf-2 
激发 。 此 时 ， 模 式 匹配 完成 改变? * zx 的 值 不 会 导致 模式 匹配 重新 进行 : 


CLIPS> (bind ?*z* 5) 
5 


CLIPS> (agenda) 


0 global-example: f-1 

0 global-example: f-2 
For a total of 2 activations. 
CLIPS> 


把 ? x zx 的 值 改 为 5， 也 不 会 删除 由 事实 factf-1 引发 的 行为 ， 即 使 此 时 匹配 global-example 规则 的 
事实 data 的 值 5 不 再 大 于 全 局 变量 ? * zx 的 值 。 但 如 果 撤 销 事实 并 重新 断言 ， 则 会 激发 模式 匹配 过 程 ， 
并 像 断言 新 的 事实 一 样 使 用 全 局 变量 的 新 值 。 


CLIPS> (retract 1) 
CLIPS> (assert (data 5)) 


<Fact-3> 
CLIPS> (agenda) 
0 global-example: f-2 


For a total of 1 activation. 
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CLIPS> (assert (data 7)).! 


<Fact-4> 

CLIPS> (agenda) 

0 global-example: f-2 

0 global-example: f-4 
For a total of 2 activations. 
CLIPS> 


当 事 实 (data 5), ， 即 f-1 撤销 并 重新 断言 时 ， 该 事实 不 再 满足 global-example 规则 ， 所 以 不 会 产生 任何 
行为 。 断 言 事实 (data 7) 将 引发 一 个 行为 ， 因 为 ? z 的 值 为 7， 大 于 全 局 变量 ? x zx 的 值 5。 


自 定义 全 局 变量 的 使 用 


自 定义 全 局 变量 通常 用 作 规 则 中 的 常量 或 者 仅 在 规则 RHS 中 传人 信息 ， 而 不 激发 模式 匹配 。 作 为 
常量 时 ， 自 定义 全 局 变量 可 以 使 程序 更 加 易 懂 。 考 虑 下 面 规 则 : 


{defrule plant-advisory 
(temperature ?value Fahrenheit) 
(test (<= ?value 32)) 
=> 
(printout t "It’s freezing." crlf) 
(printout t "Bring your plants inside." crlf)) 


当然 ， 大 多 数 人 知道 结 冰 的 温度 是 华氏 32”( 或 者 摄氏 0 ) ， 所 以 规则 plant-advisory 中 的 常量 32 是 
显而易见 的 。 但 并 不 是 所 有 的 常量 都 是 常识 。 通 过 把 一 个 全 局 变量 赋值 为 32， 我 们 可 以 在 plant-adviso- 
ry 规则 中 使 用 一 个 有 意义 的 符号 使 其 更 加 易 懂 : 

(defglobal ?*water-freezing-point-Fahrenheit* = 32) 


(defrule plant-advisory 
(temperature ?value Fahrenheit) 
(test (<= ?value 
?*water~freezing-point-Fahrenheit*) ) 
=> 
(printout t "It's freezing." crlf) 
(printout t "Bring your plants inside.” crlf)) 


自 定 义 全 局 变量 不 激发 模式 匹配 的 一 个 用 途 是 在 调试 中 。 假 设 你 想 打 印 出 watch 命令 所 不 能 提供 
的 额外 信息 。 有 一 种 方法 是 在 规则 中 添加 以 下 的 printout 或 者 format 命令 : 


(defrule debug-example 
(data ?x) 
=> 
(printout t "Debug-example ?x = " ?x crlf)) 


这 时 就 出 现 一 个 问题 ， 有 时 你 并 不 想 看 到 这 些 信息 ， 那 么 当 你 不 想 看 到 的 时 候 你 必须 删除 掉 或 者 
把 它们 转化 成 注释 。 一 个 便利 的 解决 方法 是 把 输出 调试 信息 的 逻辑 名 字 存 放 在 一 个 自 定义 全 局 变量 中 。 
如 果 使 用 nil 作为 printout RÆ format 的 逻辑 参数 名 ， 将 不 会 产生 任何 输出 (尽管 format 命令 仍然 返回 
格式 化 字符 串 作 为 返回 值 )。 你 可 以 利用 这 一 点 取消 调试 信息 。 以 下 演示 了 如 何 使 用 自 定义 全 局 变量 修 
改 规则 debug-example: 

(defglobal ?*debug-print* = nil) 


(defrule debug-example 
(data ?x) 
=> 
{printout ?*debug-print* 
"Debug-example ?x = " ?x crif)) 


默认 地 ， 调 试 信息 将 被 送 到 逻辑 名 字 nil 中 ， 而 不 会 打印 在 屏幕 上 。 如 果 你 要 在 屏幕 上 看 到 这 些 信 
息 ， 只 需 像 下 面 代码 显示 的 一 样 ， 把 ? x debug-print * 全 局 变量 的 值 赋 为 1: 


CLIPS> (reset) 

CLIPS> (assert (data a) (data b) (data c))1 
<Fact-3> 

CLIPS> (agenda). 





过 程 化 程序 设计 363 





© debug-example: f-1 

0 debug-example: f-2 

0 debug-example: f-3 
For a total of 3 activations. 
CLIPS> (run 1) 

CLIPS> (bind ?*debug-print* t)i 
t 

CLIPS> (run 2) 
Debug-example ?x = b 
Debug-example ?x = c 

CLIPS> 


注意 ， 我 们 在 一 个 debug-example 被 激活 之 后 才 使 用 调试 信息 。 如 果 我 们 把 调试 信息 存放 在 事实 
中 ， 我 们 将 做 不 到 上 面 这 一 点 。 这 种 情况 下 Debug-example 规则 如 下 : 
(defrule debug-example 
(debug-print ?debug-print) 
(data ?x) 
(printout ?debug-print "Debug-example ?x = " ?x 
crif)) 


撤销 debug-print 事实 然后 用 新 值 重新 断言 ， 将 不 可 避免 地 重新 激发 debug-example， 这 正 是 我 们 不 
愿 看 到 的 。 


10.5 自 定 义 类 属 和 自 定义 方法 结构 


除了 使 用 自 定义 函数 结构 定义 函数 以 外 ，CLIPS 还 提供 了 类 属 函 数 。 一 个 类 属 函数 (generic func- 
tion) 本 质 上 是 一 组 相关 的 函数 〈 称 为 方法 ) 共用 一 个 名 字 。 事 实 上 ， 一 个 包含 多 于 一 个 方法 的 类 属 函 
数 称 为 加 载 (overloaded) (因为 相同 的 名 字 指 向 不 止 一 个 方法 )。 在 组 中 的 每 一 个 方法 都 有 自己 的 标 
id: 所 要 求 的 参数 个 数 和 类 型 。 当 调用 一 个 类 属 函 数 时 ， 会 考察 参数 内 容 ， 其 标记 和 之 相 匹配 的 方法 
就 是 被 执行 的 函数 。 这 个 过 程 称 为 类 属 指派 (generic dispatch)。 自 定义 类 属 (deigeneric) 结构 用 来 定 
义 被 一 组 方法 共用 的 公共 类 属 函数 名 。 自 定义 类 属 的 一 般 格 式 为 : 


(defgeneric <defgeneric-name> [<optional-comment>]) 


仅 当 作为 一 个 向 前 声明 时 ， 你 才 需 要 明确 定义 一 个 自 定义 类 属 ， 此 时 ， 你 需要 在 真正 定义 一 个 自 
定义 类 属 的 方法 之 前 引用 一 个 类 属 函数 。 如 果 在 自 定义 类 属 结构 声明 之 前 定义 了 类 属 函 数 的 方法 ， 那 
么 会 自动 产生 一 个 自 定义 类 属 。 

使 用 自 定义 方法 (defmethod) 结构 为 一 个 已 定义 的 类 属 函 数 指定 方法 。 自 定义 方法 的 一 般 格 
AN: 


(defmethod <defgeneric-name> [<index>] 
{<optional-comment>] 
(<regular-parameter-restriction>* 
[<wildcard-parameter-restriction>}]) 

<expression>*) 


定义 自 定义 方法 不 需要 名 字 。 对 组 成 类 属 函 数 的 所 有 方法 都 使 用 同一 个 名 字 < defgeneric-name> » 
但 是 每 一 个 特定 的 方法 ， 都 赋予 了 独一无二 的 整数 作为 索引 ， 可 以 用 来 引用 这 个 方法 。 可 通过 定义 方 
法 时 指定 <index> 值 把 一 个 特定 的 索引 赋 给 一 个 方法 。 如 果 没 有 指定 <index> 值 ，CLIPS 将 自动 产生 
一 个 。 对 于 给 定 的 类 属 函 数 ， 只 有 一 个 方法 对 应 特定 的 参数 标识 (H < regular-parameter-restriction > 和 
< wildcard-parameter-restriction 之 提供 的 值 )。 如 果 为 一 个 类 属 函数 定义 了 与 其 他 方法 有 同样 参数 标识 的 
方法 ,并且 没有 指定 <index> 值 ,那么 已 存在 的 方法 会 被 这 个 新 的 方法 所 覆盖 ， 新 方法 仍 使 用 原来 的 
索引 。 相 反 地 ， 如 果 指 定 了 < index> 值 ,那么 仅 当 <index> 值 与 具有 同样 参数 标识 的 原 有 方法 相同 
时 ， 原 有 的 方法 才 会 被 新 方法 覆盖 。 

每 一 个 Cregular-parameter restriction > 可 以 有 两 种 形式 。 它 可 以 是 一 个 单字 段 变 量 〈 像 在 自 定义 函 
数 中 一 样 )， 或 者 是 下 面 形式 : 
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(<single-field-variable> <type>* [<query>]) 


第 二 种 形式 被 圆 括号 括 住 ， 单 字段 变量 后 面 跟着 0 个 或 多 个 类 型 ， 然 后 是 一 个 可 选 查询 。< type> 
可 以 是 任何 合法 的 类 名 。 详 细 的 内 容 将 在 第 11 章 介绍 ， 目 前 的 例子 将 局 限于 已 用 作 类 型 属性 ， 但 也 是 
XA k) fH: SYMBOL, STRING, LEXEME, INTEGER, FLOAT, NUMBER, INSTANCE-NAME, 
INSTANCE-ADDRESS, INSTANCE, FACT-ADDRESS 和 EXTERNAL-ADDRESS。 如 果 指 定 了 最 后 的 
<dquery> 值 ， 则 必须 是 一 个 全 局 变量 或 者 函数 调用 。 

除了 用 多 字段 变量 取代 了 单字 段 变 量 外 ，< wildcard-parameter-restriction > 和 < regular-parameter-re- 
striction 之 类 似 。 所 以 它 的 两 种 形式 一 是 多 字段 变量 ， 二 是 下 面 形式 ， 


(<multifield-variable> <type>* {<query>]) 


除了 < mujtifield-variable> 取 代 < single-field-variable> h, < type> 和 < query> 值 的 限制 与 < regu- 
lar-parameter-restriction > 中 一 样 。 当 调用 一 个 方法 时 ， 为 < wildcard-parameter-restriction > 指定 的 多 字段 
变量 的 作用 类 似 自 定义 函数 的 通 配 参数 。 方 法 中 超出 参数 个 数 的 所 有 剩余 参数 集中 成 一 个 多 字段 值 传 
递 给 通 配 参数 变量 。 

自 定义 方法 的 最 后 一 部 分 < expression> * 是 方法 体 。 就 如 同 自 定义 规则 的 RHS 或 者 自 定义 函数 的 
函数 体 ， 它 是 一 系列 表达 式 ， 在 方法 被 调用 时 顺序 执行 。 


修订 Check-Input 自 定义 函数 
我 们 重新 回顾 第 10.3 节 的 check-input 自 定义 函数 。 原 来 的 定义 是 : 


(deffunction check-input (?question $?values) 
(printout t ?question " " ?values " ") 
(bind ?answer (read) ) 

(while (not (member$ ?answer ?values)) 
(printout t ?question " " ?values ” ") 
(bind ?answer (read) ) ) 

(return ?answer) ) 


REESRAMHES, RTA RAMTUAR MASE: 


(defmethod check-input (?question $?values) 
(printout t ?question " " ?values * ") 
(bind ?answer (read)) 

(while (not (member$ ?answer ?values) } 
(printout t ?question * * ?values " "} 
{bind ?answer (read))) 

(return ?answer)) 


注意 不 能 用 同名 类 属 函 数 替换 自 定义 函数 ， 反 之 亦 然 ， 所 以 为 了 定义 check-input 自 定义 方法 ， 必 
须 删除 check-input 自 定义 函数 。 刚 才 定 义 的 check-input 自 定义 方法 将 起 到 和 原来 自 定义 函数 一 样 的 作 
用 。 如 果 不 定义 更 多 方法 ， 就 没有 理由 使 用 类 属 函数 而 不 用 原来 的 自 定义 函数 。 所 以 下 面 我 们 检查 棍 
子 程序 另 一 个 部 分 。 回 忆 第 8.9 节 ， 使 用 了 3 个 规则 来 决定 人 类 玩家 移 除 的 棍子 数目 ， 


{defrule get-human-move 
(player-move h) 
(pile-size ?size) 
(test (> ?size 1)} 
=> 
(printout t 
“How many sticks do you wish to take? ") 
(assert (human-takes (read)))) 


(defrule good-human-move 
?whose-turn <- (player-move h) 
(pile-size ?size) 
?number-taken <- (human-takes ?choice) 
(test (and (integerp ?choice) 
(>= ?choice 1) 
(<= ?choice 3) 
(< ?choice ?size))) 
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=> 
{retract ?whose-turn ?number-taken) 
(printout t "Human made a valid move" crlf)) 


(defrule bad-human-move 

?whose-turn <~ (player-move h) 
(pile-size ?size) 
?number~-taken <- (human-takes ?choice) 
{test (or (not (integerp ?choice)) 

(< ?choice 1) 

(> ?choice 3) 

(>= ?choice ?size))) 
=> 
(printout t "Human made an invalid move" crlf) 
(retract ?whose-turn ?number-taken) 
{assert (player-move h))) 


由 于 可 以 移 走 的 棍子 数目 不 总 是 1、2、3， 因 此 不 能 采用 下 面 的 调用 来 询问 用 户 要 移 走 的 棍子 数目 : 


(check-input * How many sticks do you wish to take?” 
1 2 3) 


相反 的 ， 棍 子 数 目 需 要 动态 的 计算 ， 就 如 同 以 下 对 get-human-move 规则 的 更 新 : 


(defrule get-human-move 

(player-move h) 

(pile-size ?size) 

(test (> ?size 1)) 

=> 

(bind ?responses (create$)) 

(bind ?upper-choice (min (- ?size 1) 3)) 

(loop-for-count (?i ?upper-choice) 
(bind ?responses (create$ ?responses ?i))) 
(bind ?answer 
(check-input "How many sticks do you wish to 
take?" 
?responses) ) 

(assert (human-takes ?answer))) 


get-human-move 规则 的 前 4 行动 态 创建 了 一 个 多 字段 值 ， 该 值 包含 了 用 户 可 选择 的 可 能 值 。 可 选 
择 的 值 只 能 是 1、2 或 者 3， 但 它 必须 比 已 有 的 棍子 数目 小 。 计 算 允许 的 回答 是 很 不 方便 的 ， 因 为 当 提 
问题 后 ， 所 有 的 可 能 都 被 显示 。 如 果 check-input 是 询问 用 户 一 个 1 到 100 之 间 的 数 ， 就 会 有 100 ME 
显示 。 添 加 一 个 额外 的 方法 可 以 解决 这 个 问题 。 下 面 的 方法 使 用 类 型 限制 在 调用 check-input 后 为 指定 
的 两 个 整数 采取 专门 的 行为 : 


{defmethod check-input ((?question STRING) 
{?valuel INTEGER) 
(?value2 INTEGER)) 
(printout t ?question " {" ?valuel *-" 
?value2 ") ") 
(bind ?answer (read)) 
(while (or (not (integerp ?answer)) 
(< ?answer ?Valuel) 
{> Panswer ?Value21) ) 
(printout t ?question " (" ?valuel "-" 
?Value2 ") ") 
(bind ?answer (read) ) ) 
(return ?answer) ) 


这 个 方法 和 初始 的 ask-user 方 法 有 一 些 共同 的 代码 ， 但 是 也 有 明显 的 不 同 ， 最 重要 的 是 参数 列表 。 
每 一 个 参数 用 括号 括 住 ， 同 时 包括 其 类 型 。 为 变量 ? quesiton 指定 的 类 型 是 STRING,? valuel 是 INTE- 
CER,? value2 是 INTEGER。 因 为 这 些 限制 ， 这 个 特定 的 方法 只 有 在 这 3 个 参数 都 提供 给 ask-user 并 且 
第 一 个 是 STRING、 第 二 个 是 INTEGER 、 第 三 个 是 INTEGER 时 才 会 被 激发 。 

方法 中 的 另 一 个 改变 是 在 问题 的 后 面 将 打印 出 允许 的 整数 范围 ， 而 不 是 打印 出 每 一 个 整数 。 方 法 
的 最 后 一 个 改变 是 在 while 循环 中 用 3 个 测试 取代 member $ 测试 以 保证 回答 是 一 个 整数 并 且 在 允许 的 
范围 内 。 当 两 个 方法 都 定义 好 后 ， 下 面 简单 的 例子 展示 了 这 些 方法 如 何 恰当 地 使 用 : 
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CLIPS> (check-input “Pick a number” 1 3).! 
Pick a number (1-3) a- 

Pick a number (1-3) 34 

Pick a number (1-3) 3. 

3 

CLIPS> (check-input “Pick a number” 1 2 3)J 
Pick a number (1 2 3) aw 

Pick a number (1 2 3) 34 

Pick a number (1 2 3) 3.) 

3 

CLIPS> 


注意 ， 激 发 的 第 一 个 方法 打印 出 有 效 范围 (1 - 3)， 而 第 二 个 方法 打印 出 有 效 值 列 表 (1 2 3)。 
方法 优先 级 | 


当 调用 一 个 类 属 函数 时 ，CLIPS 只 执行 其 中 一 个 方法 。 决 定 执行 哪 一 个 方法 的 过 程 称 为 类 属 指 派 
(generic dispatch)。 在 前 面 的 例子 中 ， 当 用 一 个 整数 范围 而 不 是 允许 值 列 表 调 用 时 ，check-input 类 属 函 
数 提供 了 不 同 的 行为 。 对 前 面 的 例子 ， 第 二 个 表达 式 是 ; 

(check-input "Pick a number” 1 2 3) 

为 方法 定义 的 两 个 标识 如 下 : 


(?question $?values) 
{?question STRING) (?valuel INTEGER) 
(?value2 INTEGER) 


很 明显 ， 第 一 种 方法 标识 可 以 用 来 计算 这 个 表达 式 ， 因 为 它 需 要 一 个 或 多 个 参数 ， 但 第 二 个 方法 
标识 不 能 用 来 计算 该 表达 式 ， 因 为 它 要 求 3 个 参数 ， 但 却 提供 了 4 个 。 另 一 方面 ， 如 果 我 们 检查 前 面 
例子 的 第 一 个 表达 式 : 

(check-input "Pick a number" 1 3) 

用 它 与 定义 的 方法 标识 比较 ， 很 明显 两 个 方法 标识 都 可 以 处 理 这 个 表达 式 。 同 样 的 ， 第 一 个 方法 
标识 只 需要 1 个 或 多 个 任意 类 型 的 参数 。 而 第 二 个 方法 标识 明确 需要 3 个 参数 : 第 一 个 是 STRING， 
第 二 个 是 INTEGEFR， 第 三 个 是 INTEGER。 由 于 该 表达 式 包含 了 正确 的 参数 个 数 和 类 型 ， 这 个 方法 也 
可 以 被 使 用 。 那 么 如 果 不 止 一 个 方法 可 被 使 用 ，CLIPS 如 何 决 定 使 用 孵 个 方法 呢 ? 

这 个 问题 的 答案 是 ，CLIPS 为 特定 方法 定义 了 一 个 优先 级 次 序 。 如 果 不 止 一 个 方法 可 以 使 用 ， 则 
具有 较 高 优先 级 的 将 会 执行 。preview-generic 命令 用 来 显示 对 应 某 组 参数 可 使 用 方法 的 优先 级 次 序 。 这 
个 命令 的 语法 如 下 : 

(preview-generic <defgeneric-name> <expression>*) 

其 中 < defgeneric name> 参 数 是 类 属 函 数 的 名 字 ， 而 < expression > * 是 被 传递 给 类 属 函 数 的 0 个 或 者 多 
个 参数 。 当 这 个 函数 执行 时 不 会 执行 类 属 函数 。 所 有 可 使 用 方法 将 被 检查 然后 按 优先 级 次 序列 表 。 例 如 


CLIPS> 
(preview-generic check-input “Pick a number” 1 3) 
check-input #2 (STRING} (INTEGER) (INTEGER) 


check-input #1 () $? 
CLIPS> 
输出 验证 了 我 们 已 经 按照 经 验 决定 的 : 整数 范围 检查 的 check-input 方法 比 使 用 通 配 参 数 的 check-input 


值 检查 方法 有 较 高 的 优先 级 。 方 法 #2 是 整数 范围 检查 方法 ， 首 先 被 列 出 来 ， 这 意味 着 它 具 有 最 高 的 
优先 级 。 类 属 函 数 名 后 是 方法 索引 。 然 后 列 出 每 个 参数 可 人 允许 的 类 型 ， 用 括号 括 住 。 在 自 定义 方法 参 
数列 表 中 的 变量 名 没有 什么 作用 ， 所 以 没有 必要 列 出 它们 。 下 一 个 列 出 的 方法 是 # 1。 因为 第 一 个 参数 
没有 类 型 限制 ， 所 以 显示 一 对 空 括号 ()。 余 下 的 参数 是 通 配 参 数 。 如 果 通 配 参数 没有 类 型 限制 ， 那 么 
preview-generic 将 显示 符号 $ ? 来 表达 它 。 

给 定 类 属 函 数 中 的 两 个 方法 ，CLIPS 使 用 以 下 步骤 来 决定 哪 一 个 方法 有 更 高 的 优先 级 : 

1 比较 每 个 方法 的 最 左 未 检查 参数 限制 。 如 果 只 有 一 个 方法 有 剩余 参数 ， 转 到 步骤 6。 如 果 都 没 
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有 剩余 参数 ， 转 到 步骤 7。 否则 ， 执 行 步骤 2。 

2. 如 果 一 个 参数 是 普通 参数 ， 另 一 个 是 通 配 参数 ， 则 具有 普通 参数 的 方法 优先 。 否 则 ， 执 行 步 又 3。 

3. 如 果 一 个 参数 有 类 型 限制 另 一 个 参数 没有 ， 则 有 类 型 限制 的 方法 优先 。 否 则 执行 步骤 4。 

4. 比较 两 个 参数 的 最 左 未 检查 类 型 限制 。 如 果 一 个 参数 的 类 型 限制 比 另 一 个 更 特定 ， 那 么 有 更 特 
定 类 型 限制 的 方法 优先 。 例 如 ， 类 型 限制 INTEGER 比 NUMBER 更 特定 。 如 果 没 有 一 个 类 型 限制 更 特 
Æ (Hin, INTEGER 不 比 LEXEME 更 特定 ) ， 而 且 都 还 有 其 他 类 型 限制 ， 那 么 重复 步骤 4。 如 果 一 个 
参数 有 其 他 类 型 限制 而 另 一 个 没有 ， 那 么 没有 额外 类 型 限制 的 方法 优先 。 否 则 ， 执 行 步骤 5。 

5. 如 果 一 个 参数 有 查询 限制 而 另 一 个 没有 ， 那 么 具有 查询 限制 的 方法 优先 。 否 则 转 到 步骤 1， 比 
较 下 一 对 参数 。 

6. 如 果 方 法 剩余 的 下 一 个 参数 是 普通 参数 ， 这 个 方法 优先 。 否 则 ， 另 一 个 方法 优先 。 

7. 首先 被 定义 的 方法 优先 。 

图 10.1 显示 了 从 步骤 1 到 7 的 等 价 流程 图 。 步 又 1 从 图 左上 角 的 方 框 开 始 。 图 10.2 显示 了 从 步骤 
3 到 4， 决 定 哪 一 个 参数 有 更 特定 参数 限制 的 等 价 流程 图 。 
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图 10.1 方法 优先 级 判定 





比较 每 个 方法 的 最 左 
未 检查 参数 




















具有 参数 供 比 较 
的 方法 优先 


只 有 一 个 方法 有 
参数 供 比较 ? 









No 








两 个 方法 都 有 


参数 供 比较 ? No 








只 有 一 个 参数 是 
普通 参数 ? 











其 中 一 个 参数 有 更 
特定 的 类 型 限制 ? 
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只 有 一 个 参数 有 
类 型 限制 ? 


No 


比较 每 个 方法 最 左 
的 未 检查 类 型 







只 有 一 个 参数 有 Yes 没有 类 型 供 比较 
类 型 供 比较 ? 的 方法 更 特定 
两 个 参数 都 有 类 No 没有 哪 一 个 方法 
型 供 比较 ? 更 特定 

一 个 类 型 比 另 Yes 具有 更 特定 类 型 
一 个 更 特定 ? 的 方法 更 特定 


图 10.2 方法 类 型 特定 性 判定 


使 用 这 些 步 又 我 们 可 以 决定 为 什么 类 属 函数 check-input 中 方法 # 2 比方 法 # 1 有 更 高 的 优先 级 。 
从 步 又 1 开始 ， 比 较 两 个 方法 的 最 左 未 检查 参数 。 方 法 #1 的 参数 限制 是 ( ) 而 方法 # 2 的 参数 限制 是 
(STRING)。 由 于 两 个 方法 都 有 参数 ， 执 行 步骤 2。 两 个 参数 都 是 普通 参数 ， 执 行 步骤 3。 只 有 方法 #2 
有 类 型 限制 方法 #2 ETE H 有 较 高 优先 级 。 

由 于 check-input WE #2 只 允许 我 们 输入 整 型 数据 ， 我 们 创建 男 一 个 方法 以 便 允 许 输 入 指定 范围 
的 浮 点 类 型 数据 : 


(defmethod check-input ((?question STRING) 
(?valuel NUMBER) 
(?value2 NUMBER) ) 
(printout t ?question " (" (float ?valuel) 
"-" (float ?value2) ") ") 
(bind ?answer (read) ) 
(while (or (not (numberp ?answer} ) 
(< ?answer ?valuel) 
(> Panswer ?value2)) 
(printout t ?question " (* (float ?valuel) 
*_" (float ?value2) 
") ") 
(bind ?answer (read))) 
(return ?answer)) 
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这 个 方法 和 先前 的 整数 范围 检查 方法 类 似 ， 除 了 把 参数 限制 INTEGER 替换 成 NUMBER， 它 强制 在 显 
示 有 效 范围 时 ， 任 何 整 型 数据 都 以 浮 点 数 形式 显示 ， 使 用 numberp 而 不 是 integerp 来 检查 无 效 的 类 型 。 
增加 这 个 方法 后 ， 以 下 例子 演示 了 两 个 范围 检查 方法 都 能 正确 执行 : 


CLIPS> (check-input "Pick a number" 1 3.5).| 
Pick a number (1.0-3.5) 64 

Pick a number (1.0-3.5) 2.7.1 

2.7 

CLIPS> (check-input "Pick a number" 1 3) 
Pick a number (1-3) 2.7 

Pick a number (1-3) 2 

2 

CLIPS> 


preview-generic 命令 显示 了 对 于 第 二 个 check-input 类 属 调用 ，3 个 方法 都 能 适用 ， 
CLIPS> 

(preview-generic check-input “Pick a number” 1 3). 

check-input #2 (STRING) (INTEGER) (INTEGER) 

check-input #3 (STRING) (NUMBER) (NUMBER) 

check-input #1 () $? 

CLIPS> 


具有 两 个 INTEGER 限制 的 方法 比 具 有 两 个 NUMBER 限制 的 方法 优先 级 高 。 使 用 优先 级 判定 步骤 
我 们 可 以 明白 其 中 的 道理 。 从 步骤 1 开始 ， 比 较 最 左 的 未 检查 参数 。 方 法 #2 和 方法 #3 都 是 
(STRING)。 由 于 两 个 方法 都 有 参数 ， 执 行 步骤 2。 两 个 参数 都 是 普通 参数 ， 执 行 步骤 3。 都 有 类 型 限 
制 ， 执 行 步骤 4。 类 型 限制 相同 ， 执 行 步骤 $。 没 有 参数 有 查询 限制 ， 重 新 执行 步骤 1。 方 法 #2 的 最 
左 未 检查 参数 限制 是 (INTERGER) 而 方法 #3 是 (NUMBER)。 由 于 都 有 参数 ， 执 行 步骤 2。 都 是 普 


通 参数 ， 执 行 步骤 3。 都 有 类 型 限制 ， 执 行 步骤 4。 由 于 方法 #2 WH INTEGER 类 型 限制 比方 法 #3 的 
NUMBER 类 型 限制 更 特定 ， 因 此 方法 #2 优先 。 


下 面 考虑 优先 级 的 另 一 个 例子 。 在 这 个 例子 中 ， 我 们 定义 了 一 个 方法 ， 除 了 用 INTEGER 和 
FLOAT 取代 原来 的 NUMBER 类 型 限制 外 ， 其 他 和 最 后 一 个 方法 基本 上 一 样 : 


(defmethod check-input ((?question STRING) 
(?valuel INTEGER FLOAT) 


(?value2 INTEGER FLOAT) ) 
(printout t ?question " (" (float ?Valuel) 


"-" (float ?value2) ") ") 
(bind ?answer (read)) 


(while (or (not (numberp ?answer) ) 
(< ?answer ?valuel) 
{> ?answer ?value2)) 
(printout t ?question " (" (float ?valuel) 


_ "=" (float ?value2) ") ") 
(bind ?answer (read))) 
(return ?answer) } 


如 果 我 们 监视 preview-generic 调用 的 结果 ， 会 发 现 新 的 方法 #4 EREDE + 2 AF 3 之 间 
CLIPS> 


(preview-generic check-input "Pick a number" 1 3) 
check-input #2 (STRING) (INTEGER) (INTEGER) 
check-input #4 (STRING) (INTEGER FLOAT) (INTEGER FLOAT) 
check-input #3 (STRING) (NUMBER) (NUMBER) 
check-input #1 () $? 

CLIPS> 


这 是 步骤 4 作用 在 方法 第 二 个 参数 上 的 结果 。 比 较 方法 #3 和 方法 #4, 方法 #4 的 第 一 个 类 型 限 
fil INTEGER 比方 法 #3 的 第 一 个 类 型 限制 NUMBER 更 特定 ， 所 以 方法 #4 有 更 高 的 优先 级 。 比 较 方 
法 #2 ATK 4, WHA H2 的 第 一 个 类 型 限制 INTEGER 和 方法 #4 的 第 一 个 类 型 限制 相同 ， 所 以 执行 


第 二 个 类 型 限制 的 比较 。 由 于 方法 #2 没有 第 二 个 类 型 限制 ， 而 方法 #4 有 ， 所 以 方法 #2 有 更 高 的 优 
先 级 。 











370 第 10 章 





查询 限制 


除了 对 参数 添加 类 型 限制 外 ， 也 可 以 对 参数 添加 查询 限制 。 查 询 限 制 (query restriction) 是 一 个 自 
定义 全 局 变量 引用 或 函数 调用 ， 当 一 个 类 属 函数 被 调用 时 决定 方法 是 否 适 用 。 如 果 查 询 限制 的 结果 是 
FALSE， 那 么 方法 不 可 用 。 对 一 个 参数 的 查询 限制 只 有 在 这 个 参数 的 类 型 限制 满足 了 以 后 才 会 执行 。 
一 个 具有 多 个 参数 的 方法 拥有 多 个 查询 限制 ， 只 有 每 一 个 限制 都 满足 了 这 个 方法 才 可 以 使 用 。 

下 面 看 一 个 例子 演示 查询 限制 的 用 处 。 如 果 我 们 调用 check-input 类 属 函 数 , 但 是 除了 查询 字符 串 
外 不 提供 任何 其 他 参数 ， 我 们 将 得 到 以 下 结果 : 


CLIPS> (check-input "Pick a number") 
Pick a number () 3 
Pick a number () 2 
Pick a number () 5 
Pick a number () 0 


可 适用 于 这 种 情况 的 是 方法 #1， 使 用 了 通 配 参 数 。 由 于 在 查询 字符 串 参 数 ? question 后 没有 提供 其 他 
参数 ， 通 配 参数 $ ? value 约束 为 一 个 长 度 为 0 的 多 字段 值 。 方 法 使 用 的 member $ 测试 将 总 是 返回 
FALSE， 因 为 用 户 提供 的 值 不 可 能 包含 在 空 多 字段 值 中 ， 所 以 方法 将 永远 不 能 返回 。 我 们 可 以 通过 为 
通 配 参数 添加 一 个 查询 限制 来 解决 这 个 问题 ; 


(defmethod check-input 
(?question ($?values (= (length$ ?values) 0))) 
(return FALSE) ) 


在 这 个 方法 中 ， 存 放 在 通 配 参数 $ ? values 中 的 值 通过 调用 length $ 函数 ， 其 返回 值 用 = 函数 与 0 作 比 
较 。 这 就 确保 了 对 空 多 字段 值 时 方法 将 适用 。 注 意 允 许 在 查询 限制 中 使 用 方法 参数 〈 在 这 个 例子 中 是 
?value)。 方 法 所 做 的 就 是 返回 符号 FALSE， 因 为 用 户 不 可 能 提供 合法 的 值 。 有 了 这 个 方法 ， 先 前 的 类 
属 调用 不 再 导致 无 限 循环 : 


CLIPS> (check-input "Pick a number"). 
FALSE 
CLIPS> 


用 这 样 的 查询 字符 串 参 数 调用 preview-generic 显示 ， 在 所 有 参数 都 相同 的 情况 下 ， 方 法 # 5 的 查询 限制 
使 它 比 另 一 个 适用 方法 #1 有 更 高 的 优先 级 : 


CLIPS> 





(preview-generic check-input "Pick a number”). 
check-input #5 () ($? <qry>) 

check-input #1 () $? 

CLIPS> 


再 看 另外 一 种 情况 ， 调 用 check-input 类 属 函数 出 现 无 限 循 环 : 


CLIPS> (check-input "Pick a number" 3 1).! 
Pick a number (3-1) 3 f 

Pick a number (3-1) 2 

Pick a number (3-1) 5 

Pick a number {3-1) 0 


在 这 种 情况 下 ， 可 适用 的 是 方法 #2， 它 具有 一 个 查询 串 和 两 个 整数 参数 。 由 于 不 存在 整数 大 于 或 等 于 
3， 并 且 小 于 或 等 于 1， 用 户 永 远 不 能 提供 满足 类 属 函 数 的 值 。 我 们 可 以 通过 创建 另外 一 个 带 有 查询 限 
制 的 方法 ， 该 查询 限制 检测 上 限 是 否 小 于 下 限 ， 从 而 解决 这 个 问题 


(defmethod check-input ((?question STRING) 
(?valuel INTEGER) 
(?value2 INTEGER 
(< ?value2 ?valuel))) 
{return FALSE) ) 


at FEF IR GF 371 





当 发 现 范围 倒置 时 ， 这 个 方法 仅仅 返回 符号 FALSE。 我 们 可 以 更 进一步 ， 对 范围 值 进行 交换 。 完 
成 这 项 工作 的 一 种 方式 是 复制 代码 但 是 在 适当 的 位 置 交换 变量 ; 


(defmethod check-input ((?question STRING) 
(?valuel INTEGER) 
(?value2 INTEGER 
(< ?value2 ?valuel))) 
(printout t ?question " (" ?Value2 "-" 
?valuel *) ") 
(bind ?answer (read) ) 
(while (or (not (integerp ?answer) ) 
(< ?answer ?value2) 
{> ?answer ?valuel) ) 
(printout t ?question " (" ?value2 "-" 
?Valuel ") ") 
(bind ?answer (read))) 
{return ?answer)) 


这 个 方法 虽然 可 行 ， 但 是 重 写 了 太 多 不 必要 代码 。 更 好 的 方法 是 以 倒置 后 的 参数 重新 调用 类 属 函 数 : 


(defmethod check-input 

((?question STRING) (?valuel INTEGER) 
(?value2 INTEGER (< ?value2 ?valuel))) 
(check-input ?question ?value2 ?valuel)) 


在 这 个 方法 里 面 ， 当 参数 次 序 不 对 时 ， 不 会 出 现 无 限 循环 : 


CLIPS> (check-dinput "Pick a number" 3 1)-.! 
Pick a number (1-3) 3 

3 

CLIPS> 


为 了 完整 性 ， 我 们 增加 一 个 方法 处 理 其 他 用 NUMBER 类 型 指明 范围 的 方法 : 


(defmethod check~input 

((?question STRING) (?valuel NUMBER) 
(?value2 NUMBER {< ?value2 ?valuel))) 
(check-input ?question ?value2 ?valuel) ) 


以 倒置 范围 调用 preview-generic 将 会 显示 出 合理 的 可 用 方法 : 


CLIPS> 
(preview-generic check-input "Pick a number" 3 1)-! 
check-input #6 (STRING) (INTEGER) (INTEGER <qry>) 
check-input #2 (STRING) (INTEGER) (INTEGER) 
check-input #4 (STRING) (INTEGER FLOAT) 

{INTEGER FLOAT) 
check-input #7 (STRING) (NUMBER) (NUMBER <qry>) 
check-input #3 (STRING) (NUMBER) (NUMBER) 
check-input #1 () $? 
CLIPS> 


监视 类 属 函 数 和 方法 


当 使 用 watch 命令 监视 类 属 函 数 时 ， 会 在 函数 开始 和 结束 时 打印 信息 性 消息 。 同 样 当 使 用 watch 
命令 监视 类 属 方法 时 ， 会 在 方法 开始 和 结束 时 打印 信息 性 消息 。 例 如 : 


CLIPS> (watch methods) 

CLIPS> (watch generic-functions)-~ 

CLIPS> (check-input "Pick a number" 3 1)./ 

GNC >> check-input ED:1 ("Pick a number" 3 1) 
MTH >> check-input:#6 ED:1 ("Pick a number" 3 1) 
GNC >> check-input ED:2 ("Pick a number" 1 3) 
MTH >> check-input:#2 ED:2 ("Pick a number" 1 3) 
Pick a number (1-3) 2J 

MTH << check-input:#2 ED:2 ("Pick a number" 1 3) 
GNC << check-input ED:2 ("Pick a number" 1 3) 
MTH << check-input:#6 ED:1 ("Pick a number" 3 1) 
GNC << check-input ED:1 ("Pick a number" 3 1) 

2 

CLIPS> 
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信息 性 消息 开头 的 GNC 表示 和 类 属 函数 相关 。 符 号 > > 表示 激发 了 一 个 类 属 函 数 而 符号 < < 表示 对 类 
属 函 数 的 激发 已 经 结束 。 下 一 个 符号 是 类 属 函数 的 名 字 ， 在 本 例 中 是 check-input RRB. HS ED 
是 Evaluation Depth GRRE) 的 缩写 ， 后 边 跟着 一 个 冒号 和 当前 的 求 值 深度 ， 一 个 整数 。 KARE 
表示 类 属 函 数 和 自 定义 函数 调用 的 嵌 套 信息 。 它 从 零 开 始 ， 每 次 进入 一 个 自 定义 函数 或 者 类 属 函 数 则 
加 一 。 每 次 退出 一 个 自 定义 函数 或 者 类 属 函 数 则 减 一 。 最 后 的 信息 表示 类 属 函数 的 实际 参数 。 以 MTH 
开头 的 是 方法 信息 ， 包 括 了 和 类 属 函数 本 质 上 一 样 的 内 容 。 主 要 不 同 是 在 类 属 函 数 名 后 增加 了 方法 索 
引 ， 表 示 正 在 执行 的 特定 方法 。 

在 本 例 中 ， 你 可 以 看 到 两 个 方法 完成 执行 。 方 法 #6 首先 进入 ， 因 为 结束 范围 参数 1 比 开始 范围 
参数 3 小 。 交 换 参数 后 ，Check-input 类 属 函数 再 次 被 调用 。 由 于 参数 次 序 正 确 ， 方 法 # 2 得 以 执行 。 
用 户 输入 值 2， 是 在 允许 的 范围 内 ， 两 个 方法 都 得 到 返回 。 一 般 监 视 方法 比 监视 类 属 函 数 更 有 用 ， 因 
为 你 想 知 道 正在 执行 的 是 哪 一 个 方法 ， 不 过 可 以 同时 都 看 。 


自 定义 方法 命令 


有 几 个 命令 可 以 操作 自 定义 方法 。ppdefmethod (pretty print defmethod， 漂 亮 打 印 自 定义 方法 ) 命 
令 用 来 显示 自 定义 方法 的 文本 描述 。undefmethod 命令 用 来 删除 自 定义 方法 。list-defmethods 命令 用 来 
显示 CLIPS 中 定义 的 自 定义 方法 列表 。get-defmethod-list 函数 返回 一 个 包含 自 定义 方法 列表 的 多 字段 
值 。 这 些 命令 的 语法 如 下 : 

(ppdefmethod <defgeneric-name> <index>) 

(undefmethod <defgeneric-name> <index>) 

(list-defmethods [<defgeneric-name>] ) 


(get-defmethod-list [<defgeneric-name>] ) 


ppdefmethod 和 undefmethod 命令 与 其 他 结构 的 命令 的 不 同 之 处 在 于 除了 自 定义 类 属 名 外 ， 还 需 指 定 索 
引 。 而 list-defmethods 和 get-defmethod-list 函数 没有 可 选 的 模块 名 参数 。 代 之 的 ， 可 选 参数 是 类 属 函 数 
名 。 如 果 指 定 了 和 名字， 命令 只 对 这 个 类 属 函 数 的 方法 起 作用 ; 否则 ， 将 应 用 于 所 有 类 属 函 数 的 所 有 方 
法 。 以 下 例子 演示 了 如 何 使 用 这 些 命 令 : 


CLIPS> (ppdefmethod check-input 5)-! 
(defmethod MAIN: :check-input 
(?question ($?values (= (length$ ?values) 0))) 
(return FALSE) ) 
CLIPS> (undefmethod check-input 4)! 
CLIPS> (list-defmethods) 
check-input #6 (STRING) (INTEGER) (INTEGER <qry>) 
check-input #2 (STRING) (INTEGER) (INTEGER) 
check-input #7 (STRING) (NUMBER) (NUMBER <qry>) 
check-input #3 (STRING) (NUMBER) (NUMBER) 
check-input #5 () ($? <qry>) 
check-input #1 () $? 
For, a total of 6 methods. 
CLIPS> (get-defmethod-list check-input)— 
(check-input 6 check-input 2 check-input 7 
check-input 3 check-input 5 check-input 1) 
CLIPS> 


注意 用 list-defmethods 命令 列 出 的 方法 列表 以 优先 级 顺序 排列 。get-defmethod-list 函数 的 返回 值 也 
是 同样 ， 它 由 类 属 函 数 名 和 方法 索引 对 组 成 。 
自 定义 类 属 命令 

有 几 个 命令 可 以 操作 自 定义 类 属 。ppdefgeneric (pretty print defgeneric， 漂 亮 打印 自 定义 类 属 ) 命 
令 用 来 显示 自 定义 类 属 的 文本 描述 。undefgeneric 命令 用 来 删除 自 定义 类 属 。list-defgeneric 命令 用 来 显 
示 CLIPS 中 定义 的 自 定义 类 属 列表 。get-defgeneric-list 函数 返回 一 个 包含 自 定 义 类 属 列表 的 多 字段 值 。 
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这 些 命令 的 语法 如 下 : 

7 (ppdefgeneric <defgeneric-name>} 
(undefgeneric <defgeneric-name>) 
(list-defgenerics [<module-name>]) 


(get-defgeneric-list [<defgeneric-name>] ) 


undefgeneric 命令 不 仅 删除 指定 的 自 定义 类 属 ， 还 删除 与 这 个 类 属相 关联 的 所 有 方法 ， 如 下 面 命令 
所 示 : 


CLIPS> (list-defgenerics) — 

check- input 

For a total of 1 defgeneric. 
CLIPS> (undefgeneric check-input)~ 
CLIPS> (list-defgenerics) 

CLIPS> (list-defmethods) J 

CLIPS> 


加 载 函数 和 命令 

自 定义 函数 和 类 属 函数 不 能 共用 ~- 个 相同 的 名 字 ， 但 是 类 属 函 数 可 以 加 载 用 户 定义 函数 。 假 设 你 
想 为 NUMBER 外 的 其 他 数据 类 型 提供 类 似 的 操作 ， 正 常 地 ，CLIPS 不 允许 你 这 样 做 : 

CLIPS> (+ 3 4) 

7 

CLIPS> (+ "red" *blue")— 

[ARGACCES5] Function + expected argument #1 to be 

of type integer or float 

CLIPS> (+ (create$ a bc) (create$ de £))I 

[ARGACCES5] Function + expected argument #1 to be 


of type integer or float 
CLIPS> 


尝试 把 两 个 字符 串 或 两 个 多 字段 值 用 + 相 加 会 产生 错误 。 如 果 我 们 要 实现 把 字符 串 连 接 起 来 以 及 
把 多 字段 值 组 合 的 加 法 运算 ， 则 可 以 通过 定义 方法 使 用 str-cat 和 create $ 函数 来 完成 ; 
(defmethod + ((?x LEXEME) (?y LEXEME) ) 


(str-cat ?x ?y)) 


(defmethod + ((?x MULTIFIELD) (?y MULTIFIELD) ) 
(create$ ?x ?y)) 


这 些 方法 一 旦 定义 ,我 们 就 可 以 相 加 这 些 新 的 数据 类 型 而 不 会 产生 错误 : 


CLIPS> {+ "red" "blue"), 

"redblue" 

CLIPS> (+ (create$ a b c) (create$ de £)) 
(abcde f) 


CLIPS> 
list-defmethods 命令 可 以 列 出 已 定义 的 两 个 新 方法 以 及 CLIPS 中 定义 的 原始 + 函数 ， 它 用 SYS 方法 索 
引 指 明 : 


CLIPS> (list-defmethods +) 

+ #SYS1 (NUMBER) (NUMBER) ($? NUMBER) 
+ #2 (LEXEME) (LEXEME) 

+ #3 (MULTIFIELD) (MULTIFIELD} 

For a total of 3 methods. 

CLIPS> 


注意 ， 当 创建 了 方法 标识 后 ，CLIPS 可 以 决定 系统 定义 的 + 函数 的 数据 类 型 。 在 这 个 例子 中 ,， 原 + A 
数 要 求 两 个 或 更 多 数值 参数 。 ein 

如 果 你 想 加 载 一 个 用 户 定义 函数 ， 必 须 在 定义 任何 引用 此 用 户 定义 函数 的 结构 之 前 加 载 它 。 你 可 
以 通过 明确 定义 一 个 自 定义 类 属 或 在 函数 引用 之 前 定义 一 个 方法 来 隐 含 地 定义 一 个 自 定义 类 属 来 做 到 
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这 一 点 。 在 用 户 定义 函数 加 载 前 进行 的 结构 引用 ， 不 会 使 用 类 属 指派 机 制 ， 将 总 是 调用 用 户 定 义 函 数 . 
在 用 户 定义 函数 加 载 后 进行 的 结构 引用 ， 将 会 使 用 类 属 指派 机 制 。 


10.6 ”过程 化 结构 和 自 定义 模块 


和 有 自 定 义 模板 结构 类 似 、 自 定义 全 局 变量 、 自 定义 函数 和 自 定义 类 属 结 构 可 以 用 模块 输入 和 输出 。 
在 第 9 章 中 讨论 的 与 自 定义 模板 有 关 的 4 种 可 能 的 输入 输出 语句 ， 同 样 可 以 应 用 在 这 些 过 程 化 结构 上 : 


(export ?ALL) 

(export ?NONE) 

(import <module-name> ?ALL) 
(import <module-name> ?NONE) 


第 一 种 格式 将 从 一 个 模块 中 输出 所 有 可 输出 的 结构 ; 第 二 种 格式 表示 没有 结构 输出 ; 第 三 种 格式 
输入 指定 模块 的 所 有 可 输出 结构 ; 第 四 种 格式 表示 在 指定 模块 中 没有 输出 结构 输入 。 

目 定义 全 局 变量 、 自 定义 函数 和 自 定义 类 属 结构 都 有 相应 的 输入 /输出 语句 可 以 规定 输入 /输出 所 
有 、 没 有 或 指定 的 一 组 结构 : 


(export defglobal ?ALL) 
(export defglobal ?NONE) 
(export defglobal <defglobal-name>+) 


(export deffunction ?ALL) 
(export deffunction ?NONE) 
(export deffunction <deffunction-name>+) 


(export defgeneric ?ALL) 
(export defgeneric ?NONE) 
{export defgeneric <defgeneric-name>+) 


(import <module-name> defglobal ?ALL) 

(import <module-name> defglobal ?NONE) 

(import <module-name> defglobal 
<defglobal-name>+) 


(import <module-name> deffunction ?ALL) 

(import <module-name> deffunction ?NONE) 

(import <module-name> deffunction 
<deffunction-name>+) 


(import <module-name> defgeneric ?ALL) 

{import <module-name> defgeneric ?NONE) 

(import <module-name> defgeneric 
<defgeneric-name>t+) 


当 输入 /输出 特定 自 定义 全 局 变量 时 ， 不 能 包含 自 定 义 全 局 变量 名 的 开始 和 结束 符号 * 。 例 如 ， 使 
用 water-freezing-point-Fahrenheit， 而 不 是 * water-freezing-point-Fahrenheit * 。 输 入 自 定义 类 属 结构 到 
一 个 模块 同时 也 输入 其 所 有 方法 。 不 能 输入 或 输出 某 个 特定 的 方法 。 一 个 没有 从 别 的 模块 输入 自 定义 
全 局 变量 、 自 定义 函数 或 自 定义 类 属 结构 的 模块 可 以 用 相同 的 名 字 创 建 该 结构 。 引 用 一 个 没有 正确 输 
入 或 输出 的 结构 会 产生 错误 ,例如 : 


CLIPS> (clear) 

CLIPS> 

(defmodule MAIN 
{export deffunction function-1) 
(export defglobal global-1) 
(export defgeneric generic-1))-! 

CLIPS> 

(deffunction MAIN: :function-1 (?x) 
{+ 1 ?x))4 

CLIPS> 

(deffunction MAIN: :function-2 (7x) 
(+ 2 ?3X) ) .| 

CLIPS= 
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(defglobal MAIN ?*global-1* = 1 
?*global-2* = 2) 
CLIPS> 
(defmodule EXAMPLE 
(import MAIN deffunction ?ALL) 
(import MAIN defglobal globai-1))W 
CLIPS> 
(defglobal EXAMPLE ?*global-2* = 3) 
CLIPS> 


EXAMPLE 模块 通过 关键 字 ? ALL 从 MAIN 模块 隐 式 地 输入 自 定 义 全 局 变量 global-1。 通 过 指定 名 
字 显 式 地 从 MAIN 模块 输入 自 定 义 函 数 function-1。 输 入 输出 语句 的 结果 可 以 通过 存 取 每 个 模块 的 结构 
看 到 : 

CLIPS> (get-current-module) J 

EXAMPLE 

CLIPS> (funetion-1 1) 

CLIPS> (function-2 1) 

[EXPRNPSR3] Missing function declaration for 


function-2. 
CLIPS> ?*global-1*W 
1 


CLIPS> ?*global-2+*J 

3 

CLIPS> (set~-current-module MAIN). 
EXAMPLE 

CLIPS> (funetion-1 1). 

2 


CLIPS> (function-2 1). 
3 


CLIPS> ?*global~1*.J 
1 

CLIPS> ?*global-2*J 
2 

CLIPS> 


10.7 有 用 的 命令 和 函数 


调 入 和 保存 事实 


一 个 CLIPS 程序 的 运行 速度 可 通过 减少 事实 列表 中 的 事实 数 来 提高 。 减 少 事实 数 的 一 个 方法 是 ， 
当 需 要 用 到 这 些 事实 时 才 将 它们 装 进 CLIPS 中 。 例 如 ， 一 个 用 来 诊断 汽车 故障 的 程序 也 许 首先 要 询问 
汽车 制造 商 和 汽车 型 号 ， 然 后 才 将 该 车 的 特定 信息 装 到 程序 中 。CLIPS 提供 了 函数 load-facts 和 save- 
facts， 它 们 允许 事实 从 文件 中 读 出 或 保存 到 文件 中 。 这 两 个 函数 的 语法 是 : 

(load-facts <file-name>) 


{save-facts <file-name> 
[<save-scope> <deftemplate-names>*]) 


其 中 < save scope > MH: 

visible | local 

函数 load-facts 将 装 和 人 一 组 存 于 < fle-name> 指 定 的 文件 中 的 事实 。 文 件 中 的 事实 应 该 符合 标准 格 
式 ， 即 ， 或 者 是 一 个 有 序 事实 ， 或 者 是 一 个 自 定义 模板 事实 。 例 如 ， 如 果 文件 facts. dat 包含 : 


(data 34) 
{data 89) 
(data 64) 
(data 34) 


则 命令 


(load-facts "facts.dat") 
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将 调 人 该 文件 所 包含 的 事实 。 

函数 save-facts 用 于 将 事实 列表 中 的 事实 保存 到 < file-name> 指 定 的 文件 中 。 这 些 事实 的 存储 格式 
由 load-facts 函数 规定 。 如 果 没 有 说 明 < save-scope > 或 它 指定 为 local， 则 只 有 那些 对 应 着 当前 模块 中 已 
定义 的 自 定义 模板 事实 才能 够 保存 到 此 文件 中 。 如 果 < save-scope> 指 定 为 visible， 则 所 有 对 应 于 当前 
模块 可 见 的 自 定义 模板 事实 被 保存 到 文件 中 。 如 果 指 定 了 < save-scope > ， 则 也 可 以 指定 一 个 或 以 上 的 
自 定义 模板 名 。 在 这 种 情况 下 ， 只 有 和 特定 自 定 义 模板 对 应 的 事实 才 被 保存 (但 自 定义 模板 名 仍 须 满 
Æ local 或 visible 说 明 )。 

如 果 能 够 成 功 打开 ， 然 后 调 人 或 保存 该 事实 文件 ， 则 load-facts 和 save-facts 返回 TRUE; BWM, i 
回 FALSE。 当 load-facts 命令 执行 时 ， 程 序 员 必 须 确 保 在 事实 文件 中 的 自 定义 模板 事实 所 对 应 的 自 定义 
模板 对 于 当前 模块 来 说 是 可 见 的 。 


System 命令 
System 命令 允许 从 CLIPS 中 调用 操作 系统 命令 。 命 令 的 语法 为 : 


(system <expression>+) 


例如 ， 下 面 的 规则 可 以 显示 出 使 用 Unix 操作 系统 的 机 器 上 指定 目录 的 目录 表 : 


(defrule list-directory 
(list-directory ?directory) 
=> 
(system "ls " ?directory) ) 


对 于 本 例 ，system 命令 的 第 一 个 参数 “ls” 是 UNIX 系统 的 列 目 命令 。 注 意 格式 中 字符 后 有 一 个 空格 。 
在 允许 操作 系统 处 理 该 命令 之 前 ，system 命令 只 是 将 所 有 的 参数 一 起 作为 一 个 字符 串 。 操 作 系 统 所 需 
的 任何 空格 都 必须 作为 system (系统 ) 命令 调用 的 一 部 分 包容 进去 。 

对 于 不 同 的 操作 系统 ，system 命令 的 作用 可 以 不 同 。 并 非 所 有 的 操作 系统 都 提供 实现 system 命令 
的 功能 ， 所 以 ， 你 不 能 指望 此 命令 能 在 CLIPS 中 运用 。 而 且 system 命令 并 不 返回 任何 值 ， 所 以 ， 在 执 
行 一 个 操作 系统 命令 之 后 ， 不 可 能 直接 将 值 返回 给 CLIPS. 


Batch 命令 


batch (WAE) 命令 允许 命令 和 响应 直接 从 文件 中 读 人 ， 这 些 命 令 和 响应 一 般 是 在 顶层 提示 符 下 
输入 的 。batch 命令 的 语法 如 下 : 


(batch <file-name>) 


例如 ， 设 想 下 面 的 对 话 中 的 命令 和 响应 必须 输入 ， 以 运用 CLIPS EF OE: 粗 体 字 表明 你 要 输 
人 的 内 容 )。 


CLIPS> (load "rulesi.clp") 


KKK KKKK KK KKK 
CLIPS> (load "“rules2.clp") 


KERKKKKEK AKER RK K 


CLIPS> (load "rules3.clp") 
RRR 

CLIPS> (reset) 

CLIPS> (run) 

How many iterations? 10 
Starting value? 14 

End value? 20 

Completed 

CLIPS> 


需要 运行 该 程序 的 命令 和 响应 可 存 人 一 个 文件 中 ， 如 下 所 示 : 


(load "rulesi.clp") 
(load "rules2.clp")4 
(load "rules3.clp")J 
(reset) 
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(run) J 
10.5 
1 
20.4 


如 果 这 个 包含 命令 和 响应 的 文件 取 名 为 commands.bat， 则 下 面 的 对 话 将 表明 如 何 使 用 batch 命令 : 


CLIPS> (batch "commands .batn).| 
CLIPS> (load "rulesi.clp")4 


RRR RAKE K EK 


CLIPS> (reset) 

CLIPS> (run) 

How many iterations? 10J 
Starting value? 1.) 

End value? 20 

Completed 

CLIPS> 


一 旦 所 有 的 命令 和 响应 均 从 此 批文 件 中 读 取 完 ， 则 在 顶层 提示 符 下 的 键盘 交互 将 回 到 正常 状态 。 

当 在 支持 命令 行 参数 的 操作 系统 (如 Unix) 中 运行 时 ，CLIPS 能 在 启动 时 自动 地 执行 批 处 理 文件 
中 的 命令 。 假 定 敲 入“clips” 就 能 执行 CLIPS 的 可 执行 命令 ， 那 么 ， 在 启动 时 执行 一 个 批 处 理 文件 的 
语法 如 下 : 

clips -f <file-name> 

— E CLIPS 开始 运行 ， 则 使 用 -{ 选项 就 等 价 于 输入 了 命令 (batch <file-name> )。 对 batch 命令 的 
WFAA URE. 


Dribble-on 和 Dribble-off 命令 
dribble-on 命令 可 用 来 把 所 有 输出 到 终端 的 记录 或 从 键盘 来 的 所 有 输入 保存 起 来 。 其 语法 如 下 : 


(Gribble-on <file-name>) 

一 日 执行 dribble-on 命令 ， 则 送 到 终端 的 所 有 输出 和 从 键盘 键 人 的 所 有 输入 都 将 会 送 到 由 < file- 
name> 指 定 的 文件 中 ， 就 像 送 到 终端 一 样 。 

dribble-on 命令 的 作用 可 以 用 dribble-off 命令 取消 ， 其 语法 是 : 


(dribble-off) 


产生 随机 数 
random 函数 产生 一 个 随机 整数 。 它 的 语法 如 下 : 


(random [<start-expression> <end-expression]) 


其 中 ， 如 果 指 定 了 < start-expression> Ñ< end-expression > ， 则 必须 为 整数 ， 表 示 所 返回 随机 整数 受 限 
的 整数 范围 。 例 如 ， 下 面 的 roll-die 自 定义 函数 使 用 random 函数 产生 抛 六 面 角 子 的 随机 数 ， 其 值 在 1 到 
6 之 间 : 


(deffunction roll-die () 
(random 1 6)} 


多 次 调用 roll-die 自 定义 函数 会 返回 不 同 的 值 : 


CLIPS> (roli-die) 
6 
CLIPS> (roll-die)}).] 
1 
CLIPS> (roll-die}. 
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4 
CLIPS> (roll-die) 
1 


CLIPS> 
seed 函数 可 以 用 来 生成 随机 数 种 子 ， 使 得 下 一 次 通过 相同 的 种 子 得 到 相同 的 随机 数 。seed 函数 的 语法 
如 下 : 


(seed <integer-expression>) 


其 中 ， < integer-expression> 是 种 子 值 。 seed 命令 令 的 作用 是 重复 产生 相同 的 随机 数 ， 这 可 从 下 面 的 一 组 
命令 中 看 到 ， 


CLIPS> (seed 30). 

CLIPS> (roll-die) 
cLrps> (roll-die) 
CLIPS> (roll-die} 
Zites» {seed 30) 

CLIPS> (roll-die) 
CLIPS» (roll-die) 
crrps> (roll-die)-~ 
cLIPs> 


转化 字符 串 为 字段 
string-to-field 函数 用 来 把 一 个 字符 串 字段 转化 成 一 个 字段 。 它 的 语法 如 下 ; 


(string-to-field <string-expression>) 


HH, <string-expression > 是 要 解析 和 转化 的 字符 串 字 段 。 例 如 : 


CLIPS> (string-to-field "7") J 

7 

CLIPS> (string-to-field " 3.4 2.1 3") 
3.4 

CLIPS> 


第 一 个 string-to-field 调用 的 例子 把 字符 串 字 段 7.3 转化 成 整数 字段 值 7。 第 二 个 例子 所 传人 的 字符 串 参 
数 有 多 个 字段 ， 第 一 个 字段 被 获取 ， 返 回 浮 点 数字 段 3.4， 字 符 串 中 的 其 他 字段 被 抛弃 。 注 意 字 符 串 
中 的 额外 空格 不 会 影响 返回 值 。 基 本 上 ， 调 用 string-to-field 等 同 于 调用 read 函数 ， 其 中 的 字符 串 参 数 
代表 用 户 从 键盘 输入 的 内 容 。 


查找 符号 
apropos 命令 用 来 显示 CLIPS 中 定义 的 所 有 具有 指定 子 串 的 符号 。 它 的 语法 如 下 : 


(apropos <symbol-or-string- expression>) 

其 中 ，< symbolLor-string-expression > 是 待 查找 子 串 。 当 需要 显示 具有 共同 子 串 的 函数 和 命令 列表 
或 者 你 只 记得 函数 、 命 令 和 结构 的 部 分 而 不 是 整个 符号 时 ，apropos 命令 特别 有 用 。 例 如 ， 假 设 你 要 列 
出 所 有 包含 符号 deftemplate 的 函数 和 命令 : 


CLIPS> (apropos deftemplate). 
get-deftemplate-list 
deftemplate 

list-deftemplates 
undeftemplate 

ppdeftemplate 
deftemplate-module 

CLIPS> 
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排序 字段 表 
sort 函数 应 用 于 字段 表 上 。 其 语法 如 下 : 


{sort <comparison-function-name> <expression>*) 


其 中 ，< comparison-function-name> 用 来 决定 在 排序 过 程 中 两 个 字段 之 间 是 否 需要 交换 的 函数 、 自 
定义 函数 或 者 类 属 函 数 的 名 。 其 余 由 < expression> * 表示 的 参数 ， 可 以 是 单字 段 或 多 字段 值 。 它 们 被 
拼接 成 单个 多 字段 值 ， 然 后 进行 排序 。 函 数 的 返回 值 是 一 个 排 好 序 的 多 字段 值 。 下 面 例子 对 一 个 整数 
表 排 序 : 


CLIPS> (sort > 435 7 2 7) 
(23.45 7 7) 
CLIPS> 


sort 函数 不 仅仅 限于 对 数值 排序 。 例 如 ， 考 虑 下 面 自 定义 函数 : 


(deffunction string> (?a ?b) 
(> (str-compare ?a ?b) 0)) 


sort 函数 中 的 任何 比较 函数 接受 两 个 参数 ， 然 后 在 第 一 个 参数 在 排序 表 中 应 排 在 第 二 个 参数 的 后 
面 时 返回 TRUE， 否 则 返回 FALSE。 当 第 一 个 参数 词典 排序 比 第 二 个 参数 大 的 时 候 ，str-compare 函数 
将 返回 一 个 正 数 。 所 以 通过 用 > 函数 比较 返回 值 和 10 的 关系 ，string> 自 定义 函数 可 以 用 来 对 符号 或 字 
符 串 表 进 行 词典 排序 。 例 如 ; 


CLIPS> (sort string> ax aa bk mn ft m) 
(aa ax bk ft m mn) 
CLIPS> 


Str-compare 函数 认为 所 有 的 大 写字 母 都 比 小 写字 母 小 。 所 以 如 果 你 对 大 小 写 混合 字母 排序 ， 结 果 
可 能 和 预期 的 不 同 : 


CLIPS> (sort string> aCbAB c)J 
{ABCabc} 
CLIPS> 


从 输出 内 容 可 以 看 到 ， 所 有 的 大 写字 母 都 排 在 小 写字 母 前 面 。string > 函数 可 以 修改 成 把 大 小 写字 
母 放 在 一 起 : 


{deffunction string> (?a ?b) 
(bind ?rv (str-compare (lowcase ?a) 
(lowcase ?b))) 
(if (= ?rv 0) 
then 
(> (str-compare ?a ?b) 0) 
else 
{> ?rv 0))) 


字符 串 首先 被 转化 成 小 写字 母 ， 然 后 进行 比较 。 只 有 当 字 符 串 相 等 时 才 考 虑 大 小 写 。 这 得 到 了 以 
下 显示 的 预期 结果 : , 
CLIPS> (sort string> aC bAB e)d 


{Aa BbC oc) 
CLIPS> 


使 用 sort 函数 要 注意 的 最 后 一 点 是 只 有 当 两 个 值 需要 交换 时 比较 函数 才 应 返回 TRUE。 考 虑 一 下 调用 : 


CLIPS> (sort <> 3 45 6) 


在 这 个 例子 中 ，sort 函数 调用 < > 函数 来 决定 字段 是 否 需要 交换 。 由 于 各 个 字段 互 不 相同 ，< > 
函数 总 是 返回 TRUE， 排 序 永远 不 会 完成 。 显 然 这 是 你 应 该 避免 的 情况 。 


10.8 小 结 
if, while, switch, loop-for-count, progn $ 和 break 区 数 可 以 用 在 自 定义 孙 数 、 类 属 电 数 或 规则 的 
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RHS 中 进行 流程 控制 。 在 规则 RHS Pat 2 (i FI HS RR AN FY ES. Halt 函数 可 以 用 来 终止 规 
则 的 执行 。 

自 定 义 函数 允许 你 像 在 其 他 过 程 化 语言 中 一 样 ， 定 义 新 的 函数 ， 但 不 需要 使 用 C 编译 器 来 重新 编 
译 CLIPS WKH. AS, CLIPS 也 提供 了 机 制 可 以 把 C 语 言 写 的 函数 集成 到 CLIPS 中 ， 在 “高 级 编程 
指南 ”中 有 详细 介绍 ， 但 这 需要 使 用 C 语言 编译 器 来 生成 一 个 新 的 CLIPS 可 执行 代码 。 

自 定义 全 局 变量 结构 允许 你 定义 变量 ， 称 为 全 局 变量 ,它们 在 结构 外 仍 能 保持 其 值 。 使 用 自 定义 
类 属 和 自 定 义 方法 结构 实现 的 类 属 函 数 通过 允许 以 一 个 相同 的 名 字 访 问 多 个 过 程 化 方法 ， 而 提供 比 自 
定义 函数 更 强大 和 灵活 的 功能 。 当 一 个 类 属 聘 数 被 调用 时 ， 类 属 指派 机 制 检 查 传 给 函数 的 参数 类 型 ， 
并 计算 相关 查询 限制 来 决定 应 该 激发 的 适当 方法 。 

本 章 介绍 了 几 个 实用 命令 。save-facts 和 load-facts 函数 用 来 保存 事实 到 一 个 文件 或 从 文件 中 调 入 事 
实 。system 命令 允许 从 CLIPS 中 调用 操作 系统 命令 。batch 命令 允许 把 一 系列 命令 和 响应 存储 在 文件 中 
而 取代 普通 的 键盘 输入 。dribble-on 和 dribble-off 命令 允许 终端 输出 的 记录 保存 在 文件 中 。random 函数 
用 来 产生 一 个 随机 整数 。seed 函数 用 来 生成 随机 数 种 子 。string-to-field 函数 用 来 解析 字符 串 中 的 字段 。 
apropos 命令 用 来 显示 所 有 包含 指定 子 串 的 符号 。sort 函数 用 来 排序 字段 表 。 


习题 
10.1 把 下 面 规则 重 写 成 一 个 或 多 个 规则 ， 不 使 用 过 和 while 函数 。 通 过 比较 你 的 规则 和 下 面 规则 的 输 
出 和 最 后 事实 表 ， 验 证 你 的 规则 实现 了 相同 的 功能 。 


(defrule continue-check 

?phase <- (phase check-continue) 

=> 

(retract ?phase) 

(printout t "Continue? ") 

(bind ?answer (read) ) 

(while (and (neq ?answer yes) (neq ?answer no)) do 
(printout t "Continue? ") 
(bind ?answer (read))) 

(if (eq ?answer yes) 
then (assert (phase continue) ) 
else (assert (phase halt)))) 


10.2 给 出 一 个 Nx N 的 棋盘 ， 其 中 N 是 整数 。 写 一 个 程序 把 N 个 皇后 放 在 棋盘 上 ， 使 得 没有 皇后 
可 以 抓 住 另外 一 个 皇后 。 提 示 : 使 用 4 行 4 列 开发 程序 。 这 是 能 够 找到 解决 方案 的 最 小 数目 
(除了 1x1 棋盘 外 ) 

10.3 ”修改 习题 9.12 的 程序 ， 使 得 如 果 没 有 灌木 符合 所 有 要 求 ， 则 列 出 符合 最 多 要 求 的 灌木 ， 并 打印 
出 符合 的 要 求 数 。 

10.4 使 用 模块 修改 习题 9.17 的 程序 。 如 果 对 指定 的 颜色 、 硬 度 和 密度 没有 匹配 的 宝石 ， 程 序 应 能 指 
出 这 一 点 。 在 辨别 出 一 种 宝石 后 ， 程 序 应 提供 用 户 辨 别 其 他 宝石 的 机 会 。 

10.5 组 合 习 题 9.14 和 9.15 的 程序 ， 使 得 有 一 个 文本 菜单 窗口 可 以 启动 一 个 应 用 程序 、 结 束 一 个 应 
用 程序 和 退出 程序 。 当 选中 启动 条 目 时 ， 提 示 用 户 输入 应 用 程序 名 以 及 所 需要 的 内 存 。 当 选择 
结束 条 目 时 ， 提 示 用 户 输入 结束 应 用 程序 名 。 

10.6 修改 习题 9.15 的 程序 ， 使 得 可 以 支持 子 菜单 。 例 如 ， 


CLIPS> (run) 
Select one of the following options: 
1 — Option A 


2 ~ Option B 
3 — Submenu 1 
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9 — Quit Program 
Your choice: 3 


Select one of the following options: 


1 — Option C 
2 — Option D 
9 — Previous Menu 


Your choice: 9 
Select one of the following options: 


1 — Option A 
2 — Option B 
3 — Submenu 1 
9 — Quit Program 


Your choice: 9 


CLIPS> 


10.7 修改 习题 9.18 的 程序 ， 以 便 为 一 个 学 生 安 排 6 门 课程 。 程 序 应 最 大 化 6 门 课程 的 全 部 得 分 〈 见 
习题 9.18)。 程 序 输 入 是 代表 安排 的 课程 的 6 个 事实 ， 输 出 是 按 1 一 6 上 课时 间 排 列 的 课程 表 。 








用 下 面 课程 表 测 试 你 的 程序 。 

Course Instructors Periods Instructors Periods Not 
Preferred Preferred Not Preferred Preferred 

Texas History Hill 2,5 - 1, 3 
Algebra Smith 1,2 Jones 6 
Physical Education - Mack, King 1 
Chemistry Dolby - 
Literature - , - 1, 6 
German 


10.8 ”扑克 选手 发 了 5 张 牌 。 以 这 5 张 牌 作为 输入 事实 ， 写 一 个 程序 打印 出 选手 手中 牌 的 类 型 : 
同 花 大 顺 、 同 花 顺 、 四 张 相 同 、 三 个 和 一 对 、 同 花 、 顺 子 、 三 张 相 同 的 牌 、 两 对 、 一 对 、 什 么 





都 不 是 。 
10.9 写 一 个 程序 通过 把 所 有 常量 移 到 等 号 右边 、 把 所 有 变量 移 到 等 号 左边 和 约 减 相同 项 来 简化 代数 
等 式 。 例 如 : 
2x+yr+rS+3y-22z2-8 =32-4y+4 
可 以 简化 为 : 


2x+8y-5z=7 


由 于 = 符号 在 模式 中 有 特别 的 意义 ， 你 可 通过 隐 含 = 符号 的 方式 来 表达 等 式 。 例 如 ; 
(equation (LHS 2x+y+5+3Y-22z- 8) 
(RHS 3 z ~- 4 y + 4)) 


10.10 组 合 习题 9.19 和 习题 10.6， 以 便 为 配置 程序 创建 一 个 菜单 驱动 窗口 。 主 菜单 选项 有 选择 底座 、 
增加 小 装置 、 删 除 小 装置 、 打 印 配置 花费 。 子 菜单 进行 底座 的 选择 以 及 小 装置 的 增删 。 选 择 一 
个 底盘 或 者 增删 一 个 小 装置 后 ， 如 果 所 提供 的 小 装置 、 支 架 数 目 以 及 底座 提供 的 动力 之 间 有 冲 
突 ， 则 打印 警告 信息 。 然 后 把 控制 返回 主 菜单 。 选 择 打印 配置 菜单 选项 则 列 出 所 选 底座 和 小 装 
置 各 自 的 价格 以 及 加 在 一 起 的 总 价 。 

10.11 使 用 第 2.2 节 的 算法 写 一 个 自 定义 函数 ， 把 字符 串 137179766832525156430015 转化 成 GOLD 
438+ 。 
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提示 : 使 用 子 串 和 string-to-field 函数 把 字符 串 中 的 数字 抽取 出 来 ， 然 后 用 带 %c 标志 的 format 

函数 把 数字 转换 成 字符 。 

写 一 个 自 定义 函数 计算 两 个 多 字段 值 的 并 和 交 。 注 意 当 计算 并 和 交 时 ， 重 复 的 字段 不 应 该 出 现 

在 返回 值 中 。 

写 一 个 自 定义 函 数 计 算 抛 掷 一 个 六 面 仍 子 某 一 面 的 经 验 概 率 (如 第 4.6 节 所 述 )。 自 定义 函数 

的 参数 为 钥 子 面 数 ， 返 回 值 为 经 验 概率 。 

写 一 个 自 定义 函数 找 出 从 1 到 指定 整数 间 的 所 有 质数 ， 以 多 字段 值 的 形式 返回 这 些 质数 。 

写 一 个 自 定义 函数 计算 一 个 字符 串 在 另 一 个 字符 串 中 出 现 的 次 数 。 

写 一 个 自 定义 函数 一 行 一 行 的 比较 两 个 文件 ， 把 区 别 打印 到 一 个 指定 的 逻辑 名 。 

写 一 个 自 定义 函数 ， 接 受 0 个 或 多 个 参数 ， 返 回 包 含 这 些 参数 并 以 逆序 存放 的 多 字段 值 。 

写 一 个 自 定义 函数 不 采用 递归 计算 整数 N 的 阶乘 。 , 

写 一 个 自 定 义 函 数 把 一 个 包含 0 和 1 的 二 进 制 字符 串 转换 成 十 进 制 数 。 

不 使 用 过 和 switch 销 数 ， 写 一 组 方法 提供 度量 单位 英寸 、 英 尺 和 码 的 互相 转换 。 例 如 ，(con- 

vert 3 feet inches) 返回 36。 写 另 一 组 方法 提供 度量 单位 厘米 、 米 和 千 米 的 转换 。 

使 用 习题 10.20 的 方法 ， 加 载 + 函数， 允许 两 个 度量 单位 相 加 。 返 回 结 果 的 单位 为 + 方法 第 一 

个 参数 的 单位 。 例 如 ，(+ 3 feet 12 inches) 返回 4。 不 需要 另外 提供 英 式 度量 和 米 之 间 转 换 的 

方法 。 

加 载 -函数 ， 使 之 去 掉 两 个 多 字段 值 的 重复 字段 。 例 如 ，(- (create$ abcd) (create$ bdf)) 返 

回 多 字段 值 (a c)。 

为 第 5.5 节 的 S- 函 数 的 4 种 情况 写 一 个 方法 。 

给 定 习题 2.11 的 宕 集 定义 ， 写 一 个 自 定义 消 数 打 印 由 多 字段 值 表达 的 军 集 中 包含 的 每 一 个 
a 

Jack 的 汽车 里 程 数 N 在 200 000 和 300 000 之 间 。N 的 十 进 制 表示 中 只 有 一 个 0。N 可 平方 数 。 

N 的 每 个 十 进 制 位 数 的 平方 和 也 可 平方 数 。 写 - -个 或 多 个 自 定义 函数 计算 N 的 值 。 
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11.1 概述 


除了 事实 ,实例 (或 对 象 ) 也 是 CLIPS 提供 的 男 一 种 数据 表示 。 实 例 从 类 创建 ， 类 使 用 CLIPS 面向 
WRI (COOL) 定义 。 就 像 事实 结构 使 用 自 定义 模板 说 明 -… 样 ， 实 例 结构 使 用 自 定义 类 (defclass) 说 
明 。 使 用 实例 和 类 比 使 用 事实 和 自 定义 模板 有 几 个 优势 。 首 先是 继承 。 一 个 自 定义 类 可 以 从 一 个 或 多 个 
其 他 类 中 继承 信息 。 这 就 允许 更 加 模块 化 的 数据 定义 。 第 二 ,通过 使 用 消息 处 理 程序 ， 对 象 可 以 带 有 过 
程 信息 。 第 三 ， 对 象 的 模式 匹配 比 事实 的 模式 匹配 更 加 灵活 。 对 象 模式 利用 继承 ， 可 以 在 属于 多 个 类 的 
权 中 进行 模式 匹配 ， 可 以 避免 未 说 明 槽 的 改变 再 激发 模式 ， 可 以 提供 基于 槽 的 真 值 维护 。 


11.2 自 定义 类 结构 


在 创建 实例 之 前 ，CLIPS 必须 得 到 关于 给 定 类 的 有 效 槽 列表 。 自 定义 类 (defclass) 结构 用 来 完成 
这 个 工作 。 它 的 最 基本 形式 和 自 定义 模板 很 相似 : 


(defclass <class-name> [<optional-comment>] 
{is-a <superclass-name>) 
<slot-definition>*) 


其 中 < superclass-name> 是 一 个 类 ， 新 定义 的 类 将 要 从 它 那 里 继承 信息 。 系 统 类 USER 是 所 有 用 户 定 义 
类 要 最 终 继承 的 类 。 一 个 用 户 定义 类 既 可 继承 另 一 个 用 户 定义 类 也 可 继承 USER 类 。< slot-definition > 
的 语法 描述 如 下 : 


(slot <slot-name> <slot-attribute>*) | 
{multislot <slot-name> <slot-attribute>*) 


使 用 这 个 语法 ，person 实例 可 以 用 下 面 的 自 定义 类 描述 如 下 : 


{defclass PERSON "Person defclass" 
{is-a USER) 
{slot full-name) 
{slot age) 
{slot eye-color) 
(slot hair-color)) 


注意 和 第 7.6 节 的 例子 person 自 定义 模板 不 同 ， 使 用 了 槽 名 full-name 而 不 是 name。 对 于 对 象 模式 匹 
配 ，name 是 具有 特别 意义 的 保留 符号 ， 在 后 面 将 会 讨论 。 

下 面 的 自 定义 模板 槽 属性 可 以 用 来 定义 自 定 义 类 的 槽 : type, range, cardinality, allowed-symbols, 
allowed-strings, allowed-lexemes, allowed-integers, allowed-floats, allowed-numbers, allowed-values, allowed- 
instance-names default 和 default-dynamic。 例 如 : 


(defclass PERSON "Person defclass" 
(is-a USER) 
(slot full-name 
(type STRING) ) 
(slot age 
(type INTEGER) 
(range 0 120) 
(slot eye-color 
{type SYMBOL) 
(allowed-values brown blue green) 
(default brown) } 
(slot hair-color 
(type SYMBOL) 
(allowed-values black brown red blonde) 
(default brown))) 
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Ae RNR REAR (slot facet). 


11.3 创建 实例 
使 用 make-instance 命令 可 以 创建 实例 。 其 语法 如 下 : 


(make-instance {<instance-name-expression>] 
of <class-name-expression> 
<slot-override>*) 


其 中 ，< siot-override > 为 


(<slot-name-expression> <expression>) 


例如 ， 以 下 演示 如 何 使 用 person 自 定义 类 创建 一 些 实例 : 


CLIPS> 

(make-instance [John] of PERSON 
(full-name "John Q. Public") 
(age 24) 
(eye-color blue) 
(hair-color black) )— 


{John} 

CLIPS> (make-instance of PERSON) -J 
[gen1] 

CLIPS> (make-instance Jack of PERSON) 
[Jack] 

CLIPS> (instances) 

[John] of PERSON 


[geni] of PERSON 

[Jack] of PERSON 

For a total of 3 instances. 
CLIPS> 


创建 了 三 个 名 为 [John], [gent] 和 [Jack] 的 实例 。 如 果 在 创建 实例 时 没有 提供 实例 名 ， 系 统 将 为 你 
提供 一 个 (如 本 例 中 的 [gen1])。 对 于 make-instance 来 说 ， 是 否 用 中 括号 [] 并 没有 区 别 ， 如 用 
[John] 和 Jack 分 别 调 用 make instance 所 显示 。 除 了 显示 的 是 实例 列表 外 ， 例 子 中 的 instances 命令 和 
facts 命令 类 似 。 实 例 不 会 显示 模 值 ， 但 会 在 下 一 节 演 示 如 何 显示 模 值 。instances 命令 的 完整 语法 如 下 : 


(instances [<module-name> [<class-name> [inherit]]]) 


和 事实 及 其 对 应 的 自 定义 模板 类 似 ， 实 例 属 于 对 应 自 定义 类 的 模块 〈 人 参见 第 11.16 节 )。 如 果 指 定 
了 可 选 的 模块 名 参数 ， 则 只 列 出 指定 模块 的 实例 。 如 果 用 ”表示 模块 名 ， 则 列 出 所 有 实例 。 如 果 阅 时 
指定 了 可 选 类 名 ， 则 只 列 出 属于 这 个 类 的 实例 。 最 后 ， 如 果 还 指定 了 可 选 的 inherit 关键 字 ， 则 所 有 属 
于 指定 类 名 的 子 类 的 实例 也 会 被 列 出 (参见 第 11.6 节 )。 


11.4 ”系统 定义 消息 处 理 程序 


除了 数据 ， 类 还 附带 有 过 程 信息 。 这 种 过 程 称 为 消息 处 理 程序 。 除 了 用 户 定义 的 消息 处 理 程序 外 ， 
还 将 自动 为 每 个 类 产生 一 些 系统 定义 的 消息 处 理 程序 。 这 些 消 息 处 理 程序 通过 send 命令 被 唤醒 以 用 于 
实例 。send 命令 的 语法 如 下 : 


(send <object-expression> 
<message-name-expression> <expression>*) 


例如 ，print 消息 显示 一 个 实例 的 槽 信息 ， 


CLIPS> (send [John] print) 
{John] of PERSON 

(full-name "John Q. Public") 
{age 24) 

(eye-color blue) 

(hair-color black) 

CLIPS> 


WF AEE MG/M, CLIPS 自动 定义 一 个 get- 和 put- 权 消息 处 理 程序 来 获取 和 设置 模 
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值 。 实 际 的 消息 处 理 程序 名 由 后 面 加 上 覃 名 组 成 。 例 如 对 PERSON 自 定义 类 中 的 槽 :fulLname、age、 
eye-color 和 hair-color 将 自动 创建 8 个 消息 处 理 程序 : get-full-name, put-full-name, get-age, put-age, get- 
eye-color, 、put-eye-color 、get-hair-color 和 put-hair-color。get- 消 息 处 理 程序 没有 参数 ， 返 回 槽 值 。 例 如 ， 


CLIPS> (send [John] get-full-name), 
"John Q. Public" 

CLIPS> (send [John] get-age) J 

24 

CLIPS> 


put- 消 息 处 理 程 序 有 零 个 或 多 个 参数 。 如 果 没 有 提供 参数 ， 则 槽 值 为 初始 默认 值 。 如 果 提 供 了 一 


个 或 多 个 参数 ， 则 槽 值 为 这 些 参 数值 。 试 图 把 多 个 值 放 人 一 个 单字 段 档 将 导致 错误 。put- 消 息 处 理 程 
序 的 返回 值 是 槽 的 新 值 。 例 如 : 


CLIPS> (send [Jack] get-age) 
nil 
CLIPS> (send [Jack] put-age 22) 


CLIPS> (send [Jack] get-age).~ 


CLIPS> (send [Jack] put-age) 
nil 

CLIPS> (send [Jack] get-age)-! 
nil 

CLIPS> 


watch 命令 可 以 监视 与 实例 有 关 的 项 目 ， 其 中 一 个 是 槽 。 如 果 覃 处 于 监视 中 ,那么 当 实例 槽 值 发 


生变 化 时 ， 将 打印 出 一 个 信息 性 消息 。 可 以 使 用 unwatch 命令 取消 对 槽 的 监视 : 


例 。 


息 。 


CLIPS> (watch slots) 

CLIPS> (send [Jack] put-age 24) 

::= local slot age in instance Jack <- 24 
24 

CLIPS> (unwatch slots) 

CLIPS> (send [Jack] put-age 22) 

22 

CLIPS> 


另 一 个 预先 已 定义 的 消息 处 理 程序 是 delete。 你 可 能 不 相信 ，delete 消息 处 理 程序 用 来 删除 一 个 实 
成 功 删除 时 返回 TRUE， 否 则 返回 FALSE: 


CLIPS> (instances) 

[John] of PERSON 

[geni] of PERSON 

[Jack] of PERSON 

For a total of 3 instances. 
CLIPS> (send [geni] delete) — 
TRUE 

CLIPS> (instances) 

[John] of PERSON 

[Jack] of PERSON 

For a total of 2 instances. 
CLIPS> 


另 一 个 监视 项 目 是 实例 。 如 果实 例 处 于 监视 中 ， 当 实例 被 创建 或 删除 时 ，CLIPS 自动 打印 一 个 消 
与 修改 一 个 事实 的 槽 值 不 同 ， 修 改 一 个 实例 的 槽 值 不 会 删除 旧 实 例 并 以 新 值 创建 一 个 新 实例 ， 所 


以 要 看 实例 槽 值 的 变化 必须 使 用 槽 监视 。 下 面 的 命令 对 话 演示 如 何 使 用 实例 监视 命令 ; 


CLIPS> (watch instances) J 
CLIPS> (make-instance Jill of PERSON) 
= instance [Jill] of PERSON 
(Jill) 

CLIPS> (send [Jill] put-age 22). 
22 

CLIPS> (send [Jill] delete)! 

& instance [Jill] of PERSON 
TRUE 

CLIPS> (unwatch instances) 
CLIPS> 
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字符 守 表 示 一 个 实例 被 删除 ， 而 字符 > 表示 一 个 实例 被 创建 。 
11.5 自 定义 实例 结构 


与 自 定义 事实 结构 对 应 的 是 自 定义 实例 (definstance) 结构 。 当 执行 一 个 重 置 命令 时 ， 所 有 的 实例 
都 会 被 发 送 一 个 delete 消息 ， 接 着 在 自 定义 实例 结构 中 的 所 有 实例 都 将 会 被 创建 。 自 定义 实例 的 一 般 
形式 为 : 

(definstances <definstances name> [active} 


[<optional comment>] 
<instance~definition>*) 


其 中 ，< instance-definition > 为 : 


([<instance-name-expression>] of 
<class-name-expression> 
<slot-override>*) 


在 自 定义 实例 结构 中 的 可 选 active 关键 字 用 来 表明 在 创建 实例 重 置 槽 值 时 应 引发 模式 匹配 。 默 认 情 况 
下 ， 在 所 有 覃 值 重 置 完成 之 前 ， 不 会 为 自 定义 实例 进行 模式 匹配 。 下 面 是 一 个 自 定义 实例 的 例子 ; 


(definstances people 
(Jack of PERSON (full-name "Jack Q. Public") 
(age 23)) 
(of PERSON (full-name "John Doe") 
(hair-color black) )) 


有 几 个 命令 可 以 操作 自 定义 实例 。list-definstances 命令 用 来 显示 当前 CLIPS 所 维护 的 自 定义 实例 列表 。 
ppdefinstances (pretty print definstances， 漂 亮 打 印 自 定义 实例 ) 命令 用 来 显示 自 定义 实例 的 文本 描述 。 
undefinstances 命令 用 来 删除 一 个 身 定义 实例 。get-definstances-list 函数 返回 一 个 包含 自 定义 实例 列表 的 
多 字段 值 。 这 些 命令 的 语法 如 下 : 

(list-definstances [<module-name>]) 

(ppdefinstances <definstances-name>) 


(undef instances <definstances~name>) 


(get-definstances-list [<module-name>]) 


11.6 类 与 继承 


使 用 COOL 的 一 个 好 处 是 类 可 以 从 其 他 类 继承 信息 ， 这 就 允许 信息 共享 。 思考 如 果 有 一 个 表达 个 
人 信息 的 自 定义 模板 ， 需 要 做 些 什 么 ;: 


(deftemplate person "Person deftemplate" 
(slot full-name) 
(slot age) 
{slot eye-color) 
(slot hair-color)} 


为 了 表示 一 个 公司 雇员 和 大 学 学 生 的 其 他 有 关 信 息 ， 必 须要 做 些 什么 ? 一 个 方法 是 扩展 个 人 自 定义 模 
板 以 包括 其 他 信息 : 


(deftemplate person "Person deftemplate" 
(slot full-name) 
(slot age) 

(slot eye-color) 
(slot hair-color) 
{slot job-position) 
{slot employer) 
(slot salary) 

(slot university) 
(slot major) 

(slot GPA)) 
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在 这 个 自 定义 模板 中 只 有 4 个 槽 会 用 于 所 有 人 : full-name, age, eye-color 和 hair-color。 而 job-position、 
employer 和 salary $ REMAT Bo university, major 和 GPA 槛 只 适用 于 学 生 。 为 了 增加 更 多 的 信息 ， 
就 必须 增加 更 多 的 槽 到 person 自 定义 模板 ， 但 其 中 很 多 槽 并 不 适用 于 所 有 人 。 

另 一 个 方法 是 为 雇员 和 学 生 分 别 创建 一 个 独立 的 自 定义 模板 : 


(deftemplate employee "Employee deftemplate” 
(slot full-~name) 
(slot age) 
(slot eye-color) 
{slot hair-color) 
(slot job-position) 
{slot employer) 
(slot salary) } 


(deftemplate student "Student deftemplate’" 

(slot full-~name) 

(slot age) 

{slot eye-color) 

(slot hair-color) 

{slot university) 

(slot major) 

(slot GPA)) 


通过 这 种 方法 ， 每 一 个 自 定 义 模板 都 只 有 必要 的 信息 ， 但 是 必须 复制 几 个 槽 。 如 果 需 要 改变 这 些 
重复 槽 的 某 个 属性 ， 就 必须 在 多 个 地 方 修改 以 保持 一 致 性 。 同 样 地 ， 如 果 要 写 一 个 寻找 有 蓝 色 眼 睛 的 
人 的 规则 ， 必 须 使 用 两 个 模式 而 不 是 一 个 〈 如 果 还 包括 person 事实 ， 则 要 3 个 ): 


(defrule find~blue-eyes 
(or (employee (full-name ?name) 
(eye-color blue) ) 
(student (full-name ?name) 
(eye-color blue))) 
=> 
(printout t ?full-name "has blue eyes." crlf)) 


类 允许 在 多 个 类 中 共享 信息 而 不 用 重复 信息 或 把 不 必要 的 信息 包括 进去 。 现 在 返回 到 原来 的 PER- 
SON BE: 


{defclass PERSON “Person defclass”" 
{is-a USER) 
(slot full~-name) 

(slot age) 

(slot eye-color) 

(slot hair-color)) 


为 了 定义 新 类 以 扩展 PERSON 类 ， 使 用 PERSON 类 作为 新 类 的 is-a 属性 。 例 如 : 


(defclass EMPLOYEE "Employee defclass" 
(is-a PERSON) 
(slot job-position) 
(slot employer) 
(slot salary) ) 


(defclass STUDENT "Student defclass" 
(is-a PERSON) 
(slot university) 
{slot major) 


(slot GPA}) 

EMPLOYEE 和 STUDENT 类 都 继承 了 PERSON 类 的 属性 。 下 面 的 对 话 演 示 了 为 这 3 个 类 创建 实例 的 
过 程 : 

CLIPS> (make-instance [John] of PERSON) J 

{John] 

CLIPS> (make-instance [Jack] of EMPLOYEE)! 

(Jack] 

CLIPS> (make-instance [Jill] of STUDENT) 

{Jill} 


CLIPS> (send [John] print) — 





388 #1 Ë 


[John] of PERSON 
(full-name nil) 
(age nil) 
(eye-color nil) 
(hair-color nil) 
CLIPS> (send [Jack] print) 
{Jack] of EMPLOYEE 
(full-name nil) 
(age nil} 
(eye-color nil) 
(hair-color nil) 
(job-position nil) 
{employer nil) 
(salary nil) 
CLIPS> (send [Jill] print) 
[Jill] of STUDENT 
(full-name nil) 
(age nil) 
(eye-color nil) 
(hair-color nil) 
(university nil) 
(major nil) 

(GPA nil) 

CLIPS> 


注意 每 个 实例 都 包含 仅 适 用 于 本 类 的 档 。 对 于 一 个 类 来 说 ， 可 以 重 定义 一 个 它 的 父 类 已 经 定义 了 的 模 ， 
下 一 节 将 讨论 这 个 内 容 。 

一 个 直接 或 间接 继承 其 他 类 的 类 是 一 个 被 继承 的 类 的 子 类 (subclass)。 被 继承 的 类 称 为 父 类 (su 
perclass), PERSON, EMPLOYEE 和 STUDENT 类 都 是 USER 的 子 类 。EMPLOYEE 和 STUDENT 是 
PERSON 的 子 类 。USER # PERSON, EMPLOYEE # STUDENT 的 父 类 。PERSON Æ EMPLOYEE 和 
STUDENT 的 父 类 。 一 个 单 继承 类 组 织 是 其 中 每 个 类 只 有 一 个 直接 父 类 。 一 个 多 继承 类 组 织 是 其 中 的 
类 可 以 有 多 于 一 个 的 直接 父 类 。COOL 支持 多 继承 ,但 我 们 的 例子 都 限制 在 单 继承 直到 第 11.15 节 更 
详细 地 介绍 多 继承 。 以 下 是 一 个 使 用 多 继承 的 类 例子 (一 个 有 工作 的 学 生 ): 


(defclass WORKING-STUDENT 
"Working Student defclass" 
(is~a STUDENT EMPLOYEE) ) 


HEME HBR 
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下 面 的 类 中 


(defclass A 
(is-a USER) 
(slot x (default 3)) 
(slot y) 
(slot z (default 4))) 


(defclass B 
(is-a A) 
{slot x} 
(slot y (default 5)) 
(slot z (default 6))j 


创建 一 个 A 和 B 类 的 实例 得 到 以 下 结果 : 


CLIPS> (make-instance [a] of A) 
fa] 
CLIPS> (make-instance [b] of B)— 
[b} 


CLIPS> (send [a] print) 
tal of A 

(x 3) 

(y nil) 

(z 4) 





类 、 实 例 和 消息 处 理 程 序 389 





CLIPS> (send [b] print).i 
{b] of B 

(x nil) 

(y 5) 

(z 6) 

CLIPS> 


注意 实例 b 的 槽 x 有 一 个 默认 值 nil 而 不 是 3。 这 是 因为 类 B 的 槽 x RUS eK A 的 槽 xz 默认 值 
3. source 槽 属性 可 以 用 来 允许 槽 属性 从 父 类 中 继承 。 如 果 这 个 属性 设置 为 exclusive， 这 是 默认 设置 ， 
那么 槽 属性 由 定义 这 个 槽 的 最 先 定义 的 类 决定 。 在 一 个 单 继承 组 织 中 ， 就 是 具有 最 少 父 类 的 类 。 如 果 


source 槽 设置 为 composite， 那 么 如 果 最 先 定义 的 类 没有 明确 定义 槽 属性 ， 则 将 从 下 一 个 最 先 明确 定义 
的 类 中 得 到 属性 。 例 如 ， 如 果 前 面 A 和 B 自 定义 类 重 定义 如 下 : 


(defclass A 
(is-a USER) 
(slot x (default 3)) 
(slot y) 
{slot z (default 4))) 


(defclass B 
(is-a A) 
(slot x (source composite) ) 
(slot y (default 5)) 
(slot z (default 6))) 


然后 创建 类 A 和 B 实 例 得 到 以 下 结果 : 


CLIPS> (make-instance [a] of A) 
[a] 

CLIPS> (make-instance [b] of B) 
[b] 

CLIPS> (send [a] print) 

[a] of A 

(x 3) 

(y nil) 

(z 4) 

CLIPS> (send [b] print). 

[b] of B 

(x 3) 

(y 5) 

(z 6) 

CLIPS> 


注意 类 B 的 槽 x 定义 为 source 属性 设置 为 composite， 它 可 继承 类 A 的 默认 属性 ， 因 此 实例 b 中 槽 x 的 
默认 结果 值 为 3。 


也 可 以 通过 propagation 槽 属性 来 取消 槽 的 继承 。 如 果 这 个 属性 设置 为 inherit， 这 是 默认 设置 ， 那 
么 槽 将 被 子 类 继承 。 如 果 这 个 属性 设置 为 no-inherit， 那 么 槽 不 会 被 子 类 继承 。 例 如 ， 定 义 类 A 和 了 B 
如 下 : 


(defclass A 
(is-a USER) 


(slot x (propagation no-inherit))} 
{slot y)) 


(defclass B 
(is-a A) 
(slot z)) 


然后 创建 类 A 和 B 的 实例 得 到 以 下 结果 : 


CLIPS> (make-instance [a] of A) 
fa] 

CLIPS> (make-instance [b] of B) 
[b] 

CLIPS> (send [a] print) 

[a] of A 

(x nil) 
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(y nil) 

CLIPS> (send [b] print) 
[b] of B 

(y nil) 

(z nil) 

CLIPS> 


类 BHXH b MŽ A 中 继承 了 槽 y， 但 没有 继承 槽 x， 因 为 x & propagation 属性 为 no-inherit。 
抽象 和 具体 类 


可 以 定义 只 能 用 于 继承 的 类 。 这 样 的 类 称 为 抽象 (abstract) 类 。 不 能 从 抽象 类 来 创建 实例 。 默 认 
情况 下 ， 类 是 具体 (concrete) 的 。 类 属性 role 用 来 规定 一 个 类 是 抽象 的 还 是 具体 的 。role 类 属性 必须 
在 isa 类 属性 后 、 槽 定义 之 前 定义 。 例 如 : 


{defclass ANIMAL 
(is-a USER) 
(role abstract)) 


(defclass MAMMAL 
(is-a ANIMAL) 
(role abstract) ) 


{defclass CAT 
(is-a MAMMAL) 
(role concrete) ) 


(defclass DOG 
(is-a MAMMAL) 
(role concrete) ) 


类 ANIMAL 和 MAMMAL 是 抽象 的 。 类 CAT 和 DOG 是 具体 的 。role 属性 是 可 以 继承 的 ， 所 以 可 不 必 
声明 MAMMAL 是 抽象 的 ， 因 为 它 继承 了 ANIMAL 的 这 个 属性 ; 必须 声明 CAT 和 DOG 类 是 具体 的 ， 
否则 它们 将 是 抽象 的 。 尝 试 从 抽象 类 创建 实例 会 导致 出 错 消 息 : 


CLIPS> (make-instance [animal-1] of ANIMAL) 
[INSMNGR3] Cannot create instances of abstract 
class ANIMAL. 

CLIPS> (make-instance [cat-1] of CAT) 

[cat-1] 

CLIPS> 


除非 可 以 使 代码 更 加 容易 维护 和 重用 ， 和 否则 没有 必要 总 是 声明 一 个 类 为 抽象 类 。 如 果 你 创建 类 的 目的 
不 是 让 别人 使 用 它 创建 实例 ， 你 就 不 会 希望 有 人 用 它 来 创建 实例 。 假 使 有 人 用 它 创 建 了 实例 ， 那 么 以 
后 将 无 法 在 删除 它 的 同时 保持 代码 完整 性 。 

在 现在 的 例子 中 ， 无 论 ANIMAL 和 MAMMAL 类 是 否 为 抽象 的 都 可 以 成 立 。 如 果 要 创建 一 个 动物 
园 的 详细 目录 ， 那 么 这 些 类 都 很 可 能 为 抽象 的 。 不 存在 抽象 的 动物 或 哺乳 动物 ， 也 没有 任何 动物 或 哺 
乳 动物 不 是 某 一 更 具体 类 的 成 员 。 但 是 ， 如 果 我 们 试图 识别 一 个 动物 ， 可 以 想像 ， 我 们 可 能 会 从 ANI- 
MAL 或 MAMMAL 类 来 创建 实例 ， 例 如 ， 说 明 如 何 识别 动物 。 


自 定义 类 命令 


有 几 个 命令 用 来 操作 自 定义 类 。list-defclasses 命令 用 来 显示 CLIPS 当前 维护 的 自 定义 类 列表 。 它 
的 语法 如 下 : 


(list-defclasses [<module-name>]) 


从 这 个 函数 得 到 的 输出 是 : 


CLIPS> (list-defclasses) 
FLOAT . 
INTEGER 
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SYMBOL 

STRING 
MULTIFIELD 
EXTERNAL-ADDRESS 
FACT-ADDRESS 
INSTANCE~ADDRESS 
INSTANCE-NAME 
OBJECT 
PRIMITIVE 
NUMBER 

LEXEME 

ADDRESS 

INSTANCE 

USER 
INITIAL-OBJECT 
PERSON 

EMPLOYEE 

STUDENT 

For a total of 20 defclasses. 
CLIPS> 


有 很 多 预先 已 定义 的 基本 类 : OBJECT. PRIMITIVE, NUMBER, LEXEME, FLOAT, INTE- 
GER, SYMBOL, STRING、MULTIFIELD、ADDRESS、 INSTANCE, EXTERNAL-ADDRESS, 
FACT-ADDRESS, INSTANCE-ADDRESS 和 INSTANCE-NAME. 你 不 能 用 这 些 类 来 创建 其 他 的 类 。 基 
本 类 与 第 10 章 讨 论 的 类 属 函 数 特别 有 用 。 剩 下 的 预先 已 定义 类 是 USER 和 INITIAL-OBJECT. USER 
是 创建 新 类 的 基础 。INITIAL-OBJECT 是 USER 的 子 类 ， 用 来 创建 初始 对 象 实例 (参见 第 11.7 节 )。 
我 们 创建 的 类 (PERSON, EMPLOYEE 和 STUDENT) 在 上 述 表 的 最 未 。 图 11.1 显示 了 这 些 预 先 已 定 


义 类 的 层次 关系 。 


OBJECT 


MULTIFIELD INSTANCE ADDRESS | | LEXEME | | INITIAL-OBJECT 


INTEGER FLOAT 


INSTANCE-NAME INSTANCE-ADDRESS 
FACT-ADDRESS INTERNAL-ADDRESS 


图 11.1 预先 已 定义 类 一 览 
browse-classes 命令 用 来 显示 一 个 类 和 它 的 子 类 的 继承 关系 。 它 的 语法 如 下 : 


(prowse-classes [<class-name>] ) 


如 果 没 有 指定 类 名 ， 则 显示 根 类 OBJECT 的 继承 关系 。 例 如 下 面 的 命令 显示 出 图 11.1 中 信息 ， 并 
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显示 了 PERSON 类 及 其 子 类 作为 例子 : 


CLIPS> (browse-classes) .i 
OBJECT 
PRIMITIVE 
NUMBER 
INTEGER 
FLOAT 
LEXEME 
SYMBOL 
STRING 
MULTIFIELD 
ADDRESS 
EXTERNAL-ADDRESS 
FACT-ADDRESS 
INSTANCE-ADDRESS * 
INSTANCE 
INSTANCE-ADDRESS * 
INSTANCE-NAME 
USER 
INITIAL-OBJECT 
PERSON 
EMPLOYEE 
STUDENT 
CLIPS> 


缩 行 用 来 表示 一 个 类 是 前 面 第 一 个 较 少 空格 缩 行 类 的 子 类 。 例 如 ,，NUMBER、LEXEME、MULTI: 
FIELD、ADDRESS 和 INSTANCE 都 是 PRIMITIVE 的 子 类 。 类 后 面 的 星 号 表示 它 是 多 个 类 的 直接 子 
Æ. 例如 ，INSTANCE-ADDRESS 是 ADDRESS 和 INSTANCE 的 直接 子 类 。 

在 browse-classes 命令 中 指定 类 将 显示 指定 类 及 其 子 类 的 继承 关系 : 


CLIPS> (browse-classes PERSON). 
PERSON 

EMPLOYEE 

STUDENT 
CLIPS> 


ppdefclass (pretty print defclass， 漂 亮 打印 自 定义 类 ) 命令 用 来 显示 自 定义 类 的 文本 描述 。undefclass 命 
令 用 来 删除 一 个 自 定义 类 。 这 些 命令 的 语法 为 : 
(ppdefclass <defclass-name>) 


(undefclass <defclass-name>) 


当 存 在 类 实例 时 无 法 删除 这 个 类 。 在 删除 类 之 前 ， 属 于 这 个 类 或 子 类 的 实例 都 必须 删除 。 例 如 : 


CLIPS> (undefclass STUDENT) WJ 

[PRNTUTIL4] Unable to delete defclass STUDENT. 
CLIPS> (send fill delete) 

TRUE 

CLIPS> (undefclass STUDENT). 

CLIPS> 


11.7 “对象 模式 匹配 


对 象 模 式 提供 了 自 定 义 模板 或 有 序 事实 模式 所 不 具备 的 几 个 能 力 。 首 先 ， 一 个 单一 对 象 模式 可 以 
匹配 几 个 类 的 实例 。 其 次 ， 在 对 象 模式 中 没有 说 明 的 槽 值 的 改变 不 会 再 激发 这 个 模式 所 属 的 规则 。 第 
三 ,在 逻辑 条 件 元 素 的 对 象 模式 里 没有 说 明 的 槽 值 更 改 不 会 导致 相关 规则 的 逻辑 支持 失效 。 对 象 模式 
的 一 般 形式 为 

(object <attribute-constraint>*) 


其 中 ，< attribute-constraint > X : 


(is-a <constraint>) | 
(name <constraint>) | 
(<slot-name> <constraint>*} 
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< constraint > 和 用 于 自 定 义 模板 模式 中 的 模式 槽 约束 是 一 样 的 。 我 们 将 简短 地 介绍 is-a 和 name 关键 
字 。 首 先 从 一 个 简单 的 对 象 模式 匹配 例子 开始 : 


CLIPS> (clear). 
" CLIPS> 
(defclassa 1D-POINT 
(is-a USER) 
(slot x))J 
CLIPS> 
(defrule Example-1 
(object (x ?x)) 
=> 
(printout t “Value of x slot is ” ?xX crlf))H 
CLIPS> (make-instance pl of 1D-POINT (x 3)) 
[p1] 
CLIPS> (agenda) 
0 Example-i: (p1] 
For a total of 1 activation. 
CLIPS> (run) 
Value of x slot is 3 
CLIPS> 


首先 ， 定义 类 1D-POINT 具有 单个 属性 x。 然 后 定义 自 定义 规则 Example-1。 注 意 这 个 规则 只 在 槽 x 上 
匹配 ， 并 没有 提 到 1D-POINT 类 。 当 规则 被 创建 后 ，CLIPS 自动 地 判定 1D-POINT 类 可 以 匹配 这 个 模 
式 。 在 创建 了 1D-POINT 类 的 实例 以 后 ，Example-1 规则 被 适当 地 激发 ， 运 行程 序 正 确 地 输出 实例 的 x 
A. 

现在 看 看 如 果 我 们 定义 另 一 个 包含 x BHRSREHZ: 


CLIPS> 
{defclass 2D-POINT 
(is-a USER) 
(slot x) 
(slot y))— 
CLIPS> (make-inetance p2 of 2D-POINT (x 4) (y 2))J 
[p2] 
CLIPS> (agenda). 
CLIPS> 


可 能 有 些 意外 ，Example-1 规则 不 会 被 实例 [p2] 激发 。 这 是 因为 一 个 类 能 否 匹 配 一 个 对 象 模式 是 在 规 
则 定义 时 决定 的 。 在 规则 定义 之 后 创建 的 类 实例 将 不 会 匹配 规则 里 的 对 象 模式 。 如 果 Example-1 规则 
被 重新 定义 ， 将 看 到 我 们 原来 预期 的 行为 ， 


CLIPS> 
(defrule Example-1 
(object (x ?x)) 
=> 
(printout t "Value of x slot is " ?x crif))W 
CLIPS> (agenda). 
0 Example-1: [p2] 
0 Example-1: {pij 
For a total of 2 activations. 
CLIPS> (run) 
Value of x slot is 4 
Value of x slot is 3 
CLIPS> 


注意 Example-1 规则 现在 被 来 自 不 同类 但 都 包含 x 槽 的 [p1] 和 [p2] 实例 激发 。 
对 象 模式 匹配 与 继承 
对 象 模式 也 可 以 在 继承 槽 上 匹配 ; 


CLIPS> (clear) J 

CLIPS> 

(defclass 1D-POINT 
(is-a USER) 
{slot x))! 

CLIPS> 
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(defclass 2D-POINT 
(is-a 1D-POINT) 
(slot y)) 
CLIPS> 
(defclass 3D-POINT 
{is-a 2D-POINT) 
{slot z))J 
CLIPS> 
(defrule Example-2 
(object (y ?y)) 
=> 
(printout t "Value of y slot is " ?y crl£))W 
CLIPS> (make-instance pl of 1D-POINT (x 3))j 


[p1] 

CLIPS> (make-instance p2 of 2D-POINT (x 1) (y 2))J 
[p2] 

CLIPS> (make-instance p3 of 3D-POINT (x 2) (y 4) (z 3))J 
[p3] 

CLIPS> (agenda). 

0 Example-2: [p3] 

0 Example-2: [p2] 


For a total of 2 activations. 
CLIPS> (run) 

Value of y slot is 4 

Value of y slot is 2 

CLIPS> 


注意 Example-2 规则 被 实例 [p2] 和 fp3] 激发 ， 而 不 是 [pl]. KH) [p2] 是 类 2D-POINT 的 一 个 实 
例 ， 这 个 类 定义 了 一 个 被 规则 引用 的 y 槽 。 实 例 [p3] 是 类 3D-POINT 的 一 个 成 员 ， 这 个 类 从 类 2D- 
POINT 继承 了 y 槽 。 而 类 1D-POINT 的 实例 [pl] 只 有 一 个 x 槽 ， 所 以 不 能 匹配 规则 Example-2 的 对 象 
模式 。 


is-a 和 name 关键 字 


在 对 象 模式 中 使 用 时 ，is-a 关键 字 作 为 槽 名 有 特殊 的 含义 。 它 限制 实例 模式 匹配 只 针对 那些 满足 
is-a RAZ. HM: 


CLIPS> 
{defrule Example-3 
(object (is-a 2D-POINT) (x ?x)) 
=> 
(printout t "Value of x slot is " ?x crif))-! 
CLIPS> (agenda) -! 
0 Example-3: [p3] 
0 Example-3: [p2] 
For a total of 2 activations. 
CLIPS> (run) 
Value of x slot is 2 
Value of x siot is 1 
CLIPS> 


注意 只 有 实例 [p2] 和 [p3] 激活 规则 Example-3， 即 使 实例 [pl] 也 有 x 槽 属性 。 这 是 因为 [pl] 不 
是 类 2D-POINT 的 一 个 实例 也 不 是 继承 自 它 的 类 的 实例 。 实 例 [p3] 满足 对 象 模 式 ， 因 为 它 通过 继承 
是 2D-POINT 类 的 一 个 成 员 。 通 过 明确 地 禁止 3D-POINT 类 可 以 阻止 实例 [p3] 匹配 对 象 模式 ，; 


CLIPS> 
(defrule example-4 
(object (is-a 2D-POINT&~3D-POINT) (x ?x)) 
=> 
(printout t "Value of x siot is " ?x crlf)) .1 
CLIPS> (agenda) 
0 example-4: {p2] 
For a total of 1 activation. 
CLIPS> (run) 
Value of x slot is 1 
CLIPS> 
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任何 被 对 象 模式 引用 的 类 必须 是 已 经 定义 了 的 ; 否则 会 产生 错误 : 
CLIPS> 
(defrule example-5 
(object (is-a 4D-POINT) (x ?x)) 
=> 
(printout t "Value of x slot is " ?x crlf))J 
{OBJRTBLD5] Undefined class in object pattern. 


ERROR: 
(defrule MAIN: :example-5 
(object (is-a 4D-POINT) 


CLIPS> 
被 对 象 模式 引用 的 槽 也 是 如 此 。 必 须 至 少 有 一 个 类 包含 对 象 模式 中 引用 的 所 有 槽 属性 ， 否 则 也 会 产生 
错误 : 

CLIPS> 


(defrule example-6 

(object (w ?w)) 

=> 

(printout t "Value of w slot is " ?w erlf))J 
[OBJRTBLD2] No objects of existing classes can 
satisfy w restriction in object pattern. 
ERROR: 
(defrule MAIN: :example-6 

{object (w 
CLIPS> 


既然 没有 一 个 现存 的 类 (1D-POINT、2D-POINT 和 3D-POINT) BA wire, ALM Example-6 中 的 
对 象 模式 不 能 满足 ， 因 此 产生 错误 。 
name 关键 字 用 来 匹配 指定 的 实例 。 例 如 : 


CLIPS> 
(defrule example-7 
(object (name [p1] | [p3]) (x ?x)) 
=> 
(printout t "Value of x slot is " ?x crlf)) 
CLIPS> (agenda) J 
0 example-7: [p3] 
0 example-7: [p1] 
For a total of 2 activations. 
CLIPS> (run)4 
value of x slot is 2 
Value of x slot is 3 
CLIPS> 


规则 Example-7 使 用 name 关键 字 限 制 可 以 匹配 对 象 模式 的 实例 为 [p1] 和 [p3]. KA [p2] RAx 
值 ， 但 不 会 匹配 这 个 模式 ， 因 为 它 的 名 字 不 满足 name 限制 。 由 于 在 对 象 模式 中 的 特别 含义 ，is-a 和 
name 关键 字 不 能 在 自 定义 类 的 定义 中 作为 槽 名 。 


激发 对 象 模式 


对 象 模式 与 事实 模式 的 一 个 重要 不 同 在 于 只 有 那些 明确 匹配 某 个 槽 的 对 象 模式 才 会 在 实例 槽 值 改 
变 时 受到 影响 。 为 了 说 明 这 一 点 ， 我 们 重新 看 看 第 8.10 节 的 sum-rectangles 规则 : 


(defrule sum-rectangles 
(rectangle (height ?height) (width ?width)) 
?sum <- (sum ?total) 
=> 
(retract ?sum) 
(assert (sum (+ ?total (* ?height ?width))))) 


这 个 规则 的 问题 在 于 任何 修改 sum 事实 的 尝试 都 会 引发 规则 重新 激发 并 应 用 于 刚刚 处 理 过 的 rectangle 
事实 ， 从 而 导致 一 个 无 限 循环 。 把 sam 事实 从 一 个 有 序 事实 转换 成 自 定义 模板 事实 ， 然 后 使 用 modify 
命令 并 不 能 解决 这 个 问题 。 第 8.4 节 中 的 解决 方案 使 用 多 规则 来 计算 总 和 。 一 个 更 好 的 解决 方法 是 恰 
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当地 利用 对 象 模 式 。 下 面 是 党 试用 对 象 重 写 第 8.4 节 sum-rectangles 的 代码 : 


(defclass RECTANGLE 
(is-a USER) 
(slot height) 
(slot width) ) 


(defclass SUM 
(is-a USER) 
(slot total)) 


(definstances initial-information 
(of RECTANGLE (height 10) (width 6)) 
(of RECTANGLE (height 7) (width 5)) 
(of RECTANGLE (height 6) (width 8)) 
(of RECTANGLE (height 2) (width 5) 
([sum] of SUM (total 0))}) 


(defrule sum~rectangles 
(object (is-a RECTANGLE) 
(height ?height) (width ?width) ) 
?sum <- (object (is-a SUM) (total ?total)) 
=> 


(send ?sum put-total 
{+ ?total (* ?height ?width)))) 


关于 新 的 sum-rectangles 规则 有 几 点 需要 注意 的 地 方 。 首 先 ， 如 事实 模式 一 样 可 以 使 用 < -模式 约束 操 
作 符 约束 匹配 模式 的 实例 给 一 个 变量 。 在 这 个 例子 中 , 匹配 SUM 对 象 模式 的 实例 地 址 约束 给 ? sum 
变量 。 这 个 变量 可 以 作为 参数 传 给 send 函数 以 发 送 消息 给 实例 。 运 行 代码 证 明 与 事实 模式 有 同样 的 问 
Bi: 无 限 循环 。 这 是 因为 对 规则 RHS 中 total 槽 值 的 修改 所 使 用 的 put-total 消息 由 于 匹配 total Hi, mE 
次 激发 了 SUM 对 象 模式 。 

我 们 并 不 需要 在 规则 LHS 中 匹配 total W, BAIARA ? total 的 值 将 不 在 任何 LHS 模式 中 被 再 次 
引用 。 通 过 在 规则 RHS 传递 消息 获取 值 将 得 到 下 面 规则 : 


(defrule sum~rectangles 

(object (is-a RECTANGLE) 

(height ?height) (width ?width)) 

?sum <- (object (is-a SUM) ) 
=> 
(bind ?total (send ?sum get-total)) 
(send ?sum put-total 

(+ ?total (* ?height ?width)))) 


这 个 规则 版 本 不 会 像 初始 版 本 一 样 无 限 循 环 。 如 果 知 道 SUM 类 只 有 一 个 实例 ， 可 进一步 简化 这 个 
规则 : 


(defrule sum-rectangles 
(object (is-a RECTANGLE) 
(height ?height) (width ?width) ) 
=> 
(bind ?total (send [sum] get-total)) 
(send [sum] put-total 
(+ ?total (* ?height ?width) ))) 


我 们 可 简单 通过 在 规则 RHS 使 用 名 字 引 用 实例 ， 而 不 是 通过 模式 匹配 获取 存放 在 ? sum 变量 中 的 实例 
地 址 。 


模式 匹配 属性 


进行 模式 匹配 时 ， 可 以 通过 设置 patterm-match 属性 令 槽 或 者 类 不 参与 进来 。 如 果 属 性 设置 为 reactive， 
这 是 默认 值 ， 那 么 指定 的 槽 或 类 将 激发 规则 LHS 的 模式 匹配 。 如 果 属 性 设置 为 non-reactive， 那 么 指定 
的 槽 或 类 将 不 会 激发 规则 LHS 的 模式 匹配 。 例 如 ， 如 果 使 用 pattern-match 属性 重 定义 SUM 类 ， 则 原 
来 的 sum-rectangles 规则 可 改 成 如 下 : 
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(defclass SUM 
(is-a USER) 
(slot total (pattern-match non-reactive) )) 


(defrule sum-rectangles 
(object (is-a RECTANGLE) 
(height ?height) (width ?width) ) 
?sum <- (object (is-a SUM) (total ?total)) 
=> 
(send ?sum put~total 
(+ ?total (* ?height ?width)))) 


当 定 义 sum-rectangles 规则 时 将 出 现下 面 错误 信息 : 


[OBJRTBLD2] No objects of existing classes can 
satisfy total restriction in object pattern. 


基本 上 ， 锅 然 第 二 个 模式 的 isa 条 件 限制 了 可 能 的 类 为 SUM， 而 这 个 类 没有 total 槽 可 用 于 模式 匹配 ， 那 就 
不 可 能 匹配 这 个 模式 ， 因 此 规则 出 错 。 多 个 类 可 具有 相同 的 档 和 名， 其 中 有 些 为 reactive， 有 些 为 non-reactive, 
当 规 则 定义 时 就 确定 了 哪些 类 可 以 进行 匹配 ， 那 些 在 模式 引用 的 槽 中 有 non-reactive 的 类 将 不 予 考虑 。 

也 可 以 在 类 一 级 使 用 pattern-match 属性 。 例 如 ， 


(defclass SUM 
(is-a USER) 
(pattern-match non-reactive) 
(slot total) ) 


pattern-match 类 属性 必须 在 is-a 和 role 类 属性 之 后 、 槽 定义 之 前 说 明 。 如 果 一 个 类 说 明 为 non-reactive， 
则 类 的 实例 将 不 会 匹配 任何 模式 〈 无 论 每 个 槽 的 pattern-match 属性 设置 如 何 ) ， 但 如 果 pattern-match 类 
属性 重新 定义 为 reactive， 则 子 类 的 实例 可 以 匹配 模式 。 由 于 类 的 pattern-match 属性 并 不 明确 地 影响 槽 
pattem-match 属性 ， 一 个 类 可 以 从 non-reactive 类 继承 reactive FH 


对 象 模式 与 逻辑 条 件 元 素 


正如 事实 和 事实 模式 一 样 ， 对 象 模式 和 实例 创建 可 以 和 逻辑 条 件 元 素 结 合 使 用 。 如 果 在 逻辑 条 件 
元 素 中 槽 没有 被 一 个 对 象 模式 引用 ， 那 么 实例 槽 值 的 改变 不 会 影响 事实 或 实例 的 逻辑 支持 。 例 如 ， 思 
考 下 面 使 用 自 定义 模板 模式 的 结构 : 


(deftemplate emergency 
(slot type) 
{slot location) ) 


(deftemplate response-team 
(slot name) 
(slot location) ) 


(defrule create-response-team 
(logical (emergency (location ?location))) 
=> 
{assert (response-team (name first-response) 
(location ?location)))) 


如 果 调 人 结构 并 断言 一 个 emergency 事实，create-response-team 规则 将 在 运行 程序 时 创建 一 个 
response-ream 事 实 : 


CLIPS> (reset) 
CLIPS> (watch facts) 
CLIPS> 
(assert (emergency (type unknown) 
(location building-1)).! 
==> f-1 (emergency (type unknown) 
(location building-1)) 
<Fact-1> 
CLIPS> (run) 
==> £-2 (response-team (name first-response) 
(location building-1) ) 
CLIPS> 
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修改 emergency 事实 导致 response-team 事实 被 撤销 ， 即 使 create-response-team 规则 并 没有 存 取 type W: 


CLIPS> (modify 1 (type fire)) 





<== f-1 (emergency (type unknown) 

(location building-1)) 
<== f£-2 (response-team (name first-response) 

(location building-1)} 
==> f-3 (emergency (type fire) 
(location building-1)) 

<Fact-3> 
CLIPS> 


create-response- team 规则 需要 重新 激发 以 再 创建 response-team 事实 : 


CLIPS> (run) 
==> f-4 (response-team (name first-response) 


(location building-1))} 
CLIPS> 


以 下 是 使 用 自 定 义 类 和 对 象 的 同一 个 程序 。 注 意 我 们 删 掉 了 response-team 自 定义 模板 中 的 name t, A 
为 这 在 对 象 模式 中 有 特殊 含义 。 而 在 RESPONSE-TEAM 自 定 义 模 板 name 槽 的 地 方 仅 是 给 出 了 re- 
sponse-team 实例 的 名 : 


{defclass EMERGENCY 
(is-a USER) 
(slot type) 
(slot location)) 
{defclass RESPONSE-TEAM 
{is-a USER} 
(slot location) ) 


(defrule create-response-team 
(logical (object (is-a EMERGENCY) 
(location ?location))) 
=> 


(make-instance first-response of RESPONSE-TEAM 
{location ?location} })} 


结合 这 些 新 的 结构 ， 我 们 可 以 看 到 最 初 的 行为 和 使 用 事实 类 似 : 


CLIPS> (reget) J 

CLIPS> (watch instances). 
CLIPS> 

(make-instance el of EMERGENCY 
(type unknown) (location building-1) ) Wi 
==> instance [el] of EMERGENCY 
fel] 

CLIPS> (send [e1] print) 

[e1] of EMERGENCY 

(type unknown) 

(location building-1) 

CLIPS> (run)J 


==> instance [first-response] of RESPONSE-TEAM 
CLIPS> 


在 创建 [el] 实例 后 运行 程序 建立 了 [first-response] 实例 。 这 些 实例 和 事实 例子 中 创建 的 emergency 
以 及 response-team 自 定义 模板 类 似 。 


把 [el] 实例 的 类 型 从 unknown 改变 为 fire 不 会 导致 删除 或 创建 另 一 个 [first-response] 实例 : 


CLIPS> (send [e1] put-type fire). 
fire 

CLIPS> (send [e1] print) 

fel] of EMERGENCY 

(type fire) 

{location building-1) 

CLIPS> 


由 于 [first-response] 实例 并 没有 被 删除 ，create-response-team 规则 再 次 执行 将 重新 创建 它 ， 在 这 个 例子 
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中 ， 对 象 模式 和 实例 的 使 用 比 使 用 事实 和 事实 模式 更 加 有 效 。 

由 于 location FATE create-response-team 规则 对 象 模式 中 有 明确 的 匹配 ， 改 变 这 个 槽 值 会 产生 类 似 使 
用 事实 的 行为 ; 

CLIPS> (send [e1] put-location building-2) 

<== instance [first-response] of RESPONSE-TEAM 

building-2 

CLIPS> (run) 

==> instance [first-response] of RESPONSE-TEAM 

CLIPS> 


初始 对 象 模式 


正如 第 7.11 和 第 8.15 节 讨 论 的 ， 在 某 些 环境 下 CLIPS 将 增加 规则 LHS 的 initial-fact 模式 。 当 在 
一 个 规则 中 使 用 对 象 模型 时 ，CLIPS 在 某 些 环境 下 会 使 用 initial-object 模式 。 在 对 象 中 与 第 7.10 Hit 
论 的 initial-fact 自 定义 模板 和 initial-fact 自 定义 事实 相对 应 的 是 INITIAL-OBJECT 自 定义 类 和 initial-ob- 
ject 自 定义 实例 : 


(defclass INITIAL-OBJECT 
(is-a USER) ) 


(definstances initial-object 
(initial-object of INITIAL-OBJECT) ) 


如 果 在 规则 的 某 个 位 置 需 加 入 一 个 initial-fact/initial-object 模式 ， 那 么 如 果 插 入 点 之 前 的 模式 是 事 
实 模 式 ， 则 插入 一 个 initial-fact 模式 。 否 则 如 果 插 入 点 之 前 的 模式 是 对 象 模式 ， 那 么 则 插入 一 个 initial- 
object 模式 。 如 果 插 入 点 之 前 没有 模式 ， 那 么 插入 点 之 后 的 模式 将 用 来 决定 被 插入 的 模式 类 型 。 下 面 的 
格式 用 于 initial-object BR: 
(object (is-a INITIAL-OBJECT) 
(name [initial-object])) 
使 用 模式 加 入 的 这 些 新 规则 ， 自 定义 规则 : 


(defrule no-emergencies 
(not (object (is-a EMERGENCY) )) 
=> 
(printout t "No emergencies" crlf)) 


将 被 转化 为 : 


(defrule no-emergencies 
(object (is-a INITIAL-OBJECT) 
(name [initial-object]))} 
(not (object (is-a EMERGENCY) )) 
=> 
(printout t "No emergencies" crlf)) 


尽管 在 not 条 件 元 素 之 前 没有 模式 ， 但 not 条 件 元 素 之 后 的 模式 是 一 个 对 象 模式 。 


11.8 用 户 定 义 消息 处 理 程序 


除了 COOL 自动 为 每 个 类 所 定义 的 print, delete, put-#l get 系 统 定义 消息 处 理 程 序 外 ， 你 还 可 以 
定义 自己 的 消息 处 理 程序 。defmessage-handler 结构 用 于 完成 此 功能 。 这 个 结构 的 一 般 语法 是 : 


(defmessage-handler <class-name> <message-name> 
[<handler-type>] 
{<optional-comment>] 

(<regular-parameter>* 

[<wildcard-parameter>] ) 

<expression>*) 


其 中 < regular-parameter > 是 一 个 单字 段 变 量 ，< wildcard-parameter > 是 一 个 多 字段 值 ， 而 < handler- 
type> 是 符号 around, before, primary 或 after 中 的 一 个 。 默 认 情 况 下 ,消息 处 理 程序 是 一 个 primary 消 
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息 处 理 程序 。around、before 和 after 类 型 处 理 程序 的 意义 将 在 第 11.10 节 讨 论 。 每 一 个 类 有 自己 的 消息 
处 理 程 序 集合 ， 所 以 没有 必要 区 别 < message-name > 和 其 他 类 使 用 的 消息 处 理 程序 名 。< regular-param- 
eter > Al < wildcard-parameter> 是 在 调用 时 要 传 给 消息 处 理 程序 的 参数 。 它 们 的 作用 等 同 于 自 定义 函数 
中 的 参数 。 消 息 处 理 程序 体 ， 表 示 为 <expression> * ， 也 和 自 定义 函数 体 一 样 。 可 以 使 用 bind 函数 来 
约束 局 部 变量 ， 消 息 处 理 程序 体 最 后 表达 式 的 计算 结果 作为 消息 处 理 程序 的 返回 值 ; 


{defclass RECTANGLE 
(is-a USER) 
(slot height) 
(slot width) ) 


(defclass CIRCLE 
(is-a USER) 
(slot radius) ) 


(defmessage-handler RECTANGLE compute-area 
() 
{* (send ?self get-height) 
(send ?self get-width))) 
(defmessage-handler CIRCLE compute-area 


(* (pi) 
(send ?self get-radius) 
(send ?self get-radius) )) 


(definstances figures 
(vectangle-1 of RECTANGLE (height 2) (width 4)) 
(circle-1 of CIRCLE (radius 3))) 

这 个 例子 定义 了 两 个 类 ，RECTANGLE 和 CIRCLE, -ARE EKAR. THERM com- 
pute-area 附加 给 每 个 类 。 这 个 消息 处 理 程序 的 目的 是 计算 每 个 对 象 的 面积 。 对 RECTANGLE 类 ， 其 实 
例 面积 是 实例 的 高 乘 以 宽 。 对 CIRCLE 类 ， 其 实例 面积 是 pi 函数 返回 的 x 值 乘 以 实例 半径 的 平方 。 注 
意 变量 ?self 在 两 个 消息 处 理 程序 中 都 有 使 用 。 这 是 自动 为 每 个 消息 处 理 程序 定义 的 一 个 特殊 变量 。 当 
消息 处 理 程序 被 调用 ,? self 变量 的 值 赋 为 消息 将 要 发 往 的 实例 的 地 址 。 可 以 使 用 这 个 变量 来 发 送 消息 
给 实例 ， 正 如 我 们 在 本 例 中 利用 它 获 取 height, width 和 radius 槽 的 值 。 

一 旦 消息 处 理 程序 被 定义 ， 可 以 发 送 一 个 compute-area 消息 给 RECTANGEL 和 CIRCLE 类 实例 以 
便 计算 实例 的 面积 : 


CLIPS> (reset)! 

CLIPS> (send [circle-1} compute-area)-! 
28.2743338823081 

CLIPS> (send [zectangle-1] compute-area) 
8 

CLIPS> 


注意 我 们 发 送 给 每 个 实例 相同 的 消息 ， 但 每 个 返回 它们 不 同 的 面积 。 这 种 对 相同 消息 不 同 实例 能 以 自 
身 的 方式 的 响应 ， 称 为 多 态 性 (polymorphism)。 


模 速 记 引用 


每 次 获取 或 设置 档 值 都 必须 向 实例 发 送 消息 常常 很 不 方便 ， 因 此 可 使 用 速记 机 制 来 存 取 约 东 给 ? 
self 变量 的 实例 槽 。 不 必 使 用 表达 式 ; 


(send ?self get-<slot-name>) 


?self:<slot-name> 


就 可 以 获取 槽 值 。 例 如 ，compute-area 消息 处 理 程序 可 以 重 定 义 为 如 下 : 
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(defmessage-handler RECTANGLE compute-area 
( 
(* ?self:height ?self:width) ) 


(defmessage-handler CIRCLE compute-~area 
( 
(* (pi) ?self:radius ?self:radius) ) 


可 使 用 类 似 的 机 制 来 设置 模 值 。 不 必 使 用 表达 式 : 


(send ?self put-<slot-name> <expression>*) 


而 使 用 表达 式 : 


(bind ?self:slot-name <expression>*) 


这 些 可 替换 机 制 距 可 传递 消息 也 可 直接 控制 槽 。 如 果 你 定义 类 中 get- 和 put- 消 息 处 理 程序 为 after、 
before 或 around 类 型 消息 处 理 程序 ， 这 将 有 某 些 特殊 意义 《在 第 11.10 节 讨论 )。 

默认 情况 下 ， 类 的 消息 处 理 程序 只 可 以 对 直接 由 类 定义 的 槽 使 用 速记 引用 〈 即 不 是 继承 的 槽 )。 例 
如 ， 给 出 下 面 两 个 自 定义 类 : 


(defclass A 
{is-a USER) 
(slot x)} 


(defclass B 
(is-a A) 
{slot y)) 


下 面 对 话 展示 了 使 用 速记 引用 只 可 在 类 了 B 的 消息 处 理 程序 中 引用 槽 y NES A x: 


CLIPS> 
(defmessage-handler B bmbl () 
(* 2 ?Peelf:sx)). 
(MSGFUN6] Private slot x of class A cannot be 
accessed directly by handlers attached to class B 


(PRCCODE3] Undefined variable self:x referenced in 
message-handler. 
ERROR: 
(defmessage-handler MAIN::B bmhi 
() 
{* 2 ?Self:X) 
) 
CLIPS> 
(defmessage-handler B bmh2 () 
(* 2 ?eelf:y))— 
CLIPS> 


bmhl 消息 处 理 程序 引用 了 ? self: x， 这 是 不 允许 的 。 因 为 x 槽 从 类 A 中 继承 。bmh2 消息 处 理 程序 可 
以 引用 ?self: y， 因 为 y 模 由 类 B 定 义 。COOL 支持 对 象 封装 (encapsulation), 这 意味 着 可 以 隐藏 一 个 
类 的 实现 细节 ， 存 取 类 只 限定 于 使 用 定义 好 的 接口 : 为 类 而 定义 的 消息 处 理 程序 。 因 为 get-x 消息 处 理 
程序 是 获取 类 A 实 例 的 x 模 值 的 接口 ， 所 以 这 个 接口 必须 由 bmhl 消息 处 理 程序 使 用 。 经 过 这 些 更 改 ， 
bmhl 消息 处 理 程序 可 以 正确 地 定义 如 下 : 


CLIPS> 
(defmessage-handler B bmh1 () 
(* 2 (send ?self get-x))) 
CLIPS> 
使 用 visibility 槽 属性 可 以 取消 对 槽 的 封装 。 如 果 这 个 属性 设置 为 private， 这 是 默认 设置 ， 则 槽 只 能 被 
其 定义 类 中 的 消息 处 理 程序 直接 存 取 。 如 果 这 个 属性 设置 为 public， 则 槽 可 以 被 其 任何 定义 类 的 子 类 或 
者 父 类 直接 存 取 。 在 前 面 的 例子 中 ， 定 义 类 A 如 下 : 


(defclass A 
(is-a USER) 
(slot x (visibility public))) 


将 允许 你 定义 消息 处 理 程序 bmhl 如 下 : 
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(defmessage-handler B bmhi () 
(* 2 ?self:x)) 


监视 消息 和 消息 处 理 程序 


如 果 消 息 和 消息 处 理 程序 被 watch 命令 监视 ， 每 当 消 息 处 理 程 序 开始 或 结束 运行 时 会 打印 出 一 个 
信息 性 消息 。 例 如 : 


CLIPS> (watch messages). 
CLIPS> (watch message-handlers).! 
CLIPS> (send [circle-1] compute-area) 
MSG >> compute-area ED:1 (<Instance-circle-1>) 
HND >> compute-area primary in class CIRCLE 
ED:1 (<Instance-circle-1>) 
HND << compute-area primary in class CIRCLE 
ED:1 (<Instance-circle-1>) 
MSG << compute-area ED:1 (<Instance-circle-1>) 
28.2743338823081 
CLIPS> (send [rectangle-1] compute-area) — 
MSG >> compute-area ED:1 (<Instance~-rectangle-1>) 
HND >> compute-area primary in class RECTANGLE 
ED:1 (<Instance-rectangle-1>) 
HND << compute-area primary in class RECTANGLE 
ED:1 (<Instance-rectangle-1>) 
MSG << compute-area ED:1 (<Instance-rectangle-1>) 
8 
CLIPS> 


当 一 个 消息 被 发 送 给 实例 以 及 这 个 消息 的 执行 完成 时 ， 监 视 消 息 会 打印 出 调试 信息 。 当 一 个 指定 的 消 
息 处 理 程序 开始 和 结束 执行 时 ， 监 视 消息 处 理 程序 会 打印 出 调试 信息 。 监 视 消息 处 理 程序 可 提供 监视 
消息 的 所 有 信息 ， 还 加 上 其 他 一 些 信息 。 在 前 面 的 对 话 中 ， 监 视 消息 打印 的 信息 以 MSG 开头 ， 监 视 消 
息 处 理 程序 打印 的 信息 以 HND 开头 。 符 号 污 表 示 消 息 / 消 息 处 理 程序 开始 ， 而 符号 所 表示 消息 /消息 处 
理 程序 完成 。 随 后 跟着 消息 或 消息 处 理 程序 名 。 对 消息 处 理 程序 此 时 还 有 额外 的 信息 被 打印 : 处 理 程 
序 类 型 (before、after、primary 或 around) ， 接 着 是 与 执行 消息 处 理 程序 相关 联 的 类 。 一 个 消息 可 以 引 
起 不 同类 或 类 型 的 多 个 消息 处 理 程序 执行 ， 该 信息 告诉 实际 执行 的 是 哪 一 个 。 最 后 打印 出 的 信息 是 表 
示 求 值 深度 的 符号 ED， 后 面 跟着 传 给 消息 处 理 程序 的 参数 。 和 自 定义 函数 一 样 ， 求 值 深度 表示 自 定 义 
函数 和 消息 处 理 程序 调用 的 嵌 套 信息 。 它 从 零 开 始 ， 每 次 进入 一 个 自 定义 函数 / 销 息 处 理 程序 则 增加 
一 。 每 次 退出 一 个 自 定义 函数 /消息 处 理 程序 则 减 一 。 在 参数 列表 中 ， 列 出 的 第 一 个 参数 总 是 变量 ? 
self 的 值 ， 消 息 处 理 程序 的 显 式 参数 列 在 后 面 。 

通过 指明 类 的 名 字 可 以 监视 这 个 类 的 所 有 消息 处 理 程 序 ; 要 监视 指定 的 消息 处 理 程序 可 以 指明 其 
所 在 的 类 名 和 消息 处 理 程序 名 ; 通过 指明 类 、 消 息 处 理 程序 名 以 及 类 型 (before、after、primary 或 
around) 可 以 监视 指定 类 型 的 消息 处 理 程序 ， 


CLIPS> (unwatch all).! 

CLIPS> (watch message-handlers CIRCLE). 

CLIPS> (watch message-handlers RECTANGLE 
compute-area) 

CLIPS> (watch message-handlers RECTANGLE 
get-height primary) 

CLIPS> 


第 一 个 watch 命令 将 监视 CIRCLE 类 的 所 有 用 户 和 系统 定义 消息 处 理 程序 。 第 二 个 watch 命令 将 监视 
RECTANGLE 类 中 primary 类 型 的 compute-area 消息 处 理 程序 (也 会 监视 after, before 和 around 处 理 程 
序 ， 如 果 定 义 了 的 话 )。 第 三 个 wach 命令 将 仅 监视 RECTANGLE 类 中 primary 类 型 的 get-height 系统 
定义 消息 处 理 程序 。 
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自 定义 消息 处 理 程序 命令 


有 几 个 命令 可 以 操作 自 定义 消息 处 理 程序 。list-defmessage-handiers 命令 用 来 显示 当前 CLIPS 维护 
的 自 定 义 消 息 处 理 程序 列表 。 它 的 语法 是 : 


(list-defmessage-handlers 
[<defclass-name> [inherit]}) 


其 中 inherit 关键 字 表 明 列 出 继承 的 消息 处 理 程序 。 例 如 : 


CLIPS> (list-defmessage-handlers RECTANGLE). 
get~-height primary in class RECTANGLE 
put-height primary in class RECTANGLE 
get-width primary in class RECTANGLE 
put-width primary in class RECTANGLE 
compute-area primary in class RECTANGLE 

For a total of 5 message-handlers. 

CLIPS> 


ppdefmessage-handlers (pretty print defmessage-handler， 漂 亮 打 印 自 定 义 消 息 处 理 程序 ) 命令 用 来 显示 自 
定义 消息 处 理 程序 的 文本 描述 。undefmessage-handler 命令 用 来 删除 一 个 自 定 义 消 息 处 理 程 序 。get- 
defmessage-handler-list 函数 返回 一 个 包含 指定 类 的 自 定义 消息 处 理 程序 列表 的 多 字段 值 。 这 些 命令 的 语 
法 如 下 : 


(ppdefmessage-handler <defclass-name> 
<handier-name> 
{<handler-type>]} 


(undefmessage-handler <defclass-name> 
<handiler-name> 
[<handler-type>] } 
(get-defmessage-handler-list <defclass-name> 
[inherit] ) 


其 中 < handlertype> 是 符号 around, before, primary 或 after 中 的 一 个 。 例 如 : 


CLIPS> 
(ppdefmessage-handler RECTANGLE compute-area) 

(defmessage-handler MAIN: :RECTANGLE compute-area 
( 
(* (send ?self get-height) (send ?self 

get-width) )) 
CLIPS> 
(undefmessage-handler RECTANGLE get-height) -! 

{MSGPSR3] System message-handlers may not be 

modified. 

CLIPS> (undefmessage-handler RECTANGLE 

compute-area before). 

[MSGFUN8] Unable to delete message-handler(s) from 
class RECTANGLE. 

CLIPS> (undefmessage-handler RECTANGLE 

compute-area primary) .| 

CLIPS> (get-defmessage-handiler-list CIRCLE) 

(CIRCLE get-radius primary 

CIRCLE put-radius primary 

CIRCLE compute-area primary) 

CLIPS> 


注意 你 不 能 够 删除 系统 定义 的 消息 处 理 程序 。RECTANGLE 类 没有 before 类 型 的 compute-area 消息 处 理 程 
序 ， 所 以 不 能 删除 。 它 具有 一 个 primary 类 型 的 compute-area 消息 处 理 程序 ， 即 使 不 在 命令 中 指明 primary 
也 可 以 删除 ， 因 为 这 是 删除 的 默认 类 型 。get-defrmessage-handler-list 函数 为 每 个 消息 处 理 程序 返回 3 个 值 : 
处 理 程序 所 属 的 类 (如 果 指 明了 inherit 关键 字 ， 则 只 是 传 给 函数 的 类 名 不 同 ) 、 消 息 处 理 程序 名 和 类 型 。 


11.9 ” 槽 存 取 和 处 理 程序 创建 
通过 access 和 create-accessor 槽 属性 可 以 控制 对 槽 的 存 取 。access 属性 直接 限制 槽 允许 的 存 取 类 型 - 
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如 果 这 个 属性 设置 为 read-write， 这 是 默认 值 ， 则 类 的 处 理 程序 可 以 用 槽 速记 命令 :? self: <slot-name> É 
接 读 写 槽 值 。 如 果 这 个 属性 设置 为 read-only， 则 使 用 槽 速记 命令 可 以 获取 槽 值 ， 但 不 能 用 bind 函数 来 改 
变 值 。 把 一 个 值 存 人 槽 中 的 惟一 方法 是 使 用 默认 属性 。 设 置 access RYE initialize only 和 read-only 类 似 ， 
除了 在 创建 实例 时 可 以 设置 槽 值 〈 例 如 make-instance)。 

create-accessor 属性 用 来 控制 类 槽 的 get- 和 put- 处 理 程序 的 自动 创建 。 如 果 这 个 属性 设置 为 read- 
write， 这 是 默认 值 ， 则 会 创建 get- 和 put- 处 理 程序 。 类 似 的 ， 如 果 设 置 为 read， 则 只 生成 get- 处 理 程 
序 ， 如 果 设 置 为 write， 则 只 生成 put- 处 理 程序 。 如 果 设 置 为 ? NONE， 则 不 创建 get- 和 put- 处 理 程序 。 

access 和 create-accessor 属性 的 某 些 组 合 会 产生 错误 。 例 如 ， 对 某 个 槽 设置 access 为 read-only 而 cre- 
ate-accessor 为 read-write。 很 明显 你 不 能 对 一 个 只 允许 读 的 槽 进行 写 操作 。 

下 面 考察 一 个 例子 演示 这 些 属 性 。 假 设 我 们 从 顾客 得 到 一 个 订单 ， 需 要 算出 总 价格 。 我 们 为 每 个 价格 
编 上 独特 的 编号 ID， 一 旦 确定 就 不 再 更 改 这 个 编号 。 订 单 的 总 价格 根据 订单 中 项 目的 价格 加 上 销售 税 来 计 
算 ， 而 且 除了 类 的 处 理 程序 ， 我 们 不 希望 用 别 的 方式 来 计算 或 设置 这 个 总 价格 。 计 算 订 单 类 的 代码 如 下 : 


{defclass ORDER 
(is-a USER} 
(slot ID (access initialize-only) 
(default-dynamic (gensym) ) ) 
(slot total-price (create-accessor read) 
(default 0.0)} 
(slot order-price (default 0.0)) 
{slot sales-tax (default 0.0))) 


(defmessage-handler ORDER compute-total-price {) 
(bind ?self:total-price 
(* ?self:order-price 
(+ 1 ?self:sales-tax)))) 


ID 槽 只 能 在 定义 实例 时 指定 。 如 果 不 定义 其 值 ， 它 将 通过 调用 gensym 函数 自动 产生 。total-price 
槽 的 create-accessor 属性 设置 为 read， 意 味 着 将 生成 一 个 get-total-price 处 理 程序 ， 但 不 生成 put-total- 
price 处 理 程序 。 最 后 ， 定 义 了 compute-total-price 处 理 程序 ， 将 通过 加 上 适当 的 税 计算 订单 的 总 价格 。 
例如 ， 如 果 订 单价 格 是 10.00， 销 售 税 是 0.05， 则 总 价格 是 10.50。 以 下 代码 演示 了 对 槽 设置 的 限制 


CLIPS> 
(make-instance orderl of ORDER 
(ID #001) 
(order-price 10.00) 
(sales-tax 0.05)) 
[order1] 
CLIPS> (send [orderi] put-ID #002) 
(MSGFUN3] ID slot in [orderl] of ORDER: write 
access denied. 
{PRCCODE4] Execution halted during the actions of 
message-handler put-ID primary in class ORDER 
FALSE 
CLIPS> 


注意 当 创建 orderl 实例 时 可 以 设置 IDA, (ASI REA put-ID 处 理 程序 就 不 行 。 类 似 的 ，total-price 
可 以 使 用 get-total-price 处 理 程序 获取 ， 但 不 能 使 用 put-total-price 处 理 程序 设置 : 


CLIPS> (send [forder1] get-total-price) 

0.0 

CLIPS> (send [order1] put-total-price 10.50) 
[MSGFUN1] No applicable primary message-handlers 
found for put-totali-price. 

FALSE 

CLIPS> 


为 了 设置 正确 的 价格 必须 调用 compute-total-price 处 理 程序 : 


CLIPS> (send [order1] compute-total-price) 
10.5 

CLIPS> (send [order1] get-total-price)-~ 
10.5 

CLIPS> 
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可 以 人 为 地 定义 get-total-price 处 理 程 序 以 便 计 算 总 价 的 正确 值 时 ， 不 用 显 式 地 调用 compute-total- 
price 处 理 程 序 。 当 使 用 create-accessor 属性 定义 类 的 get- 处 理 程 序 时 会 创建 一 个 下 面 形式 的 消息 处 理 
程序 : 


(defmessage~handler <class> get-<slot-name> 
primary () 
?self:<slot-name>) 


类 似 的 ，put- 处 理 程序 使 用 以 下 格式 : 


{defmessage-handler <class> put-<slot-name> 
primary (?value) 
(bind ?self:<slot-name> ?value)) 


在 这 两 种 情况 下 ，< class> 是 自 定 义 类 名 ，< slotcname> 是 类 中 的 槽 名。 如 果 ORDER 类 中 的 total-price 
的 create-accessor 属性 被 修改 为 ? NONE, JW get-total-price 处 理 程序 可 以 定义 为 在 调用 时 计算 价格 : 


(defclass ORDER 
(is-a USER) 
(slot ID (access initialize-only) 
(default-dynamic (gensym))) 
(slot total-price (create-accessor ?NONE) 
(default 0.0) 
(slot. order-price (default 0.0)) 
(slot sales-tax (default 0.0))) 


(defmessage-handler ORDER get-total-price () 
(send ?self compute-total-price)) 


(defmessage-handler ORDER get-total-price () 
(send ?self compute-total-price) ) 


创建 ORDER 实例 然后 查询 总 价格 会 返回 一 个 最 新 值 : 


CLIPS> 
(make-instance order2 of ORDER 
(ID #002) 
(order-price 20.00) 
(sales-tax 0.05)) 
{order2] 
CLIPS> (send [order2] get-total-price) 
21.0 
CLIPS> 


11.10 BEFORE, AFTER 和 AROUND 消息 处 理 程序 


类 的 功能 并 不 总 是 符合 要 求 ， 你 也 无 法 修改 使 之 符合 需要 。 因 为 别 的 代码 可 能 依靠 这 些 类 而 维护 
它 的 功能 ， 或 者 你 对 代码 不 够 熟悉 而 无 法 修改 它们 。 在 这 样 的 情况 下 ， 你 可 定义 一 个 新 类 继承 父 类 中 
你 所 需要 的 功能 ， 然 后 修改 这 个 类 使 之 具有 你 想 要 的 新 功能 。 下 面 重新 检查 ORDER 例子 的 代码 ， 看 
如 何 创建 一 个 新 类 使 得 总 价格 信息 总 是 最 新 的 : 


(defclass ORDER 
(is-a USER) 
(slot ID (access initialize-only) ) 
(slot total-price (create-accessor read) 
(defauit 0.0)) 
(slot order-price (default 0.0)) 
(slot sales-tax (default 0.0))) 


(defmessage-handler ORDER compute-total-price () 
(bind ?self:total-price 
(* ?self:order-price 
(+ 1 ?self:sales-tax)))) 


接 下 来 需要 定义 一 个 新 类 ， 在 这 个 类 中 实现 特殊 的 功能 ， 这 个 类 命名 为 MY-ORDER: 


(defclass MY-ORDER 
(is-a ORDER)) 
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可 以 采用 的 一 种 方法 是 完全 重 定义 get-total-price 消息 处 理 程序 以 组 合 新 旧 功 能 ， 


(defmessage-handler MY-ORDER get-total-price () 
(send ?self compute-total-price) 
?self:total-price) 


这 种 情况 下 ,我 们 在 返回 total-price 槽 值 之 前 调用 compute-total-price 消息 处 理 程序 。 这 样 做 有 几 个 问 
题 。 首 先 ， 它 不 能 运行 。total-price HE private 的 ， 所 以 我 们 不 能 在 ORDER 类 外 使 用 ? self 引用 来 存 
取 它 。 也 不 能 用 (send ? self get-total-price) 4E ? self: total-price 引用 ， 因 为 这 会 调用 MY-ORDER 处 
理 程序 而 不 是 ORDER 处 理 程 序 。 

其 次 ， 这 个 方法 造成 代码 重复 。 本 例 中 是 一 个 很 小 很 简单 的 代码 : ? self: totaL-price， 但 情况 可 能 
不 一 定 这 样 。 程 序 重 复 的 代码 越 少 ， 则 初始 ORDER 处 理 程 序 改变 时 MY-ORDER 处 理 程序 不 继承 新 功 
能 的 可 能 性 就 越 大 。 因 此 ， 这 样 重 定 义 处 理 程序 的 方法 不 可 行 。 

可 以 轻松 地 修改 处 理 程序 获得 预期 的 效果 : 


(defmessage-handler MY-ORDER get-total-price () 
(send ?self compute-total-price) 
{call-next~handler) ) 


call-next-handler 函数 将 调用 下 一 个 消息 处 理 程 序 ， 当 前 的 消息 处 理 程序 会 被 重 置 。 没 有 必要 提供 
任何 参数 。 当 前 处 理 程序 使 用 的 参数 会 传递 给 它 。 如 果 在 发 送 MY-ORDER 实例 一 个 get-total-price 消 
息 时 监视 消息 处 理 程序 ， 可 以 看 到 MY-ORDER 和 ORDER 都 调用 了 get-total-price 消息 处 理 程 序 : 


CLIPS> 
({make-instance order3 of MY-ORDER 
(ID #003) 
(order-price 10.00) 
(sales-tax 0.05)) 
CLIPS> (watch message-handlers) | 
CLIPS> (send [order3] get-total-price) — 
HND >> get-total-price primary in class MY-ORDER 
ED:1 (<Instance-order3>) 
HND >> compute-total-price primary in class ORDER 
ED:2 (<Instance-order3>) 
HND << compute-total-price primary in class ORDER 
ED:2 (<Instance-order3>) 
HND >> get-total-price primary in class ORDER 
ED:1 (<Instance-order3>) 
HND << get-total-price primary in class ORDER 
ED:1 (<Instance-order3>) 
HND << get-total-price primary in class MY-ORDER 
ED:1 (<Instance-order3>) 
10.5 
CLIPS> 


Before 和 after 处 理 程序 


除了 primary 类 型 消息 处 理 程序 ， 这 是 没有 指定 处 理 程序 类 型 时 的 默认 值 ，CLIPS 也 提供 了 be- 
fore, after 和 around 处 理 程序 类 型 。 处 理 程序 类 型 在 处 理 程序 名 后 声明 ， 每 一 个 类 可 以 有 每 种 类 型 的 
处 理 程序 。before 消息 处 理 程序 类 型 指明 在 primary 消息 处 理 程序 前 执行 的 处 理 程序 。 下 面 是 一 个 MY- 
ORDER 类 中 before 消息 处 理 程序 的 例子 : 


(defmessage-handler MY-ORDER get~total-price 
before () 
(send ?self compute-total-price) } 


不 像 前 面 primary 类 型 的 get-total-price 消息 处 理 程序 ， 在 这 个 处 理 程序 里 我 们 只 发 送 compute-total-price 
消息 ， 而 且 不 调用 call-next-handler 函数 。 不 用 调用 这 个 函数 是 因为 MY-ORDER 的 before 处 理 程序 将 
首先 被 执行 ， 然 后 ORDER 的 primary 处 理 程序 将 被 调用 。 如 果 删 除 先 前 定义 的 MY-ORDER 中 的 pri- 
mary 处 理 程 序 ， 可 以 通过 监视 消息 处 理 程序 看 到 : 
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CLIPS> 
(make-instance order4 of MY-ORDER 
(ID #004) 
(order-price 10.00) 
(sales-tax 0.05))A 
{order4] 
CLIPS> (watch message-handlers) 
CLIPS> (send [order4] get-total-price) J 
HND >> get-total-price before in class MY-ORDER 
ED:1 (<Instance-order4>) 
HND >> compute-total-price primary in class ORDER 
ED:2 (<Instance-order4>) 
HND << compute-total-price primary in class ORDER 
ED:2 (<Instance-order4>) 
HND << get-total-price before in class MY-ORDER 
ED:1 (<Instance-order4>} 
HND >> get-total-price primary in class ORDER 
ED:1 (<Instance-order4>) 
HND << get-total-price primary in class ORDER 
ED:1 (<Instance-order4>) 
10.5 
CLIPS> 


MY-ORDER 的 before 类 型 get-total-price 消息 处 理 程序 首先 被 调用 ， 它 调用 了 ORDER 的 primary 类 型 
compute-total-price 消息 处 理 程序 ， 然 后 这 些 处 理 程序 都 退出 。 最 后 ，ORDER 的 primary 类 型 get-total- 
price 消息 处 理 程序 被 调用 ， 这 将 返回 最 新 的 total-price WE. l 

这 是 在 get-total-price 处 理 程序 被 调用 前 计算 正确 的 total-price 槽 值 ， 我 们 还 可 以 在 修改 了 sales-tax 
或 order-price 醒 值 之 后 计算 total-price。 我 们 将 通过 定义 下 列 的 after 消息 处 理 程序 来 完成 这 项 工作 : 


(defmessage-handler MY-ORDER put-sales-tax 
after (?value) 
{if (mumberp (send ?self get-order-price) ) 
then 
{send ?self compute-total-price))) 


(defmessage-handler MY-ORDER put-order-price 
after (?value) 
(if (numberp (send ?self get-sales-tax) } 
then 
(send ?self compute-total-price) )) 


这 些 处 理 程序 将 在 primary 类 型 的 put-sales-tax 和 put-order-price 处 理 程序 调用 之 后 调用 compute-total- 
price 处 理 程序 。 在 每 个 处 理 程序 中 ， 我 们 必须 检查 用 于 compute-total-price 消息 处 理 程序 的 其 他 槽 值 已 
正确 定义 为 数 ， 因 为 在 整个 实例 创建 过 程 中 ,这些 槽 不 会 设置 为 默认 值 0.0。 如 果 删 除 先 前 的 before 类 
型 get-total-price 处 理 程序 ， 可 以 通过 监视 消息 处 理 程序 看 到 : 


CLIPS> 
(make-instance order5 of MY-ORDER 
(ID #005) 
(order-price 10.00) 
(sales-tax 0.05)) 
[order5] 
CLIPS> (send [order5] get~total-price) - 
10.5 
CLIPS> (watch message-handiers).! 
CLIPS> (send [order5] put-order-price 20.00) 
HND >> put-order-price primary in class ORDER 
ED:1 (<Instance-orderS> 20.0) 
HND << put-order-price primary in class ORDER 
ED:1 (<Instance-order5> 20.0) 
HND >> put-order-price after in class MY-ORDER 
ED:1 (<Instance-order5> 20.0) 
HND >> get-sales-tax primary in class ORDER 
ED:2 (<Instance-order5>) 
HND << get-sales-tax primary in class ORDER 
ED:2 (<Instance-order5>} 
HND >> compute-total-price primary in class ORDER 
ED:2 (<Instance-order5>) 
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HND << compute-total-price primary in class ORDER 
ED:2 (<Instance-order5>) 

HND << put-order-price after in class MY-ORDER 
ED:1 (<Instance-order5> 20.0) 

20.0 

CLIPS> (send [order5] get-total-price) 

HND >> get-total-price primary in class ORDER 
ED:1 (<Instance-order5>) 

HND << get-total-price primary in class ORDER 
ED:1 (<Instance-order5>) 

21.0 

CLIPS> 


在 创建 了 实例 后 ， 可 以 看 到 total-price 模 值 为 最 新 值 。 此 时 我 们 没有 监视 消息 处 理 程序 ， 因 为 在 实例 创 
建 过 程 中 有 一 些 我 们 不 感 兴趣 的 消息 发 出 。 如 果 调 用 put-order-price 改变 order-price 槽 值 ， 可 以 看 到 
ORDER 的 primary 类 型 put-order-price 消息 处 理 程序 首先 被 调用 然后 退出 。 接 下 来 MY-ORDER 的 after 
类 型 put-order-price 消息 处 理 程序 被 调用 ， 这 将 调用 ORDER 的 primary 类 型 get-sales-tax 消息 处 理 程序 
以 确定 sales-tax 槽 设置 为 恰当 的 值 。 因 为 sales-tax A ARE, ORDER 的 primary 类 型 compute-total- 
price 处 理 程序 被 调用 来 计算 正确 的 价格 ， 然 后 primary 类 型 的 compute-total-price 和 after 类 型 的 put-or- 
der-price 处 理 程序 都 退出 。 发 送 get-total-price 消息 随后 返回 正确 的 值 。 


Around 处 理 程序 


在 after 消息 处 理 程序 中 检查 order-price 和 sales-tax 模具 有 数字 类 型 值 是 件 麻烦 的 事情 ， 我 们 寻找 
不 同 的 方法 来 完成 这 项 工作 。 首 先 ， 从 after 消息 处 理 程序 中 去 掉 这 些 值 的 检查 : 


(defmessage-handler MY-ORDER put-sales-tax 
after (?value) 
(send ?self compute-total-price)) 


(defmessage-handler MY-ORDER put-order-price 
after (?value) 
(send ?self compute-total-price) ) 


COOL 提供 的 第 4 个 也 是 最 后 一 个 消息 处 理 程序 类 型 是 around 消息 处 理 程序 。 这 个 消息 处 理 程序 类 型 
也 称 为 wrapper， 因 为 它 围绕 在 其 他 消息 处 理 程序 周围 ， 可 以 在 它们 之 前 或 之 后 执行 。around 消息 处 理 
程序 是 一 种 融合 了 before 和 after 处 理 程序 ， 同 时 允许 你 在 消息 处 理 过 程 中 中 止 消息 的 处 理 程序 。 下 面 
是 一 个 compute-total-price 消息 的 around 处 理 程序 : 


(defmessage-handler MY-ORDER compute-total-price 
around () 
{if (or (not (numberp 
(send ?self get-order-price))) 
{not (numberp 
(send ?self get-sales-tax)))) 
then 
(return) ) 
(call-next-handler) )} 


B46, around 处 理 程序 检查 order-price 和 sales-tax 槽 是 否 为 数 。 如 果 不 是 ， 则 处 理 程序 返回 不 做 任 
何 操作 。 此 时 compute-total-price 的 before, primary 或 after 处 理 程序 都 不 会 被 调用 。 另 一 方面 ， 如 果 
order-price 和 sales-tax 槽 都 为 数 ，calLnext-handler 将 被 激发 ， 其 他 的 消息 处 理 程序 将 被 调用 。 在 这 种 情 
况 下 ， 只 有 ORDER 的 primary 类 型 compute-total-price 消息 处 理 程序 被 调用 。 下 面 的 对 话 演示 了 这 一 过 
程 。 因 为 输出 内 容 太 多 ， 在 消息 处 理 程序 各 部 分 之 间 插 入 了 解释 : 


CLIPS> (watch message-handlers) 
CLIPS> 
(make-instance order5 of MY-ORDER 
(ID #005) 
(order-price 10.00) 
(males-tax 0.05)) 
HND >> create primary in class USER 
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ED:1 (<Instance-order5>) 

HND << create primary in class USER 
ED:1 (<Instance-orderS>) 

HND >> put~ID primary in class ORDER 
ED:1 (<Instance-order5> #005) 

HND << put~ID primary in class ORDER 
ED:1 (<Instance-order5> #005) 


使 用 make-instance 创建 了 orderS 实例 。 在 创建 实例 时 ， 激 发 了 另 一 个 系统 定义 的 消息 处 理 程序 create。 
一 旦 新 的 实例 被 创建 ，make-instance 调用 中 指定 的 值 就 会 放 在 实例 槽 中 。 首 先 调用 put-ID 消息 处 理 程 
序 把 #005 BLA IDE: 


HND >> put-order-price primary in class ORDER 
ED:1 (<Instance-order5> 10.0) 

HND << put-order-price primary in class ORDER 
ED:1 (<Instance-order5> 10.0) 

HND >> put-order-price after in class MY-ORDER 
ED:1 (<Instance-order5> 10.0} 

HND >> compute-total-price around in class MY-ORDER 
ED:2 (<Instance-order5>} 

HND >> get-order-price primary in class ORDER 
ED:3 (<Instance-order5>) 

HND << get-order-price primary in class ORDER 
ED:3 (<Instance-order5S>) 

HND >> get-sales-tax primary in class ORDER 
ED:3 (<Instance-order5>) 

HND << get-sales-tax primary in class ORDER 
ED:3 (<Instance-order5>) 

HND >> get-order-price primary in class ORDER 
ED:3 (<Instance-order5>) 

HND << get-order-price primary in class ORDER 
ED:3 (<Instance-order5>) 

HND << compute-total-price around in class MY-ORDER 
ED:2 (<Instance-order5>) 

HND << put-order-price after in class MY-ORDER 
ED:1 (<Instance-order5> 10.0) 


接着 ，ORDER 的 primary 类 型 put-order-price 消息 处 理 程序 被 调用 以 存储 10.0 在 order-price MAR. — 
且 这 个 处 理 程 序 完 成 ，MY-ORDER 的 after 类 型 put-order-price 处 理 程 序 将 被 调用 。 这 个 处 理 程序 发 送 
compute-total-price 消息 ， 这 将 激发 MY-ORDER 的 around 类 型 compute-total price 处 理 程序 。 在 around 
处 理 程序 中 ，ORDER 的 primary 类 型 get-order-price 处 理 程序 被 调用 以 判断 order-price BA WH (HF 
被 设置 为 10.0， 是 数 )。 接 下 来 ，ORDER 的 primary 类 型 get-sales-tax 处 理 程序 被 调用 以 判断 sales-tax 
是 否 为 数 。 结 果 为 否 ， 因 为 这 个 槽 还 没有 在 make-instance 中 得 到 值 。 所 以 around 处 理 程序 重新 调用 
ORDER 的 primary 类 型 get-order-price 处 理 程序 ， 并 返回 这 个 值 。 在 这 种 情况 下 ，around 类 型 的 com- 
puter-order-price 处 理 程序 没有 调用 primary 处 理 程序 就 中 止 了 。 最 后 ， 还 剩 下 MY-ORDER 的 after 类 型 
put-order-price 处 理 程序 : 


HND >> put~sales-tax primary in class ORDER 
ED:1 (<Instance-order5> 0.05) 

HND << put~sales-tax primary in class ORDER 
ED:1 (<Instance-order5> 0.05) 

HND >> put~sales-tax after in class MY-ORDER 
ED:1 (<Instance-order5> 0.05) 

HND >> compute-total-price around in class MY-ORDER 
ED:2 (<Instance-order5>) 

HND >> get~-order-price primary in class ORDER 
ED:3 (<Instance-order5>) 

HND << get~order-price primary in class ORDER 
ED:3 (<Instance-order5>} 

HND >> get-sales-tax primary in class ORDER 
ED:3 (<Instance-order5>) 

HND << get~sales-tax primary in class ORDER 
ED:3 (<Instance-order5>) 

HND >> compute-total-price primary in class ORDER 
ED:2 (<Instance-order5>) 
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HND << compute-total-price primary in class ORDER 
ED:2 (<Instance-order5>) 

HND << compute-total-price around in class MY-ORDER 
ED:2 (<Instance-orderS>) 

HND << put-sales-tax after in class MY-ORDER 
ED:1 (<Instance-order5S> 0.05} 


FÆ, ORDER 的 primary 类 型 put-sales-tax 消息 处 理 程 序 被 调用 以 存储 0.05 到 sales-tax WF. — B. 
这 个 处 理 程序 完成 ，MY-ORDER 的 after 类 型 put-sales tax 处 理 程序 被 调用 。 这 个 处 理 程序 发 送 com- 
pute-total-price 消息 ， 这 将 激发 MY-ORDER 的 primary 类 型 compute-total-price 处 理 程序 。 在 around 处 
mE P, ORDER 的 primary 类 型 get-order-price 处 理 程序 被 调用 以 判断 order-price MESAR. Æ, 
因此 接 下 来 ORDER 的 primary 类 型 get-sales-tax 处 理 程序 被 调用 以 判断 sales-tax 是 否 为 数 (由 于 被 设置 
为 0.05， 是 数 )。around 处 理 程序 调用 call-next-handler 函数 激发 ORDER 的 primary 类 型 compute-total- 
price 处 理 程序 ， 这 将 计算 total-price 槽 的 最 新 值 。 最 后 ，ORDER 的 primary 类 型 compute-total-price 处 
理 程序 结束 ， 随 后 MY-ORDER 的 around 类 型 compute-total-price 处 理 程序 结束 ,再 接着 ，MY-ORDER 
的 after 类 型 put-sales-tax 处 理 程序 结束 : 


HND >> init primary in class USER 
ED:1 (<Instance-order5>) 

HND << init primary in class USER 
ED:1 (<Instance-order5>) 

{order5] 

CLIPS> 


最 后 ，init 消息 被 送 到 新 创建 的 实例 ， 返 回 实例 名 。init 消息 处 理 程序 是 另 一 个 系统 定义 的 消息 处 理 程 
序 。 在 实例 被 创建 、 槽 值 被 初始 化 之 后 调用 。 


重 置 消息 处 理 程 序 参 数 
通过 使 用 override-next-handler 命令 可 以 重 置 传递 给 消息 处 理 程序 的 参数 。 这 个 命令 的 语法 如 下 : 


(override-next-handler <expression>*) 


其 中 ，< expression> 是 发 送 给 下 一 个 消息 处 理 程序 的 替换 参数 。 作 为 使 用 这 个 命令 的 例子 ， 思 考 如 何 
在 外 币 中 处 理 订 单 。 再 次 假设 由 于 各 种 原因 不 能 直接 修改 ORDER 类 。 如 果 ORDER 实例 中 的 order- 
price 值 是 美元 ， 可 以 有 特殊 逻辑 建立 在 价格 为 美元 的 基础 上 。 例 如 ， 海 运费 用 可 能 在 不 同 订单 中 相差 
100 美元 以 上 。 

处 理 不 同 货币 可 以 采用 的 一 种 方法 是 定义 一 个 ORDER 类 的 继承 类 ， 能 够 自动 把 在 外 币 和 美元 之 
间 转 换 。 下 面 的 FOREIGN-ORDER 自 定义 类 和 相关 联 的 处 理 程序 实现 了 这 个 方法 : 


{defclass FOREIGN-ORDER 
(is-a ORDER) 
(slot exchange-rate (default 1.0))) 


(defmessage-handler FOREIGN-ORDER get-order-price 
around () 
(* ?self:exchange-rate (call-next-handler) )} 


(defmessage-handler FOREIGN-ORDER put-order-price 
around (?value) 
(override-next-handler 
(/ ?value ?self:exchange-rate) )) 


FOREIGN-ORDER 类 有 一 个 exchange-rate 槽 用 来 表示 外 币 和 美元 之 间 的 汇率 兑换 值 。 例 如 ， 如 果 
兑换 值 是 2， 那么 10 美元 将 等 于 20 个 外 币 单位 。 对 于 实际 应 用 ， 我 们 会 同时 提供 一 个 槽 存放 外 币 单位 
(例如 欧元 )， 但 在 这 个 例子 中 没有 必要 。 

FOREIGN-ORDER 类 的 around 类 型 get-order-price 处 理 程序 通过 call-next-handler 命令 激发 ORDER 
类 的 primary 类 型 get-order-price 处 理 程序 ， 返回 值 乘 以 exchange-rate 槽 值 ， 然 后 返回 这 个 结果 值 。 
FOREIGN-ORDER 类 的 around 类 型 put-order-price 处 理 程序 使 用 override-next-handler 激发 ORDER 类 的 
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primary 类 型 put-order-price 处 理 程序 ， 但 它 传送 的 不 是 这 个 外 币值 ， 而 是 把 这 个 值 除 以 兑换 值 ， 然 后 
传送 该 值 ， 即 美元 值 。 
通过 监视 消息 处 理 程序 ， 可 以 监视 FOREIGN-CURRENCY 类 的 行为 。 首 先 ， 创 建 这 个 类 的 一 个 实例 : 


CLIPS> (unwatch all) 

CLIPS> 

(make-instance order6 of FOREIGN-ORDER 
(ID #006) 
(exchange-rate 2) 
(sales-tax .10)) 

{order6] 

CLIPS> 


接 下 来 ， 我 们 把 order-price MAA ASM 20.00 


CLIPS> (watch message-handlers). 
CLIPS> (send [order6] put-order-price 20.00) 
HND >> put-order-price around in class FOREIGN- 
ORDER 
ED:1 (<Instance-order6> 20.0) 
HND >> put-order-price primary in class ORDER 
ED:1 (<Instance-order6> 10.0) 
HND << put-order-price primary in class ORDER 
ED:1 (<Instance-order6> 10.0) 
HND << put-order-price around in class FOREIGN- 
ORDER 
ED:1 (<Instance-order6> 20.0) 
10.0 
CLIPS> 


首先 FOREIGN-ORDER 的 around 类 型 put-order-price 处 理 程 序 被 以 值 20 RAR. HEB, ORDER 的 
primary 类 型 put-order-price 处 理 程序 被 以 值 10 激发 ， 该 值 是 override-next-handler 调用 的 结果 。 然 后 美 
元 值 被 传 回 作 为 send 命令 的 结果 。 

获取 order-price 槽 类 似 ;: 


CLIPS> (send [order6] get-order-price) J 

HND >> get-order-price around in class 
FOREIGN-ORDER 
ED:1 (<Instance-order6>) 

HND >> get-order-price primary in class ORDER 
ED:1 (<Instance-order6>) 

HND << get-order-price primary in class ORDER 
ED:1 (<Instance-order6>) 

HND << get-order-price around in class 
FOREIGN-ORDER 
ED:1 (<Instance-order6>) 

20.0 

CLIPS> 


首先 ，FOREIGN-ORDER 类 的 around 类 型 get-order-price 处 理 程序 被 激发 ， 然 后 使 用 call-next-han- 
dler 调用 ORDER 的 primary 类 型 get-order-price 处 理 程序 。primary 处 理 程序 返回 美元 值 10 FLA around 
处 理 程序 的 兑换 值 ， 最 后 返回 外 币 单位 值 20。 

发 送 一 个 print 消息 给 FOREIGN-CURRENCY 实例 显示 货币 值 以 美元 而 不 是 外 币值 存放 ; 


CLIPS> (unwatch all) 

CLIPS> (send [order6] print) J 
[order6] of FOREIGN-ORDER 

(ID #006) 

(total-price 0.0) 
(order-price 10.0) 

(sales-tax 0.1) 
(exchange-rate 2) 

CLIPS> 


处 理 程 序 执行 顺序 
通过 给 MY-ORDER 类 附加 处 理 程序 ， 我 们 使 用 了 4 种 不 同 的 技术 来 修改 ORDER 类 的 功能 : BB 
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primary 处 理 程序 、 定 义 before 处 理 程序 、 定 义 after 处 理 程序 以 及 定义 after 和 around 处 理 程序 。 一 个 
明显 的 问题 是 : 哪 一 个 最 好 ? 在 这 个 例子 中 ， 使 用 before 处 理 程序 可 能 是 最 好 的 解决 方案 。 它 用 最 少 
AA, FAME primary 处 理 程序 (使 用 了 第 二 少数 目的 代码 ) 有 一 个 重要 的 优势 ; 除非 出 现 错误 
或 者 around 处 理 程序 终止 消息 ， 否 则 属于 一 个 类 或 其 父 类 的 所 有 继承 before 和 after 消息 处 理 程序 都 会 
被 调用 。 这 意味 着 一 个 类 可 以 使 用 before 和 after 处 理 程序 而 不 用 重 置 primary 处 理 程序 来 略微 改变 父 
类 的 行为 。 子 类 不 能 阻止 -个 before 和 after 处 理 程序 的 执行 ， 除 非 终止 消息 而 阻止 所 有 before, after 
和 primary 处 理 程序 的 执行 。 如 果 你 想 通 过 重 定义 一 个 新 类 并 重 置 primary 处 理 程序 来 改变 一 个 已 有 类 
的 行为 ， 那 么 primary 处 理 程序 同时 也 可 以 被 子 类 重 置 。 除 非 重 置 类 调用 call-next-handler 函数 ， 否 则 
primary 处 理 程序 不 能 执行 。 这 并 不 是 说 你 不 可 重 置 primary 处 理 程序 ,但 是 如 果 有 一 些 特别 的 功能 不 
想 继承 的 类 重 置 它 ， 那 么 绝对 应 考虑 把 这 个 功能 放 在 before 或 者 after 处 理 程序 。 

假定 有 多 个 被 一 个 类 继承 的 before, after 和 around 处 理 程序 ， 那么 各 种 消息 处 理 程 序 执行 的 顺序 
就 显得 很 重要 。 当 一 个 消息 被 send 命令 送 到 实例 ， 所 有 可 用 的 消息 处 理 程序 都 会 按 以 下 步骤 判定 : 

1. 如 果 存 在 没有 调用 过 的 around 处 理 程序 ， 那 么 ， 激 发 最 特定 的 一 个 ; 否则 ， 执 行 步骤 2。 如 果 激 
发 的 around 处 理 程序 调用 了 call-next-handler 或 override-next-handler， 那 么 重复 本 步骤 ; 否则 执行 步骤 6。 

2. 如 果 存 在 没有 调用 过 的 before 处 理 程序 ， 那 么 ， 激 发 最 特定 的 一 个 ， 等 待 完成 ， 然 后 重复 本 步 
又 ;和 否则， 执行 步骤 3。 忽略 before 处 理 程序 返回 值 ， 因 为 没 法 直接 把 这 个 值 传 给 其 他 处 理 程序 。 

3. 如 果 存 在 没有 调用 过 的 primary 人 处理 程序 ， 那 么 ,激发 最 特定 的 一 个 ; 否则 ， 执 行 步骤 4。 如 果 
BAH primary 处 理 程序 调用 了 call-next-handler 或 override-next-handler， 那 么 重复 本 步骤 ; 否则 执行 步 
又 4。 除非 至 少 有 一 个 primary 处 理 程序 可 用 ， 否 则 你 无 法 把 消息 传递 给 实例 。 

4. 允许 每 一 个 primary 处 理 程序 完成 并 返回 ， 然 后 从 已 调用 primary 处 理 程序 列表 中 删除 这 些 处 理 
程序 。 如 果 一 个 primary 处 理 程序 再 次 调用 call-next-handler 或 override-next-handler， 那 么 返回 步骤 3。 
一 且 所 有 primary 处 理 程 序 完 成 ， 记 住 最 后 执行 的 primary 处 理 程 序 返回 值 ， 执 行 步骤 5。 

5. 如 果 存 在 没有 调用 过 的 after 处 理 程序 ， 那 么 ， 激 发 最 不 特定 的 一 个 ， 等 待 它 完成 ， 然 后 重复 本 
FR, 否则， 执行 步骤 6。 忽略 after 处 理 程序 的 返回 值 ， 因 为 没 法 直接 把 这 个 值 传 给 其 他 处 理 程 序 。 

6. 如 果 无 around 处 理 程序 可 调用 ， 那 么 执行 步骤 7。 和 否则， 人 允许 每 一 个 around 处 理 程序 完成 并 返 
回 ， 然 后 从 已 调用 around 处 理 程 序列 表 中 删除 这 些 处 理 程 序 。 如 果 一 个 around 处 理 程序 再 次 调用 call- 
next-handler 或 override-next-handler， 那 么 返回 步骤 1。 一 旦 所 有 around 处 理 程序 完成 ， 记 住 最 后 执行 
的 around 处 理 程序 返回 值 ， 执 行 步骤 7。 

7. 最 后 的 send 命令 返回 值 是 步骤 6 中 最 特定 的 around 处 理 程序 的 返回 值 。 如 果 没 有 around 处 理 
程序 ， 那 么 采用 步骤 4 的 最 特定 的 primary 处 理 程序 的 返回 值 。call-next-handler 或 override-next-handler 
函数 的 返回 值 是 下 一 个 around 或 primary 处 理 程序 调用 最 后 的 行为 。 一 个 处 理 程序 可 以 忽略 这 个 值 或 
者 用 它 作为 返回 值 。 | 

图 11.2 显示 了 从 步骤 1 到 步 又 7 的 等 价 流程 图 。 步 又 1 从 图 左上 角 的 方 框 开始 。 图 11.3 显示 了 
从 步骤 3 到 步骤 4 执行 与 发 送 给 实例 的 消息 相关 联 的 可 用 primary 处 理 程序 的 等 价 流程 图 。 在 没有 可 用 
的 around, before BR after 处 理 程序 (也 就 是 ， 只 有 primary 处 理 程序 ) 情况 下 ， 图 11.2 流程 图 简化 为 图 
11.3 的 流程 图 。 

下 面 结 构 用 来 演示 处 理 程序 执行 顺序 : 


{defclass A 
(is-a USER)) 


(defmessage-handler A msgl primary () 
(return msg1-~A)) 


(defmessage-handler A msgl before {)) 
(defmessage-handler A msgl after ()) 


(defmessage-handler A msgl around () 
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(call-next-handler) } 


(defclass B 
(is-a A)) 


(defmessage-handler B msgl primary () 
(return msgi-B) ) 


(defmessage-handler B msgl before ()) 
(defmessage-handler B msgi after ()) 


(defmessage-handler B msgl around () 
(call-next-handler) ) 








判断 对 发 送 给 实例 
的 消息 所 有 可 用 的 
消息 处 理 程序 









Yes 










执行 的 处 理 
程序 是 否 调用 了 


call-next-handler? 






存在 没有 调用 
过 的 around 处 理 
程序 ? 












激发 最 特定 的 没有 
调用 过 的 around 处 理 
程序 


No No 







允许 当前 around 处 理 
程序 完成 并 返回 值 。 

把 处 理 程序 当 作 没 有 
调用 过 














激发 最 特定 的 没有 
调用 过 的 before 处 理 
程序 ， 等 待 它 完成 





存在 没有 调用 
过 的 around 


处 理 程序 ? 





























执行 primary 处 理 消息 的 返回 值 是 最 还 存在 
程序 ， 记 住 返回 后 执行 的 around 4 处 理 程序 ? 
值 (参见 图 11.3) 处 理 程序 的 返回 值 aroun: ; 














激发 最 不 特定 的 没 
有 调用 过 的 after 处 理 
程序 ， 等 待 它 完成 


允许 当前 around 处 理 
程序 完成 并 返回 值 。 
把 处 理 程 序 当 作 没 有 
调用 过 










把 primary 处 理 程 
序 返回 值 通 过 call- 
next-handler 传 给 
around 处 理 程 序 






存在 没有 调用 过 的 
around 处 理 程 序 ? 











消息 的 返回 值 是 
最 后 执行 的 primary 
处 理 程序 的 返回 值 





图 11.2 判定 处 理 程 序 执行 顺序 
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从 对 发 送 给 实例 的 消息 
来 说 所 有 可 用 的 
primary 处 理 程序 开始 













执行 的 处 理 
程序 是 否 调用 了 


call-next-handier ? 












激发 最 特定 的 没有 调用 
过 的 around 处 理 程序 


存在 没有 调用 过 的 
around 处 理 程序 ? 








允许 当前 Primary 处 理 
程序 完成 并 返回 值 。 把 
处 理 程 序 当 作 没有 
调用 过 














继续 执行 最 近 被 激发 
的 primary 处 理 程序 


还 有 primary 
处 理 程 序 在 执行 ? 





primary 的 返回 值 是 
最 后 执行 的 primary 
处 理 程序 的 返回 值 





图 11.3 判定 primary 处 理 程序 执行 顺序 


类 B 是 类 A 的 一 个 子 类 。 每 一 个 类 都 有 自己 的 primary, before. after 和 around 处 理 程序 。 首 先 ， 我 们 
创建 这 两 个 类 的 实例 : 


CLIPS> (make-instance [al] of A)-! 
{al} 

CLIPS> (make-instance [b1] of B) 
[b1] 

CLIPS> 


现在 监视 消息 处 理 程序 ， 把 msgl 消息 发 送 给 实例 al。 


CLIPS> (watch message-handlers)}-— 
CLIPS> (send [a1] msg1) 
HND >> msgl around in class A 
ED:1 (<Instance-al>) 
HND >> msgi before in class A 
ED:1 (<Instance-al>) 
HND << msgl before in class A 
ED:1 (<Instance-al>) 
HND >> msgl primary in class A 
ED:1 (<Instance-al>) 
HND << msgl primary in class A 
ED:1 (<Instance-al>) 
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HND >> msgl after in class A 
ED:1 (<Instance-al>) 

HND << msgi after in class A 
ED:1 (<Instance-al>) 

HND << msgl around in class A 
ED:1 (<Instance-al>) 

msgl-A 

CLIPS> 


对 这 个 消息 有 4 个 可 用 的 消息 处 理 程序 : 类 A 的 msgl primary, before. after 和 around 处 理 程 序 。 从 步 
又 1 开始 ,类 A 的 msgl around 处 理 程序 执行 。 这 个 处 理 程序 调用 call-next-handler BX, ATLA BS H 
又 1。 由 于 没有 剩 下 的 未 调用 around 处 理 程序 ， 执 行 步骤 2。 类 A 的 msgl before 处 理 程序 执行 并 返回 。 
由 于 没有 其 他 的 未 调用 before 处 理 程序 ， 执 行 步骤 3。 类 A 的 msgl primary 消息 处 理 程序 执行 。 它 没有 
调用 call-next-handler， 所 以 执行 步骤 4。 类 A 的 msgl primary 处 理 程序 完成 并 返回 符号 msg1-A。 由 于 
所 有 的 primary 处 理 程 序 已 经 执行 完毕 ， 执 行 步 又 S。 类 A 的 msgl after 处 理 程序 执行 并 返回 。 由 于 没 
有 其 他 的 未 调用 after 处 理 程序 ， 执 行 步骤 6。 类 A 的 msgl around 处 理 程序 执行 完成 。 这 个 处 理 程 序 的 
最 后 行为 是 调用 call-next-handler 函数 ， 所 以 返回 值 是 下 一 个 被 激发 的 around 或 primary 处 理 程序 的 返 
回 值 。 在 本 例 中 ， 是 具备 返回 值 msgl-A 的 类 A 的 msgl primary 处 理 程 序 ， 所 以 这 也 是 around 处 理 程 
序 的 返回 值 。 由 于 所 有 的 around 处 理 程 序 都 已 经 完成 ， 执 行 步骤 7。 最 后 send 命令 的 返回 值 是 类 A 的 
msgl around 处 理 程序 返回 的 msgl-A. 
下 面 我 们 把 mgl 消息 发 送 给 实例 bl: 


CLIPS> (send [b1] msg1) 
HND >> msgl around in class B 
ED:1 (<Instance-bi>) 
HND >> msgl around in class A 
ED:1 (<Instance-bi>) 
HND >> msgl before in class B 
ED:1 (<Instance-bl>) 
HND << msg1 before in class B 
ED:1 (<Instance-bl1>) 
HND >> msgl before in class A 
ED:1 (<Instance-bl>) 
HND << msgl before in class A 
ED:1 (<Instance-bl>) 
HND >> msgl primary in class B 
ED:1 (<Instance-bl>) 
HND << msgl primary in class B 
ED:1 (<Instance-bl>) 
HND >> msgl after in class A 
ED:1 (<Instance-bl>) 
HND << msgl after in class A 
ED:1 (<Instance-bi>) 
HND >> msgl after in class B 
ED:1 (<Instance-bl1>) 
HND << msgl after in class B 
ED:1 (<Instance-b1>) 
HND << msgi around in class A 
ED:1 (<Instance-bl1>) 
HND << msgl around in class B 
ED:1 (<Instance-bl>) 
msg1-B 
CLIPS> 


对 这 个 消息 有 8 个 可 用 的 消息 处 理 程序 : 类 A 以 及 类 B 的 msgl primary. before, after 和 around 处 
理 程 序 。 从 步骤 1 开始 ， 类 的 B msgl around 处 理 程序 执行 ， 因 为 它 是 最 特定 的 around 处 理 程 序 。 这 个 
处 理 程 序 调 用 call-next-handler 函数 ， 所 以 重复 步骤 1。 下 一 个 最 特定 的 around 处 理 程序 是 类 A 的 msgl 
around 处 理 程 序 。 这 个 处 理 程序 也 调用 了 call-next-handler 函数 ， 所 以 重复 步骤 1。 由 于 没有 剩 下 的 未 调 
用 around 处 理 程序 ， 执 行 步骤 2。 类 BB 的 msgl before 处 理 程 序 是 最 特定 的 before 处 理 程序 ， 于 是 首先 
执行 并 完成 。 下 一 个 最 特定 的 around 处 理 程 序 是 类 A 的 mgl before 处 理 程序 ， 于 是 执行 并 返回 。 由 于 
没有 其 他 的 未 调用 before 处 理 程序 ， 执 行 步骤 3。 类 BB 的 msgl primary 消息 处 理 程序 执行 ， 因 为 它 是 最 
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特定 的 primary 处 理 程序 。 由 于 它 没 有 调用 call-next-handler， 所 以 没有 执行 类 A 的 msg1l primary 处 理 程 
FR. 执行 步骤 4。 类 B 的 msgl before 处 理 程序 完成 并 返回 符号 msgl-B。 所 有 的 primary 处 理 程序 已 经 
执行 完毕 ， 因 此 执行 步骤 5。 与 before 处 理 程序 的 顺序 相反 ， 类 A 的 msgl after 处 理 程序 首先 执行 并 返 
回 ， 因 为 它 是 最 不 特定 的 after 处 理 程序 。 接 着 类 B 的 msg1 after 处 理 程序 执行 并 返回 。 由 于 没有 其 他 
的 未 调用 after 处 理 程 序 ， 执 行 步 又 6。 类 A 的 msgl around 处 理 程序 执行 完成 。 这 个 处 理 程序 的 最 后 行 
为 是 调用 call-next-handler 函数 ， 所 以 返回 值 是 下 一 个 被 激发 的 around 或 primary 处 理 程序 的 返回 值 。 
在 本 例 中 ， 是 具有 返回 值 msgl-B 的 类 了 的 msgl primary 处 理 程序 ， 所 以 这 也 是 around 处 理 程序 的 返回 
fH. WAT, 28 BAY msgl around 处 理 程 序 执行 完成 ， 它 的 最 后 行为 也 是 调用 call-next-handler ARK, A 
此 ， 它 的 返回 值 就 是 类 A 的 msgl around 处 理 程序 的 返回 值 msg1-B。 由 于 所 有 的 around 处 理 程 序 都 已 
经 完成 ， 执 行 步骤 7。 最 后 send 命令 的 返回 值 是 类 B 的 msgl around 处 理 程序 返回 的 msgl-B. 
preview-send 命令 用 来 显示 对 发 送 给 指定 类 的 实例 的 消息 可 用 的 处 理 程序 。 它 的 语法 是 : 


(preview-send <defclass~name> <message-name>) 


例如 ， 取 代 监 视 消 息 处 理 程序 命令 并 发 送 msgl 消息 给 实例 bl ， 可 执行 下 面 命令 : 


CLIPS> (preview-send B msgi).! 

>> msgl around in class B 

>> msgl around in class A 

>> msgl before in class B 

<< msgl before in class B 

>> msgl before in class A 

<< msgl before in class A 

| >> msgl primary in class B 

| >> msgl primary in class A 
| << msgl primary in class A 
<< msgl primary in class B 
>> msgl after in class A 

| << msgl after in class A 

>> msgl after in class B 

<< msgl after in class B 

<< msgl around in class A 

<< msgl around in class B 

CLIPS> 


所 有 的 可 用 处 理 程序 按照 在 每 个 around 和 primary 处 理 程 序 调 用 call-next-handler 的 情况 下 被 调用 
的 顺序 列 出 。 缩 行 层 次 表示 了 处 理 程序 调用 的 赂 套 程度 。 与 监视 消息 处 理 程序 类 似 ，y 六 和 祥 符 号 表示 
处 理 程序 开始 和 结束 执行 。 竖 线 | 符号 串 连 接着 处 理 程序 执行 的 开始 和 结束 部 分 ， 该 处 理 程序 必须 调用 
call-next-handlers 以 允许 父 类 处 理 程 序 的 执行 。 如 果 你 要 看 对 于 给 定 的 消息 和 实例 类 的 可 用 处 理 程序 列 
表 ， 调 用 preview-send 比 监视 消息 处 理 程序 然后 发 送 给 实例 一 个 消息 更 加 方便 。 第 一 种 方法 显示 哪些 
可 调用 ， 而 第 二 种 方法 显示 实际 的 调用 。 


11.11 实例 创建 、 初 始 化 和 删除 消息 处 理 程序 


正如 前 面 提 到 的 ， 有 几 个 预先 已 定义 消息 处 理 程 序 可 以 从 USER 类 继承 ， 包 括 create. init 和 
delete 消息 处 理 程序 。create 消息 处 理 程序 在 实例 创建 后 、 赋 给 槽 默认 值 或 者 槽 重 置 之 前 调用 。init 消 
息 处 理 程序 在 重 置 所 有 未 设置 为 默认 值 的 剩余 模 值 后 被 调用 。deiete 消息 处 理 程序 既 可 以 显 式 地 调用 以 
删除 一 个 实例 ， 也 可 以 在 调用 make-instance 并 指明 一 个 已 存在 的 实例 名 后 自动 调用 。 一 般 ， 当 定义 类 
时 ， 不 要 重 置 USER 类 中 已 定义 的 primary 消息 处 理 程序 ,但 是 定义 响应 这 些 处 理 程序 的 before 和 after 
处 理 程序 将 非常 有 用 。 

首先 ,我们 看 看 什么 情况 下 定义 一 个 after 类 型 init 处 理 程序 会 非常 有 用 。 考虑 下 面 自 定义 类 : 


(defclass PERSON 
(is-a USER) 
(slot first-name (type STRING) 
(access initialize-only) ) 
(slot middle-name (type STRING) 
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(access initialize-only)) 
(slot last-name (type STRING) 
(access initialize-only) ) 
{slot full-name (type STRING) 
(access initialize-only) )) 


我 们 已 经 在 定义 PERSON 自 定 义 类 时 规定 了 一 个 人 的 名 字 在 一 个 PERSON 实例 创建 时 定义 ， 而 且 
之 后 不 能 改变 的 限制 。Full-name $Æ first-name, middle-name 和 last-name 槽 的 连接 ， 中 间 用 空格 隔 开 。 
既然 full-name 槽 只 可 以 在 初始 化 时 指定 ， 我 们 必须 连同 其 他 的 name 一 起 给 它 提供 一 个 适当 的 值 : 


CLIPS> 
(make-instance [p1] of PERSON 
(first-name "John") 
(middle-name "Quincy") 
(last-name "Public") 
(full-name “John Quincy Public") )u 
[p1] 
CLIPS> 


我 们 可 以 提供 一 个 after 类 型 的 init 消息 处 理 程序 自动 地 从 其 他 槽 值 构成 全 名 ， 而 不 需要 自己 定义 full- 
name 槽 的 值 : 


(defmessage-handler PERSON init after () 
{bind ?self:full-name 
(str-cat ?self:first-name " " 
?self:middle-name " " 
?self:last~name) } } 


通过 监视 init 消息 处 理 程序 ， 可 以 看 到 PERSON 的 after 类 型 init 消息 处 理 程序 在 USER 的 init 消息 处 
理 程序 之 后 激发 ， 存 储 在 fulLname 槽 中 的 值 是 预期 的 值 : 


CLIPS> (watch message-handlers USER init) 
CLIPS> (watch message-handlers PERSON init). 
CLIPS> 
(make-instance [p2] of PERSON 
(first-name "Jane") 
(middle-name "Paula") 
(last-name "Public”))~— 
HND >> init primary in class USER 
ED:1 (<Instance-p2>) 
HND << init primary in class USER 
ED:1 (<Instance-p2>} 
HND >> init after in class PERSON 
ED:1 (<Instance-p2>) 
HND << init after in class PERSON 
ED:1 (<Instance-p2>) 
[p2] 
CLIPS> (send [p2] get~full-name). 
"Jane Paula Public" 


CLIPS> 
注意 ， 定 义 一 个 before 类 型 init 处 理 程序 通常 没有 多 大 意义 ， 因 为 所 有 的 实例 槽 值 都 还 没有 被 初始 化 。 
Storage 属性 


作为 使 用 after 类 型 create 和 before 类 型 delete 处 理 程序 的 一 个 例子 ， 我 们 将 使 用 storage RTE. 
如 果 这 个 属性 设置 为 1ocal， 这 是 默认 值 ， 则 创建 的 每 个 实例 具有 自己 的 存放 酸 值 的 空间 。 如 果 storage 
属性 设置 为 shared， 则 一 个 类 的 所 有 实例 共享 存放 槽 值 的 空间 。 如 果 某 个 实例 的 槽 值 被 修改 了 ， 则 所 
有 实例 的 槽 值 都 被 修改 。 例 如 ， 下 面 的 类 有 一 个 使 用 了 共享 空间 的 count HH: 


(defclass INSTANCE-COUNTER 
(is-a USER) 
(slot count (storage shared} (default 1))} 


如 果 我 们 创建 两 个 实例 然后 改变 其 中 一 个 的 count HMA. MARKAK count MARAE, i Fa 
令 序列 所 示 : 
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CLIPS> (make-instance il of INSTANCE-COUNTER) .| 
CLIPss (make-instance i2 of INSTANCE-COUNTER) .| 
ee (send [i1] get-count) .| 

CLIPS> (send [12] get-count)-~! 

CLIPS (send [i1] put-count 2)-~ 

cLIPS> (send [11] get-count) 

curse (send [12] get-count)-J 

CLIPS> 


有 了 这 个 功能 ， 可 以 定义 after 类 型 create 和 before 类 型 delete 消息 处 理 程 序 ， 每 次 创建 这 个 类 的 
实例 时 增加 count 槽 值 ， 每 次 删除 这 个 类 的 实例 时 减少 count FALE: 


(defmessage-handler INSTANCE-COUNTER create 
after () 
(if (integerp ?self:count) 
then 
(send ?self put-count {+ ?self:count 1)))) 


(defmessage-handler INSTANCE-COUNTER delete 
before () 
{bind ?self:count (- ?self:count 1))) 


有 必要 解释 一 下 after 类 型 create 消息 处 理 程序 。 在 应 用 任何 默认 值 之 前 create 消息 将 被 发 送 给 实 
例 。 在 第 一 个 INSTANCE-COUNTER 实例 创建 的 情形 中 ， 当 create 消息 处 理 程序 被 激发 时 ，count 槽 
值 将 被 置 为 nil。 试 图 把 这 个 值 加 一 将 导致 错误 ， 因 为 nil 不 是 数 。after 类 型 create HH BARR AE AY if BH 
数 检查 这 种 情况 以 避免 它 。 由 于 一 个 共享 楠 的 默认 值 在 第 一 个 实例 创建 时 应 用 ， 我 们 把 count 槽 的 默 
认 值 设 为 1， 所 以 第 一 个 实例 自动 得 到 正确 值 。 对 于 随后 的 after 类 型 create 处 理 程序 的 激发 ，count fH 
的 值 为 整数 ， 所 以 if 函数 的 integerp 调用 成 功 ，count 槽 值 将 增加 。 

下 面 的 命令 序列 演示 了 创建 两 个 新 的 INSTANCE-COUNTER 实例 将 正确 地 增加 count 槽 值 到 4, 
删除 其 中 的 一 个 实例 将 把 count WERA 3: 


CLIPS> (make-instance i3 of INSTANCE-COUNTER). 
[i3] 

CLIPS> (make-instance i4 of INSTANCE-COUNTER) -! 
{i4] 

CLIPS> (send [i1] get-count).~ 

4 

CLIPS> (send [i4] delete). 

TRUE 

CLIPS> (send [11] get-count) 

3 

CLIPS> 


11.12 修改 和 复制 实例 


CLIPS 提供 了 几 个 实例 命令 ,它们 提供 了 和 事实 的 修改 、 复 制 命令 类 似 的 功能 。 这 些 命令 的 语法 
如 下 : 


(modify-instance 
<instance-expression> <slot-overrides>*) 
(message-modify-instance 
<instance-expression> <slot-overrides>*} 
(active-modify-~instance 
<instance-expression> <slot-overrides>*) 
(active-message-modify-—instance 
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<instance-expression> <slot-overrides>*) 


(duplicate-instance <instance-expression> 
{to <instance-name-expression>] 
<slot-overrides>*) 
(message-duplicate-instance <instance~expression> 
{to <instance-name-expression>] 
<slot-overrides>*) 
(active-duplicate-instance <instance-expression> 
[to <instance-name-expression>] 
<slot-overrides>*) 
(active-message-duplicate-instance 
<instance-expression> 
[to <instance-name-expression>] 
<slot-overrides>*) 


其 中 ，< instance-expression> 是 将 被 修改 或 复制 的 实例 ，< slot-overrides> 是 修改 槽 列表 ， 对 于 复 
制 命令 ，< instance-name-expression> 是 可 选 的 复制 出 的 实例 的 新 名 字 。 
最 基本 的 实例 修改 命令 是 modify-instance 命令 ,下面 是 使 用 它 的 一 个 例子 : 


CLIPS> (unwatch all) 
CLIPS> (clear) 


CLIPS> 
(defclass PERSON 
(is-a USER) 


(slot first-name) 
(slot last-name) } 
CLIPS> 
(make-instance [p1] of PERSON 
(first-name "Jeff") 
(last-name "Public"))-—! 
[pl] 
CLIPS> (watch messages). 
CLIPS> (watch slots) 
CLIPS> 
(modify-instance [p1] (first-name "Jack") 
(last-name "Private")) 
MSG >> direct-modify ED:1 (<Instance-pl> 
<Pointer-0x0062b200>) 
local slot first-name in instance pl <- "Jack" 
: local slot last-name in instance pl 
<- "Private" 
MSG << direct-modify ED:1 (<Instance-p1> 
<Pointer-0x0062b200>) 


TRUE 

CLIPS> (unwatch all) 
CLIPS> (send [p1] print) 
[p1] of PERSON 
(first-name "Jack") 
(last-name "Private") 
CLIPS> 


注意 direct-modify 消息 被 发 送 给 实例 [p1], {E put-first-name 和 put-last-name 消息 没有 发 送 。direct- 
modify 消息 处 理 程序 是 另 一 个 自动 创建 的 系统 定义 消息 处 理 程 序 。 当 使 用 modify-instance 命令 时 ,村 
值 直接 被 direct-modify 消息 处 理 程 序 改变 而 不 需要 激发 消息 传递 。 其 结果 是 和 槽 相关 的 primary after, 
before 和 around 类 型 put- 处 理 程序 都 不 会 被 激发 。 

message-modify-instance 命令 和 modify-instance 命令 有 相同 的 参数 和 语法 ， 但 它 使 用 消息 传递 来 改 
变 槽 值 。 例 如 : 


CLIPS> (watch messages). 
CLIPS> (message-modify-instance [p1] 
(first-name Sreren) 
(last-name "Public"))i 
MSG >> message-modify ED:1 (<Instance-pl> 
<Pointer-0x0062bic0>) 
MSG >> put-first-name ED:2 (<Instance-pl> "Jeff") 
MSG << put-first-name ED:2 (<Instance-pl> "Jeff") 
MSG >> put-last-name ED:2 (<Instance-pl> “Public") 
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MSG << put-last-name ED:2 (<Instance-pl> "Public") 

MSG << message-modify ED:1 (<Instance-pl> 
<Pointer-0x0062b1c0>) 

TRUE 

CLIPS> 


在 这 种 情况 下 ， 因 为 使 用 了 message-modify-instance, ATLA put-first-name 和 put-last-name 消息 处 理 程序 
用 来 改变 槽 值 。 使 用 了 另 一 个 系统 定义 消息 处 理 程序 message-modify 而 不 是 direct-modify 来 修改 实例 。 

最 后 ， 两 个 另外 的 实例 修改 命令 对 对 象 模式 匹配 进行 控制 : active-modify-instance 和 active-message- 
modify-instance。 参 数 和 语法 与 其 他 的 修改 命令 相同 。 使 用 modify-instance 和 message-modify-instance 命 
令 ， 对 象 匹配 直到 所 有 的 槽 值 改 变 完 成 后 才 进 行 。 使 用 active-modify-instance 和 active-message-modify- 
instance 命令 ， 对 象 匹配 在 每 个 槽 值 改变 后 进行 。 典 型 地 ， 你 会 希望 在 实例 的 所 有 覃 值 修改 完 后 再 激发 
对 象 模式 匹配 ， 因为 这 将 提高 性 能 ， 但 是 active 修改 命令 可 以 用 在 需要 交替 进行 的 情况 下 。 

还 提供 了 4 种 配对 的 复制 实例 命令 : duplicate-instance、message-duplicate-instance、active-duplicate- 
instance 和 active-message-modify-instance。 这 些 命令 和 对 应 的 修改 命令 有 类 似 的 行为 和 参数 ; 但 是 ， 修 
改 实例 是 参数 传送 ， 而 复制 实例 是 创建 实例 ， 并 应 用 村 重 置 。 可 以 提供 可 选 的 复制 实例 名 ; 否则 将 自 
动 生成 。 这 些 命令 的 返回 值 是 复制 的 实例 。 下 面 例子 演示 了 如 何 使 用 其 中 的 两 个 复制 命令 : 


CLIPS> (duplicate-instance [p1] 
(first-name "Jack")) 

MSG >> direct-duplicate ED:1 (<Instance-pl1> [gen2] 
<Pointer-0x006b8840>)} 

MSG << @irect-duplicate ED:1 (<Instance-pl> [gen2] 
<Pointer-0x006bB840>) 

[gen2] 

CLIPS> (message-duplicate-instance [p1] to [p3] 

(first-name "Jil1"))W 

MSG >> message-duplicate ED:1 (<Instance-pl> [p3] 
<Pointer-0x006b8840>) 

MSG >> create ED:2 (<Instance-p3>) 682 

MSG << create ED:2 (<Instance-p3>) 

MSG >> put-first-name ED:2 (<Instance-p3> “Jill") 

MSG << put-first-name ED:2 (<Instance-p3> "Jili") 

MSG >> put-last-name ED:2 {(<Instance-p3> "Public") 

MSG << put-last-name ED:2 (<Instance-p3> "Public") 

MSG >> init ED:2 (<Instance-p3>) 

MSG << init ED:2 (<Instance-p3>) 

MSG << message-duplicate ED:1 (<Instance-pi> [p3] 
<Pointer-0x006b8840>) 

[p3] 

CLIPS> (instances). 

{pl1] of PERSON 

[gen2] of PERSON 

[p3] of PERSON 

For a total of 3 instances. 

CLIPS> 


在 duplicate-instance 例子 中 ， 由 于 没有 指定 实例 名 ， 使 用 了 生成 名 [gen2 ]。 在 message-duplicate 例子 
H, HESS [p3] 作为 复制 实例 名 。 两 个 其 他 的 系统 定义 消 息 处 理 程序 direct-duplicate 和 message-du- 
plicate 根据 调用 不 同 被 分 别 发 送 消息 。 在 本 例 中 ， 是 调用 message-duplicate 和 active-message-duplicate， 
则 create, init 和 put 消 息 将 会 被 发 送 以 复制 和 重 置 新 创建 实例 的 槽 值 。 

最 后 ， 可 以 为 系统 定义 消息 处 理 程序 direct-modify, message-modify, direct-duplicate 和 message du 
plicate 定义 around, before 和 after 消息 处 理 程序 。 但 是 ， 由 于 槽 重 置 以 EXTERNAL-ADRESS 的 形式 传 
送 ， 你 只 能 用 外 部 C 语 言 来 解码 这 个 参数 ， 通 过 定义 处 理 程序 还 不 足以 实现 。 


11.13 ”类 和 类 属 函数 


类 属 函数 的 参数 限制 并 不 仅 限于 CLIPS 提供 的 预先 已 定义 类 型 。 用 户 定义 类 也 可 作为 参数 限制 。 
例如 ， 下 面 的 类 可 以 用 来 表示 一 个 复数 : 
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(defclass COMPLEX 
{is-a USER) 
(slot real) 
(slot imaginary) ) 


COMPLEX 类 表示 了 以 下 格式 的 复数 : 


a + bi 


其 中 ,a 和 bb 是 实数 ，i 是 一 1 的 平方 根 。 在 COMPLEX 类 中 ，a 的 值 存储 在 real R, b 的 值 存储 在 


imaginary 槽 。 复 数 的 加 法 很 简单 ; 


(a + bi) + (c + di) = (a+ c) + (b+ di 


下 面 方法 加 载 + 函数 以 实现 两 个 复数 的 相 加 ， 


(defmethod + ({?c1 COMPLEX) (?c2 COMPLEX)) 
(make-instance of COMPLEX 
(real (+ (send ?cl get-real) 
(send ?c2 get-real))) 
(imaginary (+ (send ?cl get-imaginary) 
(send ?c2 get-imaginary))})}}) 


这 个 方法 所 做 的 就 是 首先 把 复数 的 实 部 相 加 ， 然 后 把 虚 部 相 加 ， 并 存放 在 新 创建 的 COMPLEX 实例 


中 。 创 建 COMPLEX 类 的 实例 并 把 它们 相 加 显示 这 个 方法 正确 运行 : 


CLIPS> (make-instance cl of COMPLEX 
(real 3) (imaginary 4)) 

fel] 

CLIPS> (make-instance c2 of COMPLEX 
(real 5) (imaginary 6))-~ 

[c2] 

CLIPS> (+ [c1] [¢2])- 

[gen1] 

CLIPS> (send [gen321] print) 

[gen1] of COMPLEX 

(real 8) 

(imaginary 10) 

CLIPS> 


11.14 实例 集合 查询 范 数 


除了 对 象 的 模式 匹配 ， 也 可 以 直接 查询 COOL 得 到 满足 指定 条 件 集 的 实例 集合 。 为 了 演示 这 些 陆 


数 ， 使 用 下 面 结 构 表达 一 个 家 族 树 : 


(defclass PERSON 
(is-a USER) 
(slot full-name) 
(slot gender) 
(multislot children) ) 


(defclass FEMALE 
(is-a PERSON} 
(slot gender {access read-only) 
(storage shared) 
(default female))) 


(defclass MALE 
(is-a PERSON) 
(slot gender (access read-only) 
(storage shared) 
(default male) )) 


{definstances people 
(Ipi] of MALE (full-name “John Smith") 
(children [p5])) 
{[p2] of FEMALE (full-name "Jan Smith") 
(children [p5])) 
({p3] of MALE (full-name “Bob Jones") 
(children {p6])) 
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({p4] of FEMALE (full-name "Pam Jones") 
(children [p6]))} 

([p5] of MALE (full-name "Frank Smith") 
{children [p7]})) 

([p6] of FEMALE (full-name "Sue Jones") 
(children [p7})) 

({p7] of MALE (full-name "Dave Smith") )) 


判定 是 否 满足 查询 要 求 
最 简单 的 查询 函数 是 any-instancep。 它 的 语法 为 


(any-instancep <instance-set-template> <query>) 


其 中 < instance-set-template> 是 要 被 搜索 的 类 的 说 明 ，< query> 是 一 个 布尔 表达 式 ， 表 示 那 些 类 的 匹 
配 实例 必须 满足 的 条 件 。 如 果 发 现 一 个 实例 集合 满足 查询 ，any-instancep 函数 返回 符号 TRUE; 否则 ， 
返回 false。 

< instance-set-template> 的 语法 是 : 


(<instance-set-member~template>+) 


其 中 < instance-set-member-template > Æ : 


(<single-field-variable> <class-name-expression>+) 


<single-field-variable> 是 实例 约束 给 的 变量 ， 一 次 或 多 次 出 现 的 < class-name-expression > 是 包含 被 分 别 
约束 给 < single-field-variable> 的 实例 的 类 。 
使 用 any-instancep 的 最 简单 测试 是 判断 一 个 类 是 否 存在 实例 : 


CLIPS> (any-instancep ((?p PERSON)) TRUE) 
FALSE 

CLIPS> (reset) 

CLIPS> (any-instancep ((?p PERSON)) TRUE) -! 
TRUE 

CLIPS> 


在 这 个 例子 中 ，PERSON 类 不 存在 任何 实例 ， 直 到 执行 reset 命令 ， 创 建 了 自 定义 实例 pepole 的 实 
例 。 在 查询 中 使 用 的 TRUE 意味 着 任何 赋 给 ? p 的 值 都 满足 查询 。 
如 果 只 创建 了 MALE M FEMALE 实例 ， 可 以 通过 指明 这 两 个 类 判断 是 否 有 PERSON 类 实例 存在 : 


CLIPS> (any-instancep ((?p MALE FEMALE)) TRUE) 
TRUE 
CLIPS> 


可 以 使 用 下 面 3 个 查询 判断 是 否 存在 男人 : 


CLIPS> (any-instancep ((?p MALE)) TRUE) 
TRUE 
CLIPS> 
(any-instancep ((?p PERSON) ) 
(eq (send ?p get-gender) male) ) 
TRUE 
CLIPS> 
(any~instancep ((?p PERSON)) (eq ?p:gender male) )-! 
TRUE 
CLIPS> 


在 第 一 个 例子 中 ， 我 们 找 类 MALE 的 实例 ， 这 些 实例 的 gender 槽 包括 male。 在 第 二 个 例子 中 ， 我 们 发 
送 get-gender 消息 给 指派 给 变量 ? p 的 PERSON 实例 ， 使 用 eq 函数 判断 其 值 是 否 为 male。 在 第 三 个 例 
子 中 ,演示 了 档 速 记 表达 可 以 与 实例 集合 模板 中 约束 的 变量 一 起 使 用 。 

也 可 以 在 模板 中 指定 超过 一 个 实例 集合 成 员 : 


CLIPS> (any-instancep ((?f FEMALE) (?p PERSON)) 
(member$ ?p ?f£:children) ) 

TRUE 

CLIPS> 
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这 个 例子 测试 是 否 存在 母亲 。 对 于 每 一 个 FEMALE 类 和 PERSON 类 的 实例 组 合 ， 应 用 查询 来 判断 
PERSON ? p 是 否 是 FEMALE ?f 的 一 个 孩子 。 


判定 满足 查询 的 实例 
find-instance 和 find-all-instances 查询 函数 的 语法 与 any-instancep 函数 类 似 ; 


(find-instance <instance-set-template> <query>) 
(find-all-instances 
<instance-set-template> <query>) 


find-instance 查询 函数 返回 的 是 包含 满足 查询 的 第 一 个 实例 集合 的 多 字段 值 ， 而 不 是 TRUE 或 FALSE. 
如 果 没 有 实例 集合 满足 查询 ， 多 字段 值 为 空 。 类 似 的 ，find-all-instances 函数 返回 包含 满足 查询 的 所 有 
实例 集合 的 多 字段 值 。 例 如 : 


CLIPS> (find-instance ((?p MALE)) TRUE) 
([p1]) 
CLIPS> (find-all-instances ((?p MALE)) TRUE). 
({pl] [p3] [p5] [p71]) 
CLIPS> 
(£ind-all-instances ((?p MALE) ) 
(eq ?p:gender female) )~ 
O 


CLIPS> 
在 模板 中 指定 了 超过 一 个 集合 成 员 的 情况 下 ， 你 必须 编程 才能 分 组 返回 值 。 例 如 : 
CLIPS> 


(find-all-instances ((?f FEMALE) (?p PERSON) ) 
(member$ ?p ?£:children) ) 

({p2] [p5] [p4] [p6] [p6] (p7]) 

CLIPS> 


实例 [p2] 和 [5] 属于 第 一 个 实例 集合 ，[p4] 和 [p6] 属于 第 二 个 实例 集合 ，[p6] 和 [p7] 属于 
第 三 个 实例 集合 。 下 面 自 定义 函数 演示 了 如 何 编程 把 这 些 实例 集成 员 分 组 : 


(deffunction print-mother-message (?query-result) 
(bind ?iterations 
(div (length$ ?query-result) 2)) 
(loop-for-count (?i ?iterations) do 
(bind ?mother {nths 
(- {* 2 ?i) 1) ?query-result)) 
(bind ?child (nth$ (* 2 ?i) ?query-result) ) 
(printout t (send ?mother get-full-name) 
" is the mother of " 
(send ?child get-full-name) 
" crlf))) 


查询 返回 值 的 长 度 除 以 每 个 成 员 集合 的 实例 数 得 到 在 成 员 集合 数 上 的 和 迭代 次 数 。loop-forcount 函数 与 
nth $ 函数 结合 来 抽取 成 员 集合 中 的 每 个 实例 值 。 结 合 前 面 find-all-instances 调用 得 到 的 返回 值 ， 使 用 
print-mother-message 得 到 以 下 结果 : 


CLIPS> 
(print -mother-message 
(find-all-instances ((?f FEMALE) (?p PERSON) ) 
(member$ ?p ?f:children))) 
Jan Smith is the mother of Frank Smith. 
Pam Jones is the mother of Sue Jones. 
Sue Jones is the mother of Dave Smith. 
FALSE 
CLIPS> 


对 满足 查询 的 实例 采取 行为 


doforinstance、do-for-alLinstances 和 delayed-do-for-all-instances 查询 函数 允许 你 在 满足 查询 的 实例 
集合 上 采取 行为 。 它 们 的 语法 如 下 : 
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(do-for-instance 

<instance-set-template> <query> <expression>*) 
(do-for-all-instances 

<instance-set-template> <query> <expression>*) 
(delayed-do-for-all-instances 

<instance-set-template> <query> <expression>*) 


do-for-instance 函数 在 满足 查询 的 第 一 个 实例 集合 上 采取 指定 的 行为 。 例 如 : 


CLIPS> 
(do-for-instance ((?£ FEMALE) (?p PERSON) ) 
(mamber$ ?p ?£:children) 
(printout t ?f:full-name " is the mother of " 
?p:full-name "." crlf))4 
Jan Smith is the mother of Frank Smith. 


CLIPS> 
do-for-all-instance 函数 在 满足 查询 的 所 有 实例 集合 采取 指定 的 行为 。 例 如 : 
CLIPS> 


(do-for-all-instances {(?f FEMALE) (?p PERSON) ) 
(member$ ?p ?f£:children) 
(printout t ?£:full-name " is the mother of " 

?p:full-name "." crlf))— 

Jan Smith is the mother of Frank Smith. 

Pam Jones is the mother of Sue Jones. 

Sue Jones is the mother of Dave Smith. 

CLIPS> 


注意 使 用 do-for-all-instances 是 一 个 简单 的 获得 在 前 面 的 例子 中 的 相同 功能 的 方法 。 前 面 的 例子 使 用 
find-all-instance 函数 和 print-mother-message 自 定义 函数 。 

delayed-do-for-all-instances 函数 和 do-for-all-instances 函数 类 似 ， 除 了 它 首先 找 出 所 有 满足 查询 的 实 
例 集合 ， 然 后 对 每 个 实例 集合 执行 行为 。 相 反 的 ，do-for-all-instance 函数 对 每 个 实例 集合 应 用 查询 ， 如 
果 查 询 满 足 则 执行 行为 。 只 有 在 执行 的 行为 改变 了 一 个 还 没 被 处 理 的 实例 集合 的 查询 结果 时 ， 这 两 个 
函数 才 会 得 到 不 同 的 结果 。 例 如 ， 改 变 一 个 被 查询 引用 的 实例 槽 值 可 以 导致 两 个 函数 得 到 不 同 的 结果 。 

当 没 有 实例 集合 满足 查询 时 ， 所 有 人 允许 行为 的 查询 函数 的 返回 值 是 符号 FALSE。 和 否则， 其 返回 值 
是 在 最 后 一 个 满足 查询 的 实例 集合 上 执行 最 后 一 个 行为 的 结果 。 此 外 ， 人 允许 行为 的 查询 函数 可 以 使 用 
break 或 return 函数 提前 终止 。 


11.15 多 继承 


目前 为 止 ， 所 有 的 自 定义 类 例子 中 ， 都 只 有 单个 类 作为 is-a 属性 。 这 些 都 是 单 继承 (single inheri- 
tance) 例子 。 在 is-a 属性 中 也 可 以 指定 超过 一 个 类 。 当 出 现 这 种 情况 时 ， 称 为 多 继承 《multiple inheri- 
tance)。 在 指定 的 类 没有 共同 的 槽 或 消息 处 理 程序 的 情况 下 ， 多 继承 基本 上 等 于 在 定义 类 的 父 类 中 使 用 
单 继承 。 例 如 ， 下 面 的 例子 中 ， 类 D 通过 多 继承 直接 继承 x、y 和 z 模 : 


CLIPS> (clear) 
CLIPS> 
(defclass A 
{is-a USER) 
(slot x)) 
CLIPS> 
(defclass B 
(is-a USER) 
(slot y))a 
CLIPS> 
(defclass C 
(is-a USER) 
(slot z}} J 
CLIPS> 
(defclass D 
《Le-a C B A))A 
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CLIPS> (make-instance [d1] of D (x 3) (y 4) (z 5)). 
[d1] 

CLIPS> (send [d1] print) 

[d1] of D 

(x 3) 

(y 4) 

(z 5) 

CLIPS> 


在 下 面 的 例子 中 ， 类 BAC 作为 中 间 类 允许 类 DARRERE x 和 y: 


CLIPS> (clear) 


CLIPS> 

(defclass A 
(is-a USER) 
(slot x)) 

CLIPS> 

(defclass B 
(is-a A) 
(slot y))— 

CLIPS> 

(defclass C 
{is-a B) 
(slot 2)) 

CLIPS> 

(defclass D 
(is-a C))4 

CLIPS> (make-instance [dl] of D (x 3) (y 4) (z 5))4 

[d1] 

CLIPS> (send [d1] print) 

[Fall of D 

(x 3) 

(y 4) 

(z 5) 

CLIPS> 


注意 ， 虽 然 在 两 个 例子 中 类 D 继承 了 相同 的 槽 值 ， 但 类 B 和 C 不 同 。 由 于 在 第 二 个 例子 中 重 定义 了 类 
B 和 C， 通 过 使 用 单 继承 而 不 是 多 继承 可 以 得 到 类 D 相同 的 最 终结 果 。 典 型 的 多 继承 是 在 不 能 改变 预 


先 已 存在 类 的 情况 下 使 用 的 。 
多 继承 冲突 


大 多 数 多 继承 的 实际 例子 中 类 所 继承 的 父 类 没有 共享 槽 和 消息 处 理 程序 不 是 从 USER 类 继承 )。 
在 这 种 情况 下 ， 在 父 类 之 间 没 有 需要 化 解 的 冲突 ， 在 类 中 定义 的 与 父 类 冲突 的 槽 和 消息 处 理 程序 可 以 


进行 重 置 ， 就 像 在 单 继承 中 一 样 。 
看 下 面 一 个 简单 的 例子 ， 其 中 使 用 了 多 继承 ， 父 类 之 间 的 模 和 消息 处 理 程序 定义 有 冲突 ; 


CLIPS> (clear) 
CLIPS> 
(defclass A 
(is-a USER) 
(slot x (default 3)) 
(slot y (default 4)))J 
CLIPS> 
(defmessage-handler A compute () 
(* ?self:y 10)) 
CLIPS> 
(defclass B 
(is-a USER) 
(slot y (default 1)) 
(slot z (default 5)))W 
CLIPS> 
(defmessage-handler B compute () 
(+ ?SeIE:Y 3)) 
CLIPS> (defclass C (is-a A B))-1 
CLIPS> (defclass D (is-a B A))-! 
CLIPS> 
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在 这 个 例子 中 , BCH D 直接 继承 类 AMB AAA AM B Yt y BA compute 消息 处 理 程 序 的 定义 有 
冲突 ， 接 下 来 看 看 如 何 解决 这 个 冲突 : 


CLIPS> (make-instance [cl] of Cc) 
{cl} 

CLIPS> (make-instance [d1] of D)W 
[d1] 

CLIPS> (send [cl] print) 

fc1] of C 

(z 5) 

(x 3) 

(y 4} 

CLIPS> (send [d1} print) 

[d1] of D 

(x 3) 

(Y 1) 

(z 5) 

CLIPS> 


对 实例 [cl] 和 [2] 显示 的 结果 槽 值 有 两 点 应 该 注意 。 首 先是 槽 打印 的 顺序 ， 其 次 是 y 槽 的 值 。 权 
打印 的 顺序 有 一 点 差别 ， 显 示 出 父 类 在 is-a 属性 中 的 次 序 会 影响 类 定义 结果 。 而 这 两 个 实例 最 明显 的 
差别 是 y 酸 的 值 在 [1] 中 是 4 而 在 [di] 中 是 1。 由 于 类 C 首先 继承 类 A， 它 使 用 了 类 A 中 y 权 的 默 
认 值 而 不 是 类 B 的 默认 值 。 类 似 的 ， 由 于 类 D 首先 继承 B， 它 使 用 类 BB 中 y 村 的 默认 值 而 不 是 类 A 的 
默认 值 。 相 似 的 行为 也 会 发 生 在 compute 消息 处 理 程序 中 : 

CLIPS> (send [clj put-y 3) 


ZLips> {send [d1} put-y 3) 
QLips> (send [c1] compute) — 
rpey (send [d1] compute) 
CLIPS> 


尽管 两 个 实例 的 y 槽 都 赋 给 值 3， 实 例 [cl] 的 compute 消息 处 理 程序 计算 结果 是 30 (3x10), 而 
[di] 是 6 (3+3)。 同 样 地 ， 这 是 因为 [cl] 使 用 类 A 的 compute 消息 处 理 程序 ， 而 [dl] 使 用 类 B 的 
compute 消息 处 理 程序 。 

在 is-a 属 性 中 指定 的 类 不 是 相同 的 用 户 定义 父 类 的 简单 情况 下 ， 类 出 现 的 顺序 决定 了 多 个 同名 槽 
或 消息 处 理 程序 的 优先 级 。 在 这 个 例子 中 ， 类 C 由 于 先 指定 A 再 指定 B， 所 以 类 A 定义 优先 级 高 于 类 
B。 在 类 D 中 ， 由 于 先 指 定 B 再 指定 A， 所 以 类 BB 定义 优先 级 高 于 类 A. 

更 复杂 的 多 继承 情况 留 给 读者 自己 探索 。 本 书 配 套 光盘 中 的 “Basic Programming Guide” 包 括 了 各 
种 情况 下 多 继承 冲突 如 何 化 解 的 完整 说 明 及 例子 。 一 般 而 言 ， 如 果 使 用 多 继承 创建 类 ,在 is-a 属性 中 
类 出 现 的 顺序 影响 了 被 定义 的 类 的 行为 ， 则 你 需 考虑 你 是 否 把 问题 复杂 化 了 。 


保存 和 恢复 槽 值 


下 面 看 一 个 实用 的 多 继承 例子 : 定义 一 个 RESTORABLE 类 ， 与 其 他 类 一 起 来 保存 和 恢复 一 个 实 
例 的 槽 值 。 为 了 实现 这 个 类 ， 我 们 需要 定义 另 一 个 用 来 存放 槽 值 的 类 : 


(defclass SAVED-SLOT 
(is-a USER) 
(slot slot-name) 
(multislot slot-value) ) 


SAVED-SLOT 类 具有 slot-name 和 slot-value $. slot-name #3 FASE FE BUR EY YF... slot-value HE FAK 
放 名 字 对 应 的 槽 的 值 。 它 被 定义 为 多 字段 模 ， 因 为 我 们 既 需 要 存放 单字 段 模 也 需要 存放 多 字段 槽 的 值 。 
RESTORABLE 类 定义 如 下 : 


(defclass RESTORABLE 
(is-a USER) 
(multislot saved-slots)) 
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saved-slots 多 字段 槽 将 存放 指向 SAVED-SLOT 实例 的 零 个 或 多 个 引用 ， 它 们 用 来 代表 实例 的 槽 值 。 
save 消息 处 理 程序 用 来 保存 RESTORABLE 实例 的 槽 值 : 


(defmessage-handler RESTORABLE save () 
; Delete existing saved slots 
(progn$ (?si ?self:saved-slots) 
(send ?si delete) ) 
(bind ?self:saved-slots) 
; Determine the list of slots 
(bind ?class (class ?self)) 
(bind ?slots 
(delete-member$ (class-slots ?class inherit) 
saved-slots) ) 
; Create an empty list 
(bind ?list (creates) ) 
; Iterate over each slot 
(progns (?slot ?slots) 
{bind ?value (send ?self 
(sym-cat get- ?slot))) 
(bind ?ins (make-instance of SAVED-SLOT 
{slot-name ?Slot) 
(slot-value ?value) ) 
(bind ?list (create$ ?list ?ins))) 
; Store the saved slots 
(bind ?self:saved-slots ?list)) 


save 消息 处 理 程序 的 第 一 个 行为 是 删除 所 有 在 saved-slots 槽 中 存 有 引用 的 SAVED-SLOT 实例 。saved- 
slots 槽 然后 被 约束 为 空 多 字段 。 

接着 ， 求 出 将 要 保存 的 槽 列表 。 调 用 class 函数 决定 实例 的 类 名 ， 然 后 类 名 与 关键 字 inherit 一 起 
传 给 class-slots 函数 以 获取 包含 与 类 相关 联 的 所 有 槽 名 的 多 字段 列表 。 最 后 ， 通 过 调用 delete-member $ 
函数 从 列表 中 删除 槽 名 saved-slots。 我 们 并 不 想 在 这 个 槽 中 保存 值 ， 因 为 它 将 用 来 存放 所 有 其 他 模 
的 值 。 

然后 ， 创 建 一 个 空 表 用 来 包含 SAVED-SLOT 实例 。 使 用 progn $ 函数 在 要 保存 的 实例 的 每 个 槽 上 
eR. He. MARR. ASME get- 符 号 上 以 创建 合适 的 消息 ， 然 后 发 送 给 实例 以 获取 槽 值 。 
一 旦 醒 值 被 获取 ， 就 创建 一 个 SAVED-SLOT 实例 包含 槽 名 与 值 ， 对 这 个 实例 的 引用 被 加 到 要 保存 的 模 
列表 中 。 一 旦 所 有 的 槽 都 处 理 了 ，SAVED-SLOT 实例 引用 的 列表 就 存放 到 saved-slots F. 

与 刚 定义 的 save 消息 处 理 程序 一 起 ， 下 面 restore 消息 处 理 程序 用 来 恢复 一 个 实例 的 模 值 ， 


(defmessage-handler RESTORABLE restore () 
(progn$ (?si ?self:saved-slots) 
(bind ?name (send ?si get-slot-name) ) 
(bind ?value (send ?si get-slot-value)) 
(send ?self (sym-cat put- ?name) ?value))) 


restore 消息 处 理 程序 在 所 有 存放 在 saved-slots 槽 中 的 SAVED-SLOT SAEI. Bt SAVED-SLOT 
实例 获取 每 个 保存 的 槽 的 名 字 和 值 。 槽 名 附加 到 put- 符 号 上 以 创建 合适 的 消息 ， 然 后 发 送 给 实例 以 设 
置 槽 值 。 这 个 消息 接着 发 送 给 实例 以 恢复 槽 值 为 保存 值 。 

现在 已 定义 了 RESTORABLE 类 ,我 们 可 以 检查 它 如 何 与 已 有 的 类 一 起 用 save/restore 功能 创建 新 
的 类 。 使 用 和 前 面 例子 类 似 的 PERSON 类 : 


(defclass PERSON 
(is-a USER) 
(slot full-name) 
(slot gender) 
(multislot children) ) 


RESTORABLE-PERSON 类 将 继承 PERSON 和 RESTORABLE 类 : 


(defclass RESTORABLE- PERSON 
(is-a RESTORABLE PERSON) ) 


为 了 看 到 save/restore 如 何 工 作 ， 我 们 需要 首先 创建 RESTORABLE-INSTANCE 类 的 实例 : 
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CLIPS> (reset) 

CLIPS> 

(make-instance [pl] of RESTORABLE-PERSON 
(full~name "Sue Jones") 
(gender female) 
(children Bob Jan) ).| 

[p1] 

CLIPS> (send [p1] print) 

[p1] of RESTORABLE-PERSON 

(full-name “Sue Jones”) 

(gender female) 

(children Bob Jan) 

(saved-slots) 

CLIPS> 


发 送 一 个 save 消息 给 实例 [p1] HARARE (A: 


CLIPS> (send [p1] save) 
({gen1] [gen2] [gen3]) 
CLIPS> (send [pi] print) 
[p1] of RESTORABLE- PERSON 
(full-name "Sue Jones") 
(gender female) 

(children Bob Jan) 


{saved-slots [geni] [gen2] [gen3]) 
CLIPS> 


实例 [gen1], [gen2] 和 [gen3] 是 创建 的 SAVED-SLOT 类 的 实例 ， 用 来 保存 [p1] 的 槽 值 。 
查 这 些 实例 看 看 被 保存 的 单个 模 值 : 


CLIPS> (send [geni] print)-! 
[gen1] of SAVED-SLOT 
(slot-name full-~name) 
(slot-value "Sue Jones") 
CLIPS> (send [gen2] print) 
[gen2] of SAVED-SLOT 
{slot-name gender} 
(slot-value female) 

CLIPS> (send [gen3] print) 
[gen3] of SAVED-SLOT 
(slot-name children) 
(slot-value Bob Jan) 

CLIPS> 


下 面 更 改 实例 [pl] PALE: 


CLIPS> (gend [p1] put-full-name “Sue Smith") -! 
"Sue Smith" 

CLIPS> (send [pi] put-children Bob Jan Paul). 
(Bob Jan Paul) 

CLIPS> (send [p1] print) 

[p1] of RESTORABLE-PERSON 

(full-name "Sue Smith") 

(gender female) 

{children Bob Jan Paul) 


{saved-slots [gen1] [gen2] [gen3]) 
CLIPS> 


当 发 送 给 实例 一 个 restore HAM, SRR AAME: 


CLIPS> {send [p1] restore).| 

(Bob Jan) 

CLIPS> (send [p1] print) 

[p1] of RESTORABLE- PERSON 
{full-name "Sue Jones") 

(gender female) 

(children Bob Jan) 

(saved-slots [gen1] [gen2] [gen3]) 
CLIPS> 


可 以 检 
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11.16 自 定 义 类 和 自 定义 模块 


和 其 他 结构 类 似 ， 自 定义 类 结构 可 以 在 模块 间 输 入 和 输出 。 前 面 讨论 的 输入 和 输出 语句 可 以 输入 或 
输出 所 有 结构 ， 同 样 也 可 应 用 于 自 定义 类 。 另 外 ,使 用 下 面 任 一 语句 可 以 显 式 地 指定 输入 或 输出 哪些 类 : 


(export defclass ?ALL) 
(export defclass ?NONE) 
(export defclass <deffunction-name>+) 


(import <module-name> defclass ?ALL) 
{import <module-name> defclass ?NONE) 
(import <module-name> defclass <defclass-name>+) 


如 果 一 个 类 被 输入 或 输出 ， 那 么 所 有 与 其 相关 联 的 自 定义 消息 处 理 程序 结构 也 会 被 输入 或 输出 。 不 能 
输入 或 输出 某 个 指定 消息 处 理 程序 。 一 个 没有 从 别 的 模块 输入 自 定义 类 结构 的 模块 可 以 用 相同 的 名 字 
创建 该 类 。 这 个 准则 的 例外 情况 是 预先 已 定义 系统 类 ， 例 如 USER 类 ， 对 所 有 模块 都 可 见 ， 不 能 进行 
重 定义 。 

正如 与 事实 相关 联 的 模块 就 是 与 事实 相关 联 的 自 定义 模板 的 定义 模块 ， 与 实例 相关 联 的 模块 是 与 
实例 相关 联 的 自 定义 类 的 定义 模块 。 不 过 ， 每 一 个 模块 都 有 自己 的 “名 字 空 间 ” (namespace) 用 来 保 
持 实 例 名 字 唯 一 。 这 意味 着 一 个 模块 不 能 有 两 个 同名 实例 ， 但 不 同 的 模块 可 以 有 同名 实例 。 例 如 : 


CLIPS> (defmodule A) 

CLIPS> 

{defclass A::ACLASS (is-a USER) 
(export defclass ?ALL) ) .| 

CLIPS> (make-instance [same] of ACLASS) 

[same] 

CLIPS> (send [same] print) 

[same] of A::ACLASS 

CLIPS> (defmodule B) 

CLIPS> 

(defclass B::BCLASS (is-a USER) 
(export defclass ?ALL)) 

CLIPS> (make-instance [same] of BCLASS)~! 

[same] 

CLIPS> (send [same] print) 

[same] of B::BCLASS 

CLIPS> (set-current-module A) 

B 

CLIPS> (send [same] print). 

[same] of A::ACLASS 

CLIPS> 


注意 ， 在 模块 B 中 定义 实例 [same] 没有 导致 模块 A 中 的 实例 [same] 被 删除 ， 而 如 果 在 模块 A 中 有 
同名 实例 创建 则 会 引起 删除 操作 。 
正如 下 面 例子 所 演示 的 ， 一 个 输出 模块 的 实例 名 字 空 间 对 输入 模块 并 不 是 自动 可 见 的 : 


CLIPS> (defmodule C (import A defclass ?ALL)} 
(import B defclass ?ALL) )~! 

CLIPS> (send [same] print) 

[MSGPASS2] No such instance same in function send. 

FALSE 

CLIPS> 


在 这 种 情况 下 ， 尽 管 模块 A 和 B 都 有 一 个 [same] 实例 ， 但 模块 C 仅仅 从 自己 的 实例 名 字 空 间 中 
找寻 指定 的 实例 ， 所 以 没有 找到 。 在 另 一 个 模块 中 引用 一 个 实例 的 方法 是 把 模块 名 和 模块 分 隔 符 作为 
实例 名 的 一 部 分 。 例 如 : 


CLIPS> (send [A::same] print) 
{same] of A::ACLASS 

CLIPS> (send [B::same] print) 
{same] of B::BCLASS 

CLIPS> 
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在 这 种 情况 下 ， 由 于 模块 作为 实例 名 的 一 部 分 ，CLIPS 就 知道 使 用 哪 一 个 名 字 空 间 来 找 指定 名 字 的 实 
例 。 单 独 使 用 模块 分 隔 符 也 可 通过 实例 名 确定 实例 : 
CLIPS> (send [::same] print)J 


[samej of B::BCLASS 
CLIPS> 


在 这 种 情况 下 ，CLIPS 首先 搜索 当前 模块 ， 然 后 检查 每 个 输入 了 自 定 义 类 的 模块 。 一 般 ， 在 已 确 
定 实例 在 当前 模块 或 者 一 个 引入 的 模块 中 时 ， 你 可 能 想 只 使 用 模块 分 隔 符 。 在 这 个 例子 中 ， 实 例 [B:: 
same] 首先 被 找到 ， 但 如 果 输 入 的 顺序 改变 ， 那 么 [A:: same] 将 首先 被 找到 。 

引用 在 其 他 模块 中 的 实例 看 起 来 可 能 有 点 复杂 ， 但 事实 上 你 只 需 了 解 它 是 如 何 工作 的 。 典 型 地 ， 
程序 使 用 实例 地 址 而 不 是 实例 名 来 引用 实例 。 当 使 用 实例 地 址 时 ， 就 不 会 像 使 用 实例 名 一 样 不 明确 哪 
一 个 实例 正在 被 引用 。 实 例 名 一 般 用 于 你 从 命令 行 发 送 一 个 消息 给 实例 ， 通 常 这 个 名 字 是 唯一 的 ， 因 
此 ， 如 果 当 前 模块 输入 了 与 这 个 实例 相关 联 的 自 定义 类 ， 你 可 仅 使 用 模块 分 隔 符 。 


11.17 调 入 和 保存 实例 
和 事实 类 似 ， 有 几 个 命令 用 于 保存 实例 到 文件 和 从 文件 中 调 人 实例 。 这 些 命令 是 save-instances、 


bsave-instances 、load-instances 、restore-instances 和 bload-instances。 这 些 命令 的 语法 如 下 : 


(save-instances <file-name> 
[<save-scope> [[inherit? <class-names>+]) 


(bsave-instances <file-name> 
[<save-scope> [[inherit] <class-names>+]) 


(load-instances <file-name>) 
(restore-instances <file-name>) 


(bload-instances <file-name>) 
其 中 < save-scope > EMA: 

visible | local 

load-instances 命令 从 < fle-name> 指 定 的 文件 中 调和 一 组 实例 。 在 文件 中 的 实例 必须 遵循 声明 实例 
的 自 定 义 实例 结构 的 基本 格式 。 例 如 ， 如 果 文 件 “instances.dat” 包 含 : 


(Jack of PERSON (full~name "Jack Q. Public") 
(age 23)) 

{of PERSON (full-name "John Doe") 
(hair-color black} } 


那么 命令 : 

{load-instances "instances.dat") 
将 调 入 这 个 文件 中 的 实例 。 调 用 load-instances 等 同 于 使 用 一 系列 的 make-instance 调用 。rcstore-instances 
命令 和 load-instances 命令 类 似 ; 但 是 ， 当 对 装 人 的 实例 进行 删除 、 初 始 化 或 设置 槽 值 时 ， 它 不 采用 消 
息 传 递 的 方式 。 这 些 命令 的 返回 值 都 是 调 人 的 实例 数 ， 或 者 当 命令 无 法 存 取 实 例文 件 时 返回 - 1。 

save-instance 命令 用 来 保存 实例 到 < file-name> 指 定 的 文件 中 。 这 些 实例 以 load-instances 和 restore- 
instances 命令 要 求 的 格式 存储 。 如 果 没 有 指定 < save-scope> ， 或 者 指定 为 local， 那 么 只 有 当前 模块 所 
定义 的 自 定 义 类 相应 的 实例 会 被 保存 到 文件 中 。 如 果 < saved-scope> 指 定 为 visible， 那 么 所 有 在 当前 模 
块 中 可 见 的 自 定 义 类 相应 的 实例 都 会 被 保存 到 文件 中 。 如 果 指 明了 < saved-scope> ， 还 指明 了 一 个 或 多 
个 类 名 。 在 这 种 情况 下 ， 只 有 指定 的 自 定义 类 相应 的 实例 会 被 保存 (但 是 ， 自 定义 类 名 必须 仍 满足 lo- 
cal 或 visible 说 明 )。 如 果 指 定 了 inherit 关键 字 ， 那 么 满足 local 或 visible 说 明 的 指定 类 的 子 类 实例 也 会 
被 保存 。 这 个 命令 的 返回 值 是 被 保存 的 实例 数 。 

除了 使 用 二 进 制 格式 而 不 是 文本 格式 存储 实例 外 ，bsave-instances 和 bload-instances 命令 与 save-in- 
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stances 和 load-instances 命令 类 似 。 因此， 你 只 能 对 使 用 bsave-instances 命令 创建 的 文件 采用 bload-in- 
stances 命令 。 使 用 这 些 命令 的 好 处 在 于 ， 对 于 大 量 的 实例 ， 调 人 二 进 制 格式 会 比 文本 格式 快 得 多 。 缺 
点 是 二 进 制 文件 通常 不 能 从 一 个 平台 移植 到 另 一 个 平台 。 


11.18 小 结 


这 一 章 介绍 了 CLIPS 面向 对 象 语言 (COOL)。 实 例 (或 对 象 ) 是 CLIPS 提供 的 另 一 种 数据 表示 。 
实例 的 属性 用 自 定义 类 结构 说 明 。 过 程 化 代码 ， 称 为 消息 处 理 程序 ， 可 以 使 用 自 定义 消息 处 理 程序 结 
构 来 关联 类 。 继 承 允 许 类 使 用 与 另 一 个 类 相关 联 的 槽 和 消息 处 理 程序 。COOL 支持 单 继承 和 多 继承 。 
一 个 从 别 的 类 继承 的 类 称 为 子 类 。 被 继承 的 类 称 为 这 个 类 的 父 类 。 子 类 从 父 类 继承 属性 和 消息 处 理 程 
序 , 但 当 两 个 类 有 重复 定义 ， 子 类 会 重 置 父 类 的 定义 。 使 用 role 属性 ， 可 以 创建 只 能 用 于 继承 的 抽象 
类 。 这 些 类 无 法 创建 实例 。 相 反 的 ， 具体 类 可 以 继承 也 可 以 创建 实例 。COOL 预先 已 定义 了 一 些 基本 
类 。 大 多 数 用 户 创 建 类 继承 系统 类 USER。 自 定义 实例 结构 允许 当 发 出 reset 命令 时 创建 指定 的 实例 

A 

除了 自 定义 模板 提供 的 槽 属性 ， 自 定义 类 还 支持 几 个 另外 的 槽 属性 。source 属性 允许 槽 属性 从 父 
类 继承 。propagation 属性 可 以 取消 槽 的 继承 。pattern-match 属性 用 来 说 明 一 个 槽 或 类 能 否 参 与 到 模式 
匹配 中 。visibility 属性 允许 说 明 一 个 权能 否 被 子 类 的 消息 处 理 程序 直接 存 取 。access 属性 直接 限制 槽 允 
许 的 存 取 类 型 。create-accessor 属性 用 来 控制 类 村 的 get- 和 put- 处 理 程序 的 自动 创建 。storage 属性 允许 
说 明 一 个 村 值 是 否 被 类 的 所 有 实例 共享 ， 还 是 每 个 实例 有 自己 的 值 。 

有 几 个 预先 已 定义 系统 消息 处 理 程序 用 来 创建 、 初 始 化 、 打 印 和 删除 实例 。 此 外 ， 可 以 创建 用 户 
定义 消息 处 理 程序 。 通 过 send 命令 发 送 消息 名 和 相关 参数 给 实例 来 激发 消息 处 理 程序 。 消 息 处 理 程 序 
可 以 是 4 种 类 型 之 一 : primary、around、before 或 after。primary 处 理 程序 是 响应 消息 的 主要 处 理 程序 。 
before 和 after 处 理 程序 分 别 被 在 primary 处 理 程序 之 前 和 之 后 激发 。around 处 理 程 序 也 称 为 wrapper 处 
理 程序 ， 因 为 它 围绕 在 before, after 和 primary 处 理 程序 的 周围 ， 可 以 在 他 们 之 前 或 之 后 执行 。around 
处 理 程序 必须 显 式 地 激发 其 他 类 型 处 理 程 序 。primary 消息 处 理 程序 重 置 或 者 掩盖 从 父 类 继承 相同 消息 
的 primary 消息 处 理 程序 ， 不 过 ， 也 可 以 激发 被 掩盖 的 处 理 程序 。 但 父 类 的 around, before 和 after 消息 
处 理 程序 不 会 被 子 类 定义 掩盖 。 

对 象 模式 匹配 提供 了 事实 模式 匹配 所 不 具备 的 几 个 功能 。 首 先 ， 一 个 单一 对 象 模式 可 以 匹配 几 个 
类 的 实例 。 其 次 ， 在 对 象 模式 中 没有 说 明 的 模 值 的 改变 不 会 再 激发 这 个 模式 所 属 的 规则 。 第 三 ,在 逮 
辑 条 件 元 素 的 对 象 模式 里 没有 说 明 的 槽 值 更 改 不 会 导致 相关 规则 的 逻辑 证 实 失效 。 

COOL 提供 了 几 个 实例 集合 查询 函数 ， 可 以 直接 在 实例 集合 上 查询 满足 指定 条 件 集 的 实例 。 这 些 
函数 中 有 几 个 还 允许 对 查询 结果 采取 行为 。 除 了 CLIPS 提供 的 预先 已 定义 类 型 外 ， 类 属 函 数 的 参数 限 
制 还 可 以 使 用 用 户 自 定义 类 。save-instances、bsave-instances load-instances, restore-instances 和 bload-in- 
stances 函数 用 来 把 实例 保存 到 文件 ， 或 从 文件 中 调 人 实例 。 
习题 
11.1 修改 习题 10.3 中 的 程序 ， 使 之 具有 解释 能 力 。 在 打印 最 优 匹配 的 灌木 之 后 ， 程 序 应 该 提示 用 户 

决定 他 /她 是 否 想 要 关于 该 灌木 的 解释 说 明 。 若 按 了 retum 键 ， 则 程序 终止 执行 。 若 输入 了 某 灌 
木 的 名 称 ， 则 程序 列 出 所 满足 的 要 求 、 不 满足 的 要 求 和 其 他 可 以 满足 的 要 求 。 一 旦 打印 了 此 解 
释 ， 就 再 次 提示 用 户 决定 他 /她 是 否 需要 另 一 个 解释 机 会 。 

11.2 修改 习题 10.7 的 程序 使 得 可 以 安排 几 个 学 生 的 课程 表 。 程 序 的 输入 从 文件 读 人 。 你 可 以 自己 决 
定 输入 数据 的 格式 ; 但 是 ， 它 应 该 包含 每 个 学 生 的 姓名 、 要 安排 的 课程 、 学 生 偏爱 的 教师 和 上 
课时 段 。 程 序 的 输出 写 到 文件 中 ,输出 的 文件 包括 每 个 学 生 的 姓名 以 及 他 的 课程 表 。 

11.3 ”修改 习题 10.6 的 程序 使 得 可 以 动态 重 配置 菜单 。 例 如 ， 选 择 子 菜单 1 的 菜单 选项 1 将 在 子 菜单 
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2 中 显示 两 个 菜单 选项 ， 但 选择 子 菜 单 1 的 菜单 选项 2 将 在 子 菜单 2 中 显示 4 个 菜单 选项 。, 
11.4 对 下 面 的 自 定 义 类 编写 get-side 处 理 程 序 的 before 处 理 程序 ， 当 side 槽 的 值 为 默认 值 unspecified 
时 ， 提 示 用 户 输入 槽 值 : 


(defclass SQUARE 
(is-a USER) 
(slot side (default unspecified) )) 


11.5 创建 一 个 ARRAY 自 定 义 类 和 相关 的 消息 处 理 程序 以 表达 多 维 数组 。 提 供 获 取 和 设置 数组 值 的 
消息 处 理 程序 。 提 供 可 以 指定 数组 元 素 默认 值 的 功能 ， 以 及 在 用 make-instance 创建 实例 时 指定 
初始 值 的 功能 。 最 后 ， 提 供 显示 数组 内 容 的 功能 。 一 维 数组 显示 为 一 行 数据 ， 二 维 数组 显示 为 
行 和 列 。 其 他 多 位 数组 按 其 下 标 顺序 显示 为 一 行 一 组 数值 。 

11.6 使 用 习题 11.15 的 ARRAY 自 定义 类 和 消息 处 理 程序 ， 加 载 * 函数 ， 提 供 两 个 二 维 数组 相 乘 的 方 
法 。 使 用 其 他 方法 来 检查 条 件 错误 ， 如 两 个 二 维 数组 的 行 和 列 数目 不 适合 相 乘 。 

11.7 创建 一 个 LINKED-LIST 自 定义 类 和 相关 的 消息 处 理 程序 ， 以 便 创建 链接 表 。 自 定义 类 的 定义 
应 该 允许 其 他 类 继承 它 似 获取 链接 表 功 能 。 提 供 获 取 链 表 中 的 下 一 个 和 前 一 个 对 象 、 插 入 对 象 
到 链表 中 、 删 除 链表 中 的 一 个 对 象 、 打 印 链 表 的 消息 处 理 程序 。 写 一 个 程序 演示 如 何 使 用 一 个 
自 定义 类 继承 LINKED-LIST 类 。 

11.8 创建 一 个 ITERATOR 自 定 义 类 和 相关 的 消息 处 理 程 序 ， 可 以 枚 举 一 个 多 字段 值 的 字段 。 被 枚 举 
的 值 可 以 读 取 ， 也 可 以 设置 为 make-instance 调用 的 一 部 分 以 创建 这 个 类 的 一 个 实例 ， 但 除了 这 
个 类 的 消息 处 理 程 序 外 ， 不 能 用 其 他 方法 来 存 取 类 的 槽 值 。 提 供 first 消息 处 理 程序 初始 化 枚 举 
表 并 返回 枚 举 表 的 第 一 个 值 。 提 供 Next 和 previous 消息 处 理 程 序 分 别 获取 枚 举 表 的 下 一 个 和 前 
一 个 值 。 

11.9 创建 MEASUREMENT 自 定 义 类 存储 一 个 长 度 的 单位 和 数量 。 使 用 习题 10.20 和 10.21 中 的 方 
法 ,创建 一 个 新 方法 ， 把 两 个 MEASUREMENT 实例 相 加 ， 返 回 新 的 存放 总 和 的 实例 。 

11.10 创建 STACK 自 定义 类 和 消息 处 理 程序 以 支持 堆栈 的 压 入 和 弹出 操作 。 

11.11 创建 SHUFFLER 自 定义 类 ， 实现 shuffle 消息 处 理 程 序 ， 可 以 随机 重 排 存 储 在 SHUFFLER 实 
例 中 的 值 表 。 

11.12 创建 CARD 自 定 义 类 表示 扑克 牌 。 创 建 DECK 自 定义 类 并 初始 化 为 包含 52 张 扑 克 牌 。 使 用 习 
题 10.11 的 SHUFFLER 自 定义 类 ， 提 供 shuffle 消息 处 理 程序 来 洗 牌 。 

11.13 使 用 方法 重 置 - 、“ 和 /函数 ， 实 现 COMPLEX 类 实例 的 减法 、 乘 法 和 除法 。 

11.14 写 一 个 自 定 义 函 数 统计 一 个 字符 串 中 每 个 字母 出 现 的 次 数 ， 并 打印 统计 结果 。 

11.15 创建 DIRECTORY 自 定 义 类 ， 存 放 姓 名 和 电话 号 码 。 提 供 在 目录 中 增加 和 删除 表 项 ， 以 及 按 
照 姓名 或 号 码 搜索 ， 并 打印 所 有 匹配 表 项 的 消息 处 理 程序 。 





第 12 章 专家 系统 设计 实例 


12.1 概述 


本 章 提供 了 几 个 CLIPS 程序 的 例子 。 第 一 个 例子 演示 了 怎样 利用 CLIPS 表示 不 确定 性 。 接 下 来 的 
两 个 例子 演示 了 怎样 通过 CLIPS 来 仿真 其 他 知识 表示 范例 : 其 一 是 关于 判定 树 的 表示 ， 另 一 是 有 关 反 
向 链 规则 的 表示 。 第 4 个 也 是 最 后 一 个 例子 是 建立 监视 一 组 传感器 件 的 简单 专家 系统 框架 。 


12.2 确定 性 因子 


CLIPS 内 部 没有 处 理 不 确定 性 的 能 力 。 然 而 ， 通 过 在 事实 和 规则 中 放置 一 些 处 理 不 确定 性 的 信息 ， 
从 而 使 CLIPS 具 有 对 不 确定 性 的 处 理 能 力 是 可 能 的 。 例 如 :; MYCIN 中 的 不 确定 性 机 制 将 会 通过 
CLIPS 仿真 。 本 节 将 演示 下 面 的 MYCIN 规则 (Firebaugh 88) 是 如 何 用 CLIPS 改写 的 : 


IF 
The stain of the organism is gramneg( 生 物体 的 染色 呈 革 兰 氏 阳 性 ) and 
The morphology of the organism is rod( 生 物体 的 形态 是 棍 状 ) and 
The patient is a compromised host( 病 人 是 感染 体 ) 
THEN 
There is suggestive evidence (0.6) that the 
identity of the organism is pseudomonas 
(有 证 据 表 明 (0.6) 这 种 生物 是 假 单 胞 细菌 属 ) 
MYCIN 使 用 对 象 - 属性 - 值 (OAV) 三 元 组 来 代表 实际 信息 。 这 些 OAV 三 元 组 在 CLIPS 中 通过 使 
用 下 列 的 自 定义 模板 结构 来 表达 (这 种 结构 将 被 置 于 它 自身 的 模块 中 来 创建 一 种 可 重用 的 软件 模块 ): 
(defmodule OAV (export deftemplate oav)) 
(deftemplate OAV: :cav 
{multislot object (type SYMBOL) ) 


{multislot attribute (type SYMBOL) } 
(multislot value) ) 


使 用 这 种 自 定 义 模板 ， 前 面 MYCIN 规则 的 IF 部 分 所 需要 的 一 些 事实 将 是 : 


(oav (object organism) 
(attribute stain) 
(value gramneg) ) 


(oav (object organism) 
(attribute morphology) 
(value rod) ) 


(oav (object patient) 
{attribute is a) 
(value compromised host)) 


MYCIN 也 将 每 个 事实 与 代表 事实 中 可 信和 度 的 确定 性 因子 (CF) 联系 起 来 。 这 个 确定 性 因子 的 变 
化 范围 为 -1 到 1; -1 意味 着 该 事实 已 知 是 假 的 ; 0 意味 着 不 知道 任何 关于 这 个 事实 的 信息 (彻底 的 
不 确定 性 ); 1 意味 着 该 事实 已 知 是 真 的 。 

因为 CLIPS 不 能 自动 处 理 确定 性 因子 (CF)， 所 以 ， 此 信息 也 必须 被 维护 。 为 此 ， 每 个 事实 上 的 
一 个 附加 槽 将 用 来 表示 确定 性 因子 。 每 个 事实 的 oav 自 定义 模板 现在 成 为 : 


(deftemplate OAV: :oav 
(multislot object (type SYMBOL) ) 
(multislot attribute (type SYMBOL) ) 
(multislot value) 
(slot CF (type FLOAT) (range —1.0 +1.0))) 
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例子 中 的 事实 可 以 是 : 


(oav (object organism) 
(attribute stain) 
(value gramneg) 

(CF 0.3)) 

(oav (object organism) 
(attribute morphology) 
(value rod) 

(CF 0.7)) 


(oav (object patient) 
(attribute is a) 
(value compromised host) 
(CF 0.8)) 


为 了 使 oav 事实 工作 正常 ， 必 须 对 CLIPS 进行 更 进一步 的 修改 。MYCIN 允许 相同 的 OAV 三 元 组 
由 不 同 的 规则 推导 出 来 。 产 生 的 这 些 OAV 三 元 组 可 以 组 合生 成 单个 OAV 三 元 组 ， 这 个 三 元 组 组 合 了 
这 两 项 的 确定 性 因子 。 现 在 的 OAV 自 定义 模板 只 有 当 两 个 相等 的 OAV 三 元 组 有 不 同 的 确定 因子 时 ， 
才 人 允许 它们 被 声明 (通常 CLIPS 是 不 允许 两 条 重复 的 事实 被 声明 的 )。 为 使 具有 相同 确定 因子 的 相等 
OAV 三 元 组 被 声明 ， 可 使 用 set-fact-duplication 命令 使 阻止 相等 的 事实 不 会 被 声明 的 CLIPS 行为 失效 。 


As A 
命令 : 





(set-fact-duplication TRUE) 
将 使 其 行为 无 效 。 同 样 ， 命 令 

(set-fact-duplication FALSE) 
将 阻止 相同 的 事实 不 会 被 声明 。 

前 已 述 及 ，MYCIN 系统 将 会 组 合 两 条 相同 的 OAV 三 元 组 使 之 成 为 一 条 单独 的 有 组 合 的 确定 性 的 
OAV 三 元 组 。 如 果 两 个 事实 中 的 确定 性 因子 (表示 为 CF MCF) 都 大 于 或 等 于 0， 则 MYCIN 系统 将 
使 用 下 面 的 公式 来 计算 新 的 确定 因子 : 


New Certainty = (CF, + CF.) - (CF, * CF.) 


例如 ， 假 定 下 列 事实 在 事实 表 中 


(oav (object organism) 
(attribute morphology) 
(value rod) 

(CF 0.7)) 


(oav (object organism) 
{attribute morphology) 
(value rod) 


(CF 0.5)) 
if CF, =0.7 MCR =0.5， 则 对 于 这 两 个 事实 的 组 合 的 新 确定 因子 可 计算 如 下 : 
New Certainty = (0.7 + 0.5) - (0.7 * 0.5) 
= 1.2 - 0.35 
= 0.85 


并 且 ， 代 蔡 原 来 两 个 事实 的 新 事实 可 表示 为 : 


(oav (object organism) 
(attribute morphology) 
(value rod) 

(CF 0.85)) 


既然 CLIPS 不 能 自动 地 处 理事 实 的 确定 因子 ， 故 可 以 推断 出 ， 它 也 不 能 自动 组 合 由 不 同 规则 推出 
的 两 个 OAV 三 元 组 。OAYV 三 元 组 的 组 合 可 以 很 容易 地 通过 一 条 规则 来 处 理 ， 该 规则 就 是 在 事实 表 上 
搜索 待 组 合 的 相同 OAV 三 元 组 。 下 面 的 方法 和 规则 演示 了 当 两 个 OAV 三 元 组 的 确定 因子 大 于 或 等 于 
0 时 ， 是 怎样 实现 它们 的 组 合 的 : 
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(defmethod OAV::combine-certainties 
((?C1 NUMBER (> ?C1 0))(?C2 NUMBER (> ?C2 0))) 
(- (+ ?C1 ?C2) (* ?C1 ?C2))) 


(defrule OAV: :combine-certainties 
(declare (auto-focus TRUE) ) 
?factl <- (oav (object $?0} 
(attribute $?a) 
(value $?v) 
(CF ?C1)) 

?fact2 <- (oav (object $70) 
(attribute $?a) 
(value $?v) 
(CF ?C2)) 

(test (neq ?factl ?fact2)) 

=> 

(retract ?factl) 

(modify ?fact2 

(CF (combine-certainties ?C1 ?C2))})) 


请 注意 ,在 test CE 中 事实 标识 符 fact] 和 ? fact2 被 相互 比较 。 这 样 做 是 为 了 保证 ， 对 前 两 个 模式 
使 用 完全 相同 的 事实 时 ， 该 规则 并 不 匹配 。 函 数 eq 和 neq 能 比较 事实 的 地 址 。 同 时 要 注意 ， 规 则 中 自 
动 焦点 属性 一 直 是 有 效 的 。 这 就 保证 了 为 这 两 个 三 元 组 所 满足 的 其 他 规则 被 允许 触发 之 前 ， 两 个 OAV 
三 元 组 已 组 合 了 。 

实现 确定 因子 的 下 一 步 是 将 两 个 确定 性 因子 连接 起 来 ， 一 个 是 符合 规则 LHS 的 事实 的 确定 因子 ， 
另 一 个 是 被 规则 的 RHS 声明 的 事实 的 确定 因子 。 在 MYCIN 中 ， 与 规则 的 LHS 相 联 系 的 确定 因子 是 由 
下 列 公式 推导 出 来 的 : 

CF(P, or P2) = max { CF(P:), CF(P:) } 


CF(P: and P2) = min { CF(P,), CF(P2) } 
CF(not P) = - CF(P) 


EP, P, P 和 也 代表 LHS 的 模式 。 另 外 ， 如 果 LHS 的 确定 因子 小 于 0.2， 则 此 规则 被 认为 是 不 适用 
的 ， 因 此 将 不 会 被 触发 。 

规则 RHS 则 被 声明 的 事实 的 确定 性 因子 可 这 样 求 得 : 将 规则 的 LHS 的 确定 性 因子 乘 以 声明 的 确 
定性 因子 。 下 面 的 CLIPS 规则 是 对 本 节 开 始 介绍 的 MYCIN 规则 的 翻译 ， 它 演示 了 LHS 及 RHS 的 确 
定性 因子 的 计算 过 程 。 这 条 规则 被 放 在 IDENTIFY BRP, CA OAV 模块 中 输入 oav 自 定 义 模板 。 


defmodule IDENTIFY (import OAV deftemplate oav) ) 


(defrule IDENTIFY: :MYCIN-to-CLIPS-translation 
{oav (object organism) 
(attribute stain) 
(value gramneg) 
(CF ?C1)) 
(oav (object organism) 
(attribute morphology) 
(value rod) 
(CF ?C2)) 
(oav (object patient) 
(attribute is a) 
(value compromised host) 
(CF ?C3)) 
(test (> (min ?C1 ?C2 ?C3) 0.2)) 
=> 
(bind ?C4 (* (min ?C1 ?C2 ?C3) 0.6))} 
(assert (oav (object organism) 
(attribute identity) 
(value pseudomonas) 
(CF ?C4)))) 


最 后 一 步 要 求 完 成 MYCIN 中 确定 性 因子 的 仿真 。 一 条 使 用 combine certainties 规则 的 combine- 
certainties 方 法 只 处 理 确定 性 因子 都 为 正 的 一 种 情况 ， 其 余 组 合 情 况 由 下 面 的 公式 完成 : 
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New Certainty = (CF, + CF,) + (CE CE,) 
# CFS 0 and CS 0 
CF, + CF, 
1-min {| CF|, + | CF,|} 
车 A1< CEF1 “cF2< 0 


12.3 判定 树 


回忆 第 3 章 ， 判 定 树 提供 了 一 个 十 分 有 用 的 范例 ， 该 范例 解决 了 某 些 类 别 的 分 类 问题 。 判 定 树 的 
解决 方法 是 通过 一 系列 问题 和 判定 来 调整 搜索 区 域 以 减少 可 能 的 解决 方案 而 得 到 的 。 适 合用 判定 树 解 
决 的 问题 可 由 其 特征 描述 ， 该 特征 值 从 一 组 预先 决定 的 可 能 的 解决 方法 中 提供 一 个 答案 给 这 个 问题 。 
例如 ， 一 个 分 类 学 问题 可 能 需要 从 一 系列 已 知 的 宝石 中 鉴定 一 种 宝石 ， 或 者 ， 诊 断 问题 需要 从 一 组 治 
疗 方法 中 选择 一 种 可 能 的 治疗 方法 或 从 一 系列 可 能 的 原因 中 选择 一 种 失败 的 原因 。 因 为 答案 必须 预先 
设 定 ， 所 以 ， 通 常 来 说 ， 判 定 树 在 调度 、 计 划 或 综合 问题 中 不 是 很 有 效 ， 因 为 这 些 问 题 除了 在 解决 方 
法 中 选择 外 ， 还 必须 提出 解决 方法 。 

记 住 ， 一 棵 判定 树 是 由 结 点 和 分 枝 组 成 的 。 结 点 代表 树 中 的 位 置 。 当 从 项 端 移 到 底 端 时 ， 分 枝 就 
将 父 结 点 连 到 子 结 点 ; 当 从 底 端 移 到 顶端 时 ， 它 又 将 子 结 点 连 到 父 结 点 。 树 顶端 没有 父 结 点 的 结 点 称 
为 根 结 点 。 注 意 ， 在 判定 树 中 除了 根 结 点 外 ， 每 个 结 点 只 有 一 个 父 结 点 。 没 有 子 结 点 的 结 点 称 为 树叶 。 

判定 树 的 叶 结 点 代表 能 从 树 派 生出 来 的 所 有 可 能 的 解决 方案 。 这 些 结 点 称 为 答案 结 点 (answer 
nodes) ， 树 上 所 有 其 他 结 点 则 被 称 为 判定 结 点 (decision nodes)。 每 个 判定 结 点 代表 一 个 问题 或 判定 。 
当 回答 问题 或 作 判 定时 ， 它 决定 选取 一 个 合适 的 判定 分 枝 继续 下 去 。 在 简单 的 判定 树 中 ， 问 题 可 以 是 
“yes” 或 “no” 的 问题 。 例 如 :“ 该 动物 是 暖 血 动物 吗 ?” 如 果 回 答 是 “yes”"， 则 结 点 的 左 分 枝 代表 继续 
的 路 径 ; 如 果 回 答 是 “no"， 则 结 点 的 右 分 枝 代表 继 续 的 路 径 。 通 常 ， 如 果 选 择 过程 总 是 只 产生 一 个 单 
独 的 分 枝 的 话 ， 判 定 结 点 可 使 用 任何 准则 来 选择 接 下 去 的 分 枝 。 因 此 ， 判 定 结 点 可 以 选择 一 条 分 枝 ， 
它 可 对 应 于 一 组 值 或 一 个 值 范围 、 一 系列 情况 或 对 应 于 一 些 从 判定 结 点 状态 映射 到 分 枝 的 功能 。 复 杂 
的 判定 结 点 甚至 可 能 允许 回溯 或 概率 推理 。 

为 了 说 明 判 定 树 的 操作 ， 思 考 采 用 试探 的 方法 选择 合适 的 酒 以 供 就 餐 使 用 : 

IF 主 菜 是 牛 羊肉 

THEN 选择 红酒 


IF 主 菜 是 家 禽 并 且 是 火 鸡 
THEN 选择 红酒 


IF 主 菜 是 家 禽 并 且 不 是 火 鸡 
THEN 选择 白酒 


IF 主 菜 是 鱼 

THEN 选择 白酒 

关于 酒 的 探索 法 的 二 又 判定 树 表示 已 示 于 图 12.1 中 。 此 判定 结 点 假定 ， 每 个 问题 的 答案 只 能 用 
“是 ”或 “ 否 ” 来 回答 。 在 主 菜 既 不 是 牛 羊肉 ， 也 不 是 家 禽 和 鱼 的 情况 下 ， 一 个 默认 的 结果 结 点 将 “最 
好 的 颜色 不 知道 ”这 个 答案 添加 到 试探 的 集合 中 。 

遍历 树 得 到 答案 结 点 的 过 程 是 十 分 简单 的 。 推 理 过 程 以 设置 判定 树 的 当前 位 置 为 根 结 点 开始 。 A 
当前 位 置 为 一 判定 结 点 ， 则 必须 以 某 种 方式 回答 与 该 判定 结 点 相 联系 的 问题 〈 一 般 是 由 人 来 询问 判定 
树 )。 如 果 答 案 为 “是 ”， 则 当前 位 置 将 被 设置 为 同 当前 位 置 的 “是 ”分 支 (或 左 分 支 ) 相 联系 的 子 
结 点 。 

如 果 答 案 是 “和 否 ”， 则 当前 位 置 将 被 设置 为 同 当前 位 置 的 “ 否 ”( 或 右 ) 分 支 相 联系 的 子 结 点 。 如 
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主 菜 是 牛 羊肉 吗 ? 
s 


Ye 











图 12.1 二 叉 判 定 树 


果 在 任意 点 ， 答 案 结 点 成 为 当前 结 点 ， 则 此 答案 结 点 的 值 就 是 询问 该 判定 树 所 得 的 答案 。 和 否则 ， 处 理 
判定 结 点 的 过 程 将 重复 进行 ， 直 至 到 达 一 个 答案 结 点 。 关 于 这 个 算法 的 伪 代 码 如 下 : 


procedure Solve_Binary_Tree 
Set the current location in the tree 
to the root node. 
while the current location is a decision node do 
Ask the question at the current node. 
if the reply to the question is yes 
Set the current node to the yes branch. 
else 
Set the current node to the no branch. 
end if 
end do 
Return the answer at the current node. 
end procedure 


多 又 判定 树 


二 叉 判 定 树 很 难 表示 一 个 有 一 组 响应 或 一 系列 情况 的 判定 。 关 于 酒 的 二 叉 判 定 树 给 它 的 低 效 性 提 
供 了 一 个 很 好 的 例子 。 在 主 菜 是 鱼 的 情况 下 ， 在 决定 最 好 的 颜色 是 白色 之 前 ， 必 须 做 3 TRE: “ER 
是 否 为 牛 羊肉 ?”“ 主 菜 是 否 为 家 禽 ?”“ 主 菜 是 否 为 鱼 ?” 这 3 个 问题 必须 询问 。 一 个 使 判定 结 点 简洁 表 
达 的 更 直接 的 问题 是 “ 主 菜 是 什么 ?” 一 个 能 处 理 这 个 问题 的 判定 决 点 必须 有 多 个 分 枝 ， 以 便 给 出 一 系 
列 可 能 的 决定 (在 这 里 答案 有 牛 羊肉 、 家 禽 、 鱼 和 其 他 )。 图 12.2 显示 了 图 12.1 修改 后 的 判定 树 ， 简 
单 修改 Solve _ Binary _ Tree 算法 即 允 许 实现 多 分 枝 : 


procedure Solve Tree 
Set the current tree location to the root node. 
while the current location is a decision node do 

Ask the question at the current node until 
an answer in the set of valid choices 
for this node has been provided. 

Set the current node to the child node of 
the branch associated with the choice 
selected. 

end do 
Return the answer at the current node. 
end procedure 
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图 12.2 多 叉 判 定 树 


判定 学 习 树 

有 时 ， 一 棵 判定 树 通过 学 习 在 其 中 添加 新 的 知识 是 非常 有 用 的 ， 像 通常 用 到 的 动物 识别 判定 树 例 
子 就 是 这 样 。 一 旦 判定 树 已 得 到 答案 ， 它 就 问答 案 是 否 正确 。 如 果 正 确 ， 则 不 须 再 做 什么 了 。 然 而 ， 
如 果 答 案 不 正确 ,那么 ， 判 定 树 将 被 修改 以 得 出 正确 的 答案 。 包 含 一 个 问题 的 判定 结 点 将 代替 答案 结 
点 ， 所 包含 的 问题 不 同 于 原来 这 个 结 点 上 的 旧 答 案 和 没有 被 猜 中 的 答案 。 图 12.3 显示 了 一 棵 根据 特征 
将 动物 分 类 的 判定 树 。 这 棵 判定 树 有 点 过 于 简单 〈 它 仅 知道 3 种 动物 的 情况 )， 并 且 它 需要 学 习 。 


该 动物 是 暖 血 
动物 吗 ? 
No 


该 动物 会 
噶 噶 叫 吗 ? 











图 12.3 动物 识别 判定 树 


一 棵 树 的 猜测 性 对 话 可 能 按 如 下 过 程 进行 


Is the animal warm-blooded? (yes or no) yes 

Dees the animal purr? (yes or no) noJ 

I guess it is a dog 

Am I correct? (yes or no) no- 

What is the animal? birdJ 

What question when answered yes will distinguish 
a bird from a dog? Does the animal fly? 

Now I can guess bird 

Try again? (yes or no) no- 


这 一 对 话 可 以 一 直 继续 下 去 ， 于 是 判定 树 可 学 习 到 越 来 越 多 的 信息 。 图 12.4 显示 了 上 述 对 话 完成 后 判 
定 树 的 表示 情况 。 用 这 种 方式 学 习 的 一 个 缺点 是 ， 在 猜测 适当 的 动物 中 ， 判 定 树 最 后 不 会 很 有 层次 或 
很 有 效率 。 一 棵 有 效 的 判定 树 从 根 结 点 到 答案 结 点 的 所 有 路 径 应 具有 基本 相同 的 分 枝 数 。 
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该 动物 是 暖 血 
动物 吗 ? 






该 动物 会 
噶 噶 叫 吗 ? 


图 12.4 学 习 了 乌 之 后 的 动物 识别 判定 树 


将 算法 Solve _ Tree 修改 成 具有 学 习 能 力 的 伪 码 程序 是 ， 


procedure Solve_Tree_and_Learn 
Set the current location in the tree 
to the root node 
while the current location is a decision node do 

Ask the question at the current node. 

if the reply to the question is yes 
Set the current node to the yes branch. 

else 
Set the current node to the no branch. 

end if 
end do 
Ask if the answer at the current node is 
correct. 
if the answer is correct 
Return the correct answer. 
else 

Determine the correct answer. 

Determine a question which when answered yes 
will distinguish the answer at the current 
node from the correct answer. 

Replace the answer node with a decision node 
that has as its no branch the current 
answer node and as its yes branch an 
answer node with the correct answer. 

The decision node’s question should be 
the question which distinguishes the 
two answer nodes. 
end if 
end procedure 


一 个 基于 规则 的 判定 树 程 序 


确定 如 何 用 CLIPS 实现 一 棵 会 学 习 的 判定 树 的 第 一 步 是 决定 应 该 怎样 表达 知识 。 因 为 判定 树 需要 
学 习 ， 所 以 ， 用 事实 而 不 用 规则 来 表示 知识 也 许 是 值得 的 ， 因 为 事实 在 学 习 过 程 中 通过 添加 和 删除 来 
更 新 判定 树 的 操作 更 容易 。 我 们 可 以 通过 使 用 基于 规则 的 方法 实现 Solve _ Tree _ and _ Learn 算法 ， 从 


而 将 一 组 CLIPS 规则 应 用 于 判定 树 的 遍历 。 


在 判定 树 中 ， 每 个 结 点 将 表示 为 一 个 事实 。 下 面 的 自 定义 模板 将 既 用 来 表示 答案 结 点 又 用 来 表示 


判定 结 点 : 
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(deftemplate node 
(slot name) 
(slot type) 
{slot question) 
(slot yes-node) 
(slot no-node} 
(slot answer) ) 


HP, name MEMMTKAANE-ZS. type 槽 表示 结 点 的 类 别 ， 它 包含 值 一 answer (SR) 或 
decision (判定 )。question fH. yes-node 槽 和 no-node 槽 都 只 能 用 于 判定 结 点 。question 槽 表示 遍历 某 个 
问题 结 点 时 所 问 的 问题 。yes-node 槽 表示 对 问题 作出 肯定 回答 后 将 历经 的 结 点 。no-node 1 EX (Al ALE 
否定 回答 后 所 要 历经 的 结 点 。answer 槽 只 能 用 于 答案 结 点 ， 它 是 遍历 一 个 答案 结 点 时 对 判定 树 的 答案 。 

由 于 此 动物 分 类 程序 需要 学 习 ， 所 以 ， 在 此 程序 下 一 次 被 运行 前 有 必要 将 从 这 次 运行 时 学 习 到 的 
信息 存储 下 来 。 因 为 判定 树 将 被 设计 为 一 个 事实 收集 的 结构 ， 因 此 使 用 load-facts 命令 将 它们 (信息) 
存储 于 文件 中 、 在 程序 开始 运行 时 用 load-facts 命令 声明 它们 并 在 程序 运行 结束 时 用 save-facts 命令 保存 
它们 ， 这样 做 将 是 很 有 用 的 。 在 这 个 程序 中 ,事实 被 在 人 一 个 名 叫 animal. dat 的 文件 中 。 如 果 图 12.3 
用 于 初始 的 判定 树 ， 则 文件 animal. dat 就 应 该 包含 下 面 的 文本 。 注 意 ， 根 结 点 已 被 标记 了 ， 其 余 每 个 
结 点 也 有 一 个 唯一 的 名 字 。 同 时 要 注意 的 是 ， 某 些 权 (例如 ，decision HY. BRA AH no-node HA 
yes-node $) 都 未 被 指定 ， 因 为 这 些 村 将 被 设 为 默认 值 ( 在 我 们 的 程序 中 并 不 关心 这 些 槽 中 放置 了 什 
么 值 )。 


(node (name root) (type decision) 
(question "Is the animal warm-blooded?") 
(yes-node nodel) (no-node node2) ) 
{node (name nodel) (type decision) 
(question *Does the animal purr?") 
(yes-node node3) (no-node node4) ) 
{node (name node2) (type answer) (answer snake) } 
(node (name node3) (type answer) (answer cat) ) 
(node (name node4) (type answer) (answer dog) ) 


现在 ， 要 写 遍 历 判定 树 的 规则 。 下 面 的 规则 将 对 学 习 判 定 树 程序 进行 初始 化 : 


(defrule initialize 
(not (node (name root))) 
=> 
(load-facts "animal.dat") 
(assert (current-node root))) 


当 根 结 点 不 在 事实 表 中 时 ， 将 执行 这 个 initialize 规则 。 这 个 初始 化 规则 所 进行 的 操作 是 将 判定 树 表示 
调 人 到 事实 表 中 ， 并 声明 一 个 事实 指示 当前 感 兴趣 的 结 点 是 根 结 点 。 
下 面 的 规则 将 询问 与 一 个 判定 结 点 相关 联 的 问题 ， 然 后 声明 一 个 包含 对 该 问题 的 答案 的 事实 : 


(deffunction ask-yes-or-no (?question) 
(printout t ?question " (yes or no) ") 


(bind ?answer (read) ) 

(while (and (neq ?answer yes) (neq ?answer no)) 
(printout t ?question " (yes or no) ") 
(bind ?answer (read) )) 

(return ?answer) } 


(defrule ask-decision-node-question 
?node <- (current-node ?name) 
(node (name ?name) 
(type decision) 
(question ?question) ) 
(not (answer ?)} 
=> 
(assert (answer (ask-yes-or-no ?question)))) 


只 有 在 当前 结 点 为 判定 结 点 时 ， 第 二 模式 才 与 当前 结 点 相 匹配 。 第 三 模式 检测 该 问题 是 否 还 未 得 
到 回答 。 在 规则 RHS 中 ，ask-yes-or-no 自 定义 函数 重复 询问 答案 直到 得 到 一 个 肯定 或 否定 的 回答 ， 然 
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后 执行 以 下 两 条 规则 之 一 。 


(defrule proceed-to-yes-branch 
?node <- (current-node ?name) 
{node (name ?name) 
(type decision) 
(yes-node ?yes-branch) ) 
?answer <- (answer yes) 
=> 
{retract ?node ?answer) 
(assert (current-node ?yes-branch) }) 


(defrule proceed-to-no-~branch 
?node <- (current-node ?name) 
(node (name ?name) 
(type decision) 
(no-node ?no-branch) ) 
?answer <- (answer no) 
=> 
(retract ?node ?answer) 
(assert (current-node ?no-branch) )) 


HP, current-node 事实 将 被 撤销 ， 接 着 ， 用 一 个 依赖 于 问题 答案 的 新 声明 更 新 该 事实 。answer 事 
实 也 将 被 撤销 ， 以 便 再 次 激活 ask-decision-node-question 规则 。 


下 一 条 规则 询问 答案 结 点 是 否 已 作出 正确 的 猜测 。 它 所 进行 的 操作 与 ask-decision-node-question 规 
则 类 似 。 


(defrule ask-if-answer~node-is-correct 
?node <- (current-node ?name) 
(node (name ?name) (type answer) 
(answer ?value) ) 
(not (answer ?)} 
=> 
(printout t "I guess it is a " ?value crif) 
(assert 
(answer (ask-yes-or-no "Am I correct?")))) 


如 果 答 案 既 非 肯定 也 非 否 定 ， 则 bad-answer 规则 将 激活 另 一 个 ask-if-answer-node-is-correct 规则 。 
如 果 回 答 是 肯定 的 或 否定 的 ， 则 将 执行 以 下 两 条 规则 之 一 。 如 果 答 案 结 点 的 值得 到 验证 ， 则 声明 ask- 
try-again 事实 以 要 求 该 用 户 继续 。 如 果 答 案 是 错误 的 ， 则 开始 学 习 并 声明 replace-answer-node 事实 ， 以 
表明 此 结 点 名 要 被 蔡 换 掉 。 不 论 哪 一 种 情况 都 会 撤销 current-node 事实 和 answer 事实 。 


(defrule answer-nođe-guess-is-correct 
?node <- (current-node ?name) 
{node (name ?name) (type answer)) 
?answer <- (answer yes) 
=> 
{assert (ask-try-again)) 

{retract ?node ?answer)) 


(defrule answer-node-guess-is-incorrect 
?node <- (current-node ?name) 
(node (name ?name) (type answer) ) 
?answer <- (answer no} 
=> 


(assert (replace-answer-node ?name) ) 
(retract ?node ?answer) } 


接 下 来 的 3 条 规则 用 来 判定 用 户 是 否 想 要 继续 进行 。ask-try-again 规则 提出 “是 否 重 试 ?” 问 题 。 
一 次 重 试 后 ， 如 果 又 得 出 一 个 既 不 是 肯定 又 不 是 否定 的 回答 ， 则 将 再 次 执行 bad-answer 规则 。 如 果 回 
答 是 肯定 的 ， 那么 one-more-time 规则 将 会 把 current-node 事实 恢复 为 根 结 点 而 使 猜测 过 程 重新 开始 。 
如 果 回 答 是 否定 的 ， 那么 ,使 用 save-facts 命令 将 代表 判定 树 的 事实 保存 到 animal. dat 文件 中 。 
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(defrule ask-try-again 
(ask-try-again) 
{not (answer ?)) 
=> 
(assert (answer (ask-yes-or-no "Try again?")))) 


(defrule one-more-time 
?phase <- (ask-try-again) 
2answer <- (answer yes) 
=> 
(retract ?phase ?answer) 
{assert (current-node root))) 


(defrule no-more 
?phase <- (ask-try-again) 
?answer <- (answer no) 
=> 
{retract ?phase ?answer) 
(save-facts "animal.dat" local node) ) 


最 后 ， 如 果 答案 是 错误 的 ， 那 么 ， 以 下 的 规则 将 添加 一 个 允许 判定 树 去 学 习 的 新 判定 结 点 。 


(defrule replace-answer-node 
?phase <- (replace-answer-node ?name) 
?data <- (node (name ?name) 
(type answer) 
(answer ?value)) 
=> 
(retract ?phase) 
; Determine what the guess should have been 
(printout t "What is the animal? ") 
(bind ?new-animal (read)} 
; Get the question for the guess 
(printout t "What question when answered yes ") 
(printout t "will distinguish " erlf " a") 
(printout 七 ?new-animal " from a " ?Value "? ") 
(bind ?question (readline) ) 
(printout t "Now I can guess " ?new-animal crif) 
; Create the new learned nodes 
(pind ?newnodel (gensym*) ) 
(bind ?newnode2 (gensym*)) 
(modify ?data (type decision) 
(question ?question) 
(yes-node ?newnodel) 
(no-node ?newnode?2) ) 
(assert (node (name ?newnodel) 
(type answer) 
(answer ?new-animal) ) ) 
(assert (node (name ?newnodel) 
(type answer) 
(answer ?value))) 
; Determine if the player wants to try again 
(assert (ask-try-again) )) 


Replace-answer 结 点 规则 要 求 对 这 个 动物 的 正确 进行 判断 ， 并 询问 一 个 问题 ， 以 便 将 该 动物 区 别 于 已 由 
判定 树 判断 为 正确 答案 的 那 种 动物 。 旧 的 答案 结 点 将 被 一 个 判定 结 点 代替 ， 同 时 产生 两 个 答案 结 点 作 
为 刚 学 习 的 问题 的 回答 。gensym* 函数 〈 每 次 调用 时 产生 一 个 唯一 的 标识 ) 可 用 来 为 两 个 新 生成 的 答 
案 结 点 取 名 。 然 后 ，ask-try-again 事实 被 声明 ， 以 判定 该 程序 是 否 须 再 运行 一 次 。 


判定 树 程序 的 逐步 跟踪 


判定 树 程序 的 特性 可 通过 执行 过 程 而 了 解 。 假 设 判定 树 规则 已 被 调 人 ， 包 含 初始 化 判定 树 事实 的 
文件 animal.dat 也 已 创立 ， 下 面 的 对 话 显示 了 执行 reset 命令 后 的 系统 状态 ， 
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CLIPS> (watch facts) 
CLIPS> (watch rules) 
CLIPS> (reset) 

==> f£-0 {initial-fact) 
CLIPS> (agenda) 

0 initialize: £-0, 

For a total of 1 activation. 
CLIPS> 


initialize 规则 因 root node 事实 的 缺失 而 被 激活 。 判 定 树 中 允许 执行 初始 化 规则 。 注 意 ， 下 列 各 步 
又 中 的 某 些 输出 缩 行 是 为 了 提高 可 读 性 。 


CLIPS> (run 1) 

FIRE 1 initialize: f-0, 

==> f-1 (node (name root) (type decision) 

(question "Is the animal warm-blooded?") 

(yes-node nodel) (no-node node2) 
(answer nil)) 

==> f-2 (node (name nodel) (type decision) 
(question "Does the animal purr?" 
(yes-node node3) (no-node node4) 
(answer nil)) 


==> f-3 (node (name node2) (type answer) 
(question nil) (yes-node nil) 
(no-node nil) (answer snake) ) 

==> f-4 (node (name node3) (type answer) 


(question nil) (yes-node nil) 
(no-node nil) (answer cat)) 

==> £-5 {node (name node4) (type answer) 
(question nil) (yes-node nil) 
(no-node nil) (answer dog)) 

==> £-6 (current-node root) 

CLIPS> (agenda) 

0 ask-decision-node-question: f-6,f-1, 

For a total of 1 activation. 

CLIPS> 


initialize 规则 使 用 load-facts 函数 将 事实 调 人 到 判定 树 中 。current-node 事实 被 设置 为 root node 事 
实 。 因 为 根 结 点 是 判定 结 点 ， 所 以 ，ask-decision-node-question 规则 被 激活 。 该 规则 和 相关 的 proceed-to- 
yes-branch 规则 执行 会 产生 下 列 对话 : 


CLIPS> (run 2) 


FIRE 1 ask-decision-node-question: f-6,f-1, 
Is the animal warm-blooded? (yes or no) yes 
==> f-7 (answer yes) 

FIRE 2 proceed-to-yes-branch: f-6,f-1,f£-7 
<== f£-6 (current-node root) 

<== f-7 {answer yes) 

==> £-8 (current-node nodel) 

CLIPS> (agenda) J 

0 ask-decision-node-question: f-8,f-2, 
For a total of 1 activation. 

CLIPS> 


与 根 判 定 结 点 相关 联 的 问题 是 “该 动物 是 暖 血 动物 吗 ?” 当 问题 的 回答 是 肯定 时 ， 则 proceed-to- 
yes-branch 规则 使 判定 结 点 的 左 结 点 ( 即 nodel) 成 为 当前 结 点 。 由 于 nodel 也 是 判定 结 点 ， 所 以 ask- 
decision-node-question 规则 被 再 次 激活 。 其 后 的 两 条 规则 再 次 执行 将 产生 下 面 的 对 话 : 


CLIPS> (run 2)J 


FIRE 1 ask-decision-node-question: f-8,f-2, 
Does the animal purr? (yes or no) noJ 

==> f£-9 (answer no) 
FIRE 2 proceed-to-no-branch: f£-8,f-2,f£-9 
<== £-8 (current-node nodel) 

== £-9 (answer no) 


> £-10 (current-node node4) 
I 


ask-if-answer-node-is-correct: f-10,f-5, 
For a total of 1 activation. 
CLIPS> 
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proceed-to-no-branch 规则 将 使 判定 结 点 的 右 结 点 〈 即 node 4) 成 为 当前 结 点 。 由 于 node 4 结 点 是 一 个 答案 
结 点 ， 所 以 ， 将 激活 ask-if-answer-nodeis-correct 规则 。 该 规则 和 下 一 条 规则 执行 将 产生 以 下 的 对 话 : 


CLIPS> (run 2). 

FIRE 1 ask~if-answer-node-is-correct: f-10,f-5, 

I guess it is a dog 

Am I correct? (yes or no) no 

==> f-11 {answer no) 

FIRE 2 answer-node-guess-is~incorrect: £-10,f£-5, 
f-11 

==> f£-12 (replace-answer-node node4) 

£-10 (current-node node4) 

== f-21 {answer no} 

CLIPS> (agenda). 

0 replace-answer-node: f-12,f£-5 

For a total of 1 activation. 

CLIPS> 


与 这 个 答案 结 点 相关 联 的 猜测 是 狗 。 由 于 该 猜测 错误 ， 故 replace-answer-node 规则 被 激活 以 决定 正 


<= 


tot 


确 答案 。 人 允许 执行 这 条 规则 将 产生 以 下 的 对 话 ; 





CLIPS> (run 1). 

FIRE 1 replace-answer-node: £-12,£-5 

<== f-12 (replace-answer-node node4} 

What is the animal? bird 

What question when answered yes will distinguish 

a bird from a dog? Does the animal fly? 

Now I can guess bird 

<== 上 -5 (node (name node4) (type answer) 
(question nil) 
(yes-node nil) (no-node nil) 
(answer dog) ) 

==> £-13 (mode (name node4) (type decision) 
(question 
"Does the animal fly?") 
(yes-node genl) (no-node gen2) 
{answer dog) } 

==> £-14 {node (name geni) (type answer} 
(question nil) 
(yes-node nil) (no-node nil) 
(answer bird)) 

==> £-15 (node (name gen2} (type answer) 
{question nil) 
(yes-node nil) (no-node nil) 
(answer dog) ) 

==> f-16 (ask-try-again) 

CLIPS> (agenda) J 

0 ask-try-again: f-16, 

For a total of 1 activation. 

CLIPS> 


首先 ， 控 制 事 实 (replace-answer-node node4) 被 撤销 ， 接 着 ， 通 过 对 能 产生 正确 推理 的 问题 的 回 


答 作 出 正确 推理 。 不 正确 的 答案 结 点 被 修改 为 问题 结 点 ， 然 后 ， 从 新 的 问题 结 点 产生 两 个 答案 结 点 。 
最 后 ， 声 明 ask-try-again (询问 是 否 重 试 ) 事实 来 决定 是 否 需要 做 另 一 次 识别 。 人 允许 ask-try-again 规则 、 
然后 又 允许 no-more 规则 执行 将 产生 以 下 的 对 话 : 


CLIPS> (run 2) 
FIRE 1 ask-try-again: f-16, 
Try again? (yes or no) nod 


==> f-17 {answer no) 

FIRE 2 no-more: f-16,f£-17 
<== f-16 (ask-try-again) 
<== f-17 (answer no) 


CLIPS> (agenda)! 
CLIPS> 
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通过 ask-try-again 规则 询问 用 户 是 否 需 要 再 做 一 次 鉴别 。 由 于 回答 为 否定 (no)， 所 以 no-more 规 
则 将 把 判定 树 保存 回 animal. dat 文件 中 。 完 成 此 对 话 后 ，animal. dat 文件 的 最 终 形式 如 下 : 


(node 


(node 


(node 


(node 


(node 


{node 


(node 


{name root) (type decision) 

(question "Is the animal warm-blooded?") 
(yes~node nodel} (no-node node2) 

(answer nil)) 

(name nodel}) (type decision) 

(question "Does the animal purr?") 
(yes-node node3) (no-node node4) 

{answer nil)) 

(name node2) (type answer) 

(question nil) 

(Yes-node nil) (no-node nil) {answer snake) ) 
(name node3) (type answer) 

(question nil) 

(yes-node nil) (no-node nil) (answer cat)) 
(name node4) (type decision) 

(question “Does the animal fly?") 

{yes-node genl) (no-node gen2) (answer dog) ) 
{name gen1) (type answer) 

(question nil) 

(yes-node nil) (no-node nil) (answer bird)) 
(name gen2) (type answer) 

(question nil) 

{yes-node nil) (no-node nil) (answer dog))} 


node 4 结 点 已 被 指向 两 个 新 的 答案 结 点 的 一 个 判定 结 点 所 蔡 代 。 而 且 ， 在 保存 这 些 事实 时 ， 自 动 
赋予 某 些 自 定 义 模板 槽 的 默认 值 nil 现在 也 得 到 明确 说 明 。 


12.4 REH 


CLIPS 并 不 直接 将 反 向 链 作 为 其 推理 机 的 一 部 分 来 实现 。 但 是 ， 反 向 链 可 用 CLIPS 正 向 链 规 则 来 
模拟 。 本 节 将 论述 如 何在 CLIPS 中 建立 简单 的 反 向 链 系统 。 应 该 注意 的 是 ，CLIPS 是 作为 正 向 链接 语 


言 设计 的 ; 


如 果 一 个 反 向 链 方 法 更 适合 于 解决 某 个 问题 ， 那 么 ， 就 应 该 采用 能 在 其 推理 机 中 直接 实现 


反 向 链 的 语言 ， 如 PROLOG, 
建立 的 CLIPS 反 疝 链 系统 将 有 以 下 性 能 和 限制 
。 事实 可 表示 为 属性 - 值 对 。 
。 反 向 链 以 一 个 单一 的 初始 目标 属性 的 声明 而 开始 。 
。 只 有 属性 值 与 一 个 特定 值 相 等 才 被 作为 一 个 规则 前 件 的 测试 条 件 。 


规则 前 件 的 行为 只 能 是 指定 单一 属性 的 值 。 
如 果 使 用 规则 不 能 决定 一 个 目标 属性 的 值 ， 那 么 ， 反 向 链 系 统 将 要 求 提供 该 属性 的 值 。 不 能 赋 


给 属性 一 个 未 知 值 。 


一 个 属性 只 能 有 唯一 的 值 。 系 统 不 支持 关于 不 同 规则 中 的 不 同属 性 的 假设 推理 。 


。 不 能 表示 不 确定 性 。 
一 个 反 向 链 的 算法 


在 写 一 个 反 向 链 推理 机 并 尝试 用 CLIPS 的 基于 规则 的 方法 之 前 ， 我 们 将 思考 一 个 程序 算法 。 以 下 
伪 码 程序 用 来 决定 一 个 目标 属性 值 ， 它 使 用 了 具有 前 面 所 讨论 性 能 和 限制 的 反 向 链 方法 : 


procedure Solve_Goal (goal) 
goal: the current goal to be solved 
if value of the goal attribute is known 


Return the value of the goal attribute. 


end if 


for each rule whose consequent is the goal 
attribute do 
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call Attempt_Rule with the rule 
if Attempt_Rule succeeds then 
Assign the goal attribute the value 
indicated by the consequent of the rule. 
Return the value of the goal attribute. 
end if 
end do 


Ask the user for the value of the goal 
attribute. 

Set the goal attribute to the value supplied 
by the user. 

Return the value of the goal attribute. 


end procedure 


目标 属性 是 作为 参数 传 给 Solve _ Goa 程序 的 。 这 个 程序 将 决定 该 目标 属性 的 值 ， 并 返回 该 值 。 
Solve_ Goal 程序 首先 检测 这 个 目标 属性 值 是 否 已 知 。 该 值 可 能 已 被 某 条 规则 的 后 件 所 指定 ,或 者 , 已 
由 反 向 链 系统 的 用 户 提供 。 若 该 值 确实 已 知 ， 则 返回 该 值 。 

如 果 该 属性 值 未 知 ， 则 Solve _ Goal 程序 将 试 着 找 出 一 条 把 赋值 该 属性 值 作 为 其 后 件 的 规则 来 决定 
这 个 属性 值 。Solve _ God 程序 将 逐一 尝试 每 一 个 把 赋值 给 目标 属性 作为 其 后 件 的 规则 ， 直 至 其 中 之 一 
成 功 为 止 。 每 一 条 有 所 需 属性 的 规则 都 要 给 Attempt _ Rule 程序 (将 很 快 详细 讨论 ) 去 尝试 。 如 果 被 党 
试 的 规则 的 前 件 满 足 ， 那 么 就 成 功 了 ; 和 否则， 该 规则 就 失败 。 如 果 规 则 成 功 ， 则 这 条 规则 后 件 中 的 属 
性 值 就 被 赋值 给 目标 属性 ， 并 通过 Solve _ Goal 程序 返回 该 值 。 若 该 规则 不 成 功 ， 那 么 ， 将 尝试 下 一 个 
把 赋值 给 目标 属性 作为 其 后 件 的 规则 。 

如 果 所 有 规则 都 不 成 功 ， 就 必须 询问 用 户 去 决定 此 目标 属性 的 值 。 由 用 户 提供 的 值 将 被 Solve _ 
Goal 程序 返回 。 

Attempt _ Rule 程序 用 于 判断 是 否 满足 规则 的 前 件 。 若 此 前 件 被 满足 ， 则 该 规则 的 后 件 可 用 来 赋值 
目标 属性 值 。 该 程序 的 伪 代码 如 下 : 


procedure Attempt_Rule(rule) 
rule: rule to be attempted to solve goal 
for each condition in the antecedent 
of the rule do 
call Solve_Goal with condition attribute 
if the value returned by solve_goal is not 
equal to the value required by the condition 
then 
Return unsuccessful. 
end if 
end for 


Return successful 


end procedure 


Attempt _ Rule 程序 从 规则 的 第 一 条 件 处 开始 ， 并 在 尝试 该 规则 随后 的 条 件 之 前 先 检 验 该 条 件 。 为 
了 确定 是 否 满足 一 个 条 件 ，Attempt _ Rule 程序 必须 知道 在 条 件 中 被 测试 的 属性 值 。 为 了 决定 该 值 ， 则 
递归 调用 Solve _ Goal 程序 。 如 果 由 Solve _ Goal 程序 返回 的 值 不 等 于 条 件 所 需 的 值 ， 则 Attempt _ Rule 
程序 将 中 止 ， 并 返回 值 ，unsuccessful (不 成 功 ) ( 记 住 ， 在 条 件 中 只 测试 相等 )。 否 则 ， 将 继续 检测 此 
规则 的 下 一 个 条 件 。 若 规则 的 所 有 条 件 都 满足 ， 则 Attempt-Rule 程序 将 返回 值 ，successful (成 功 )。 


CLIPS 反 向 链 规则 的 表达 


又 一 次 遇 到 此 类 问题 ， 解 决 它 的 第 一 步 仍 然 是 确定 应 该 如 何 表达 知识 。 由 于 CLIPS 不 能 自动 执行 
反 向 链 ， 因 此 ， 将 反 向 链 规 则 表达 为 事实 是 有 用 的 ， 这 样 ， 前 件 和 后 件 就 可 以 由 作为 反 向 链 推理 机 的 
规则 检验 。 表 达 反 向 链 规则 的 自 定义 模板 如 下 所 示 。 它 将 存储 在 自 定义 模块 BC 中 〈 当 学 完 反 向 链 推 
理 机 所 需 的 所 有 自 定义 模板 后 ， 将 在 本 小 节 末尾 定义 此 模块 BC)。 
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(deftemplate BC::rule 
{multislot if) 
(multislot then) ) 


if Al then 槽 分 别 存 储 每 条 规则 的 前 件 和 后 件 。 每 个 前 件 或 者 包含 单个 形 如 : 

<attribute> is <value> 
的 属性 一 值 对 (attribute-value pair)， 或 者 包含 一 系列 由 符号 and 连接 的 这 种 属性 - 值 对 。 而 每 条 规则 
的 后 件 只 允许 包含 单个 属性 - 值 对 。 

思考 图 12.2 中 的 判定 树 ， 作 为 使 用 这 种 格式 来 表达 规则 的 例子 。 可 以 使 用 前 面 描述 的 AV 对 很 容 
易 地 将 这 种 树 转换 为 规则 。 转 换 后 的 规则 的 伪 码 是 : 


IF main-course is red-meat 
THEN best-color is red 


IF main-course is poultry and 
meal-is-turkey is yes 
THEN best-color is red 


IF main-course is poultry and 
meal-is-turkey is no 
THEN best-color is white 


IF main-course is fish 
THEN best-color is white 


规则 所 用 的 属性 是 main-course, meal-is-turkey 和 best-color. main-course 属性 对 应 于 由 判定 树 问 题 
“ 主 菜 是 什么 ?” 决 定 的 回答 。meal-is-turkey 属性 对 应 于 由 问题 “ 主 菜 是 火 鸡 吗 ?” 决 定 的 回答 。 注 意 ， 
确定 最 好 的 颜色 未 知 的 判定 树 的 分 枝 没 有 规则 表达 ， 因 为 我 们 的 反 向 链 系统 的 限制 之 一 是 ， 未 知 值 不 
能 被 表达 。 如 果 主 菜 不 能 得 到 任何 答案 ， 像 这 种 情况 ， 将 会 询问 用 户 best-color 属性 的 值 。 

下 列 自 定义 事实 示 出 了 如 何 使 用 反 向 链 规则 的 格式 表达 酒 的 规则 。 由 于 这 些 rule 事实 不 是 反 向 链 
推理 机 的 固有 部 分 ， 因 此 ， 它 们 被 置 于 MAIN 模块 中 (回忆 MAIN 模块 从 所 有 其 他 模块 输入 ， 因 此 ， 
rule 自 定义 模板 对 于 此 MAIN 模块 是 可 见 的 )。 


(deffacts MAIN: :wine-rules 
(rule (if main-course is red-meat) 
(then best-color is red)) 


(rule (if main-course is fish) 
(then best-color is white)) 


(rule (if main-course is poultry and 
meal-is-turkey is yes) 
(then best-color is red)) 


(rule (if main-course is poultry and 
meal-is-turkey is no) 
(then best-color is white))) 


当 处 理 这 些 反 向 链 规则 时 ， 这 种 表达 提供 了 很 高 的 灵活 性 。 例 如 ， 如 果 确 定 属性 main-course 有 
poultry 值 ， 则 事实 : 


(rule (if main-course is red-meat) 
(then best-color is red)) 


和 


(rule (if main-course is fish) 
(then best-color is white)) 


可 以 从 事实 表 中 删除 ， 表 示 这 些 规则 不 适用 ， 并 且 事 实 : 
(rule (if main-course is poultry and 
meal-is-turkey is yes) 
(then best-color is red)} 
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和 


(rule (if main-course is poultry and 
meal-is-turkey is no) 
(then best-color is white)) 


可 分 别 修改 为 下 面 事实 ; 


(rule (if meal-is-turkey is yes) 
{then best-color is red)) 


和 


(rule (if meal-is-turkey is no) 
(then best-color is white) ) 


这 表明 ， 这 两 个 规则 的 第 一 条 件 已 经 被 满足 。 
随 着 反 向 链 的 进行 ， 将 产生 一 些 子 目标 以 确定 属性 值 。 这 需要 事实 来 表达 关于 目标 属性 的 信息 。 
有 序 事实 将 用 来 表达 目标 属性 ， 其 格式 是 : 


(deftemplate BC::goal 
(slot attribute) ) 


一 开始 ， 上 有 目标 值 是 best-color。 这 可 以 用 自 定义 事实 表达 为 : 


(deffacts MAIN: :initial-goal 
(goal (attribute best-color))) 


当 属性 值 确 定 后 ， 就 需要 存储 它们 ， 这 可 用 下 面 的 自 定义 模板 完成 : 


(deftemplate BC::attribute 
(slot name) 
(slot value) ) 


至 此 ， 所 有 自 定义 模板 都 已 提出 ， 故 可 以 开始 定义 BC 模块 了 。 记 住 ， 当 你 调 人 一 个 结构 文件 时 ， 
包含 其 他 结构 的 自 定义 模块 必须 在 定义 此 模块 中 的 结构 之 前 被 定义 。 


(defmodule BC 
(export deftemplate rule goal attribute) ) 


CLIPS 反 向 链 推理 机 


反 向 链 推理 机 可 以 用 两 组 规则 实现 。 第 一 组 将 产生 属性 的 目标 ， 并 在 这 些 值 不 能 被 规则 确定 时 要 
求 用 户 提供 属性 值 。 第 二 组 规则 将 执行 更 新 操作 。 更 新 操作 包括 : 条 件 已 满足 时 修改 规则 并 删除 目标 。 
第 一 组 规则 如 下 ; 


(defrule BC: :attempt-rule 
(goal (attribute ?g-name) ) 
(rule (if ?a-name $?) 
(then ?g-name $?) 
(not (attribute (name ?a-name))) 
(not (goal (attribute ?a-name))) 
=> 
(assert (goal (attribute ?a-name)))) 


(defrule BC: :ask-attribute-value 
?goal <- (goal (attribute ?g-name) ) 
(not (attribute (name ?g-name)}) 
(not (rule (then ?g-name $?))} 
=> 
(retract ?goal) 
(printout t "What is the value of " 
?g-name "? ") 
{assert (attribute (name ?g-name) 
(value (read))))) 


attempt-rule 规则 查找 那些 能 为 目标 属性 提供 属性 值 的 规则 。 第 一 模式 匹配 goal (目标 ) 事实 。 第 
二 模式 查找 那些 将 值 指定 给 目标 属性 的 所 有 规则 。 第 三 模式 检查 以 确认 此 目标 属性 的 值 是 否 还 没有 被 
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确定 。 第 四 模式 确认 已 没有 需 确定 属性 值 的 目标 了 。 对 于 每 一 条 被 找到 的 规则 ，attempt-rule 规则 的 
RHS 将 声明 一 个 目标 以 决定 由 规则 的 第 一 条 件 测试 过 的 属性 值 。 

ask-attribute-value 规则 非常 类 似 于 attempt-rule 规则 。 前 面 两 种 模式 是 相同 的 。 第 三 种 模式 检查 是 
否 没有 剩余 的 规则 可 用 来 确定 目标 属性 值 。 在 本 例 中 ， 要 求 用 户 提供 属性 的 值 。 代 表 该 属性 值 的 事实 
被 声明 ， 且 此 属性 的 goal 事实 被 撤销 。 

下 面 4 条 规则 用 于 更 新 反 向 链 规则 和 表示 为 事实 的 目标 。 分 配给 这 些 规则 的 优先 级 为 100， 以 便 
在 任何 企图 想 产 生 新 的 目标 或 要 求 用 户 提供 属性 值 之 前 ， 都 可 以 允许 更 新 。 


{defrule BC::goal-satisfied 
(declare (salience 100) 
?goal <- (goal (attribute ?g-name) ) 
(attribute (name ?g-name) ) 
=> 
{retract ?goal)) 


(defrule BC::rule-satisfied 
(declare (salience 100)) 
(goal (attribute ?g-name) ) 
{attribute (name ?a-name) 
(value ?a-value) ) 
?rule <- (rule (if ?a-name is ?a-value) 
{then ?g-name is ?g-value) ) 
=> 
(retract ?rule) 
(assert (attribute (name ?g-name) 
(value ?g-value)))) 


(defrule BC: :remove-rule-no-match 
(declare (salience 100)) 
(goal (attribute ?g-name) ) 
(attribute (name ?a-name) (value ?a-value) ) 
?rule <- (rule (if ?a-name is ~?a-value) 

(then ?g-name is ?g-value)) 

=> 
(retract ?rule)) 


(defrule BC: :modify-rule-match 
(declare (salience 100)) 
(goal (attribute ?g-name) ) 
(attribute (name ?a-name) (value ?a-value)} 
?rule <- (rule (if ?a-name is ?a-value and 
S?rest-if) 
_、 (then ?g-name is ?g-value)) 
(retract ?rule) 
(modify ?rule (if $?rest-if))} 
goal-satisfied 规则 删除 任何 属性 值 已 确定 的 目标 。 
rule-satisfied 规则 查找 任何 有 单个 剩余 条 件 的 规则 。 如 果 某 个 属性 存在 且 满足 此 剩余 条 件 、 有 一 个 
目标 确定 该 属性 的 值 ， 那 么 ， 该 规则 后 件 的 属性 值 就 添加 到 事实 表 上 。 
remove-rule-no-match 规则 查找 满足 这 些 条 件 的 规则 : 其 前 件 能 为 目标 属性 提供 属性 值 上 且 包 含 一 个 
或 多 个 条 件 ， 其 中 的 第 一 个 条 件 与 指定 给 某 个 属性 的 值 相 冲 突 。 如 果 是 这 样 ， 则 该 规则 因 不 再 适用 而 
从 事实 表 中 删除 。 
modify-rule-match 规则 查找 满足 这 些 条 件 的 规则 : 其 前 件 能 为 目标 属性 提供 属性 值 且 包含 一 个 或 多 
个 条 件 ， 其 中 的 第 一 个 条 件 由 指定 给 菜 个 属性 的 值 所 满足 。 如 果 找 到 这 样 一 个 规则 ， 则 第 一 个 条 件 从 
该 规则 中 删除 从 而 留 下 剩余 的 必须 被 测试 的 条 件 。 
至 此 ， 所 有 的 反 向 链 规则 都 提供 了 ， 需 要 启动 反 向 链 过 程 的 所 有 操作 是 聚焦 于 BC 模块 。 这 可 以 
通过 添加 下 列 规则 到 MAIN 模块 上 来 完成 : 


(defrule MAIN: :Start-BC 
=> 
(focus BC)) 
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反 向 链 系统 的 逐步 跟踪 


使 用 规则 实现 的 CLIPS 反 向 链 推理 机 的 性 能 可 以 通过 监视 其 执行 情况 来 了 解 。 假 定 wine ~ rules 和 
initial ~ goal 自 定义 事实 与 反 向 链 推理 机 规则 一 起 调和 人 ,那么 ， 使 用 reset 命令 后 系统 的 状态 如 下 (再 次 
声明 ， 某 些 输出 的 缩 行 是 为 了 提高 可 读 性 ): 


CLIPS> (unwatch all) 
CLIPS> (reset) J 
CLIPS> (facts)J 


f-0 (initiai-fact) 
f-1 {goal (attribute best-color) ) 
f-2 (rule (if main-course is red-meat) 
(then best-color is red)) 
£~3 (rule (if main-course is fish) 
(then best-color is white)) 
f~4 (rule (if main-course is poultry and 


meal-is-turkey is yes) 
(then best-color is red)) 
£-5 (rule (if main-course is poultry and 
meal-is-turkey is no} 
(then best-color is white)) 
For a total of 6 facts. 
CLIPS> (agenda) 


0 start-BC: f£-0 
For a total of 1 activation. 
CLIPS> 


Start-BC 规则 只 聚焦 于 BC 模块 。 此 规则 一 旦 触发 ，BC 模块 将 成 为 当前 焦点 。 


CLIPS> (run 1)4 
CLIPS> (agenda). 


0 attempt-rule: f-1,f-5,, 
0 attempt-rule: f-1,f-4,, 
0 attempt-rule: f-1,£-3,, 
0 attempt-rule: f-1,f-2,, 
For a total of 4 activations. 
CLIPS> 


注意 ， 此 议程 包含 attemptrule 规则 的 4 个 激活 。 启 动 目标 就 是 确定 由 {-1 事实 规定 的 best-color JR 
性 的 值 。 由 于 每 个 规则 事实 f2、f3、f4 和 f.5 的 后 件 都 将 一 个 值 分 配给 了 best-color 属性 ， 因 此 ， 这 
些 规则 每 一 条 都 必须 尝试 看 是 否 满足 best-color 属性 目标 。 

执行 的 下 一 步 是 触发 attempt-rule 规则 的 第 一 个 激活 。 在 触发 此 规则 之 前 ， 要 激活 watch 规则 和 
事实 : 


CLIPS> (watch rules) 

CLIPS> (watch facts) — 

CLIPS> (run 1) 

FIRE 1 attempt-rule: £-1,£-5, 

==> £-6 (goal (attribute main-course)) 
CLIPS> (agenda) 

0 ask-attribute-value: f-6, 

For a total of 1 activation. 

CLIPS> 


attempt-rule 规则 由 事实 f-5 触发 ， 它 代表 的 反 向 链 规 则 如 下 : 


IF main-course is poultry and 
meal-is-turkey is no 
THEN best-color is white 


在 此 规则 可 用 来 指定 best-color 属性 的 值 之 前 ， 必 须 满足 其 前 件 中 的 CE。 第 一 条 件 需要 属性 main- 
course 的 值 。 既 然 此 属性 未 知 ， 为 此 要 建立 一 个 目标 ， 些 目标 由 事实 {-6 代表 。 由 于 没有 规则 指定 
main-course 属性 的 值 ， 因 此 激活 ask-attribute-value 规则 的 值 。 

随 着 执行 的 继续 ，ask-attribute-value 规则 触发 以 确定 main-course 属性 的 值 。 
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CLIPS> (run 1) 

FIRE 1 ask-attribute-value: f-6, 

<== f-6 {goal (attribute main-course) ) 

What is the value of main-course? poultry 

==> f-7 (attribute (name main-course) 
(value poultry) ) 

CLIPS> (agenda) 


100 remove-rule-no-match: f-1,f-7,f£-3 
100 remove-rule-no-match: f-1,f-7,f-2 
100 modify-rule-match: f£-1,f£-7,f£-5 
100 modify-rule-match: f-1,f£-7,f£-4 
For a total of 4 activations. 

CLIPS> 


由 于 要 求 用 户 提供 main-course 属性 的 值 ， 因 此 ， 删 除 对 应 于 属性 f6 的 目标 。 由 用 户 提供 的 值 作 
WH attribute 事实 f-7 被 声明 。 对 此 事实 的 声明 使 得 4 个 新 的 激活 置 于 议程 中 。 由 事实 f4 和 1-5 代表 的 规 
则 都 把 要 求 main-course 属性 是 poultry 作为 其 第 一 条 件 。 因 此 ， 两 个 事实 引起 激活 modify-rule-match 规 
则 。 由 事实 f2 和 f-3 代表 的 规则 都 把 要 求 main-course 属性 不 是 poultry 而 是 其 他 东西 作为 第 一 条 件 。 因 


此 ， 这 些 事实 都 不 再 适用 了 。 激 活 规 则 remove-rule-no-match 使 得 上 述 两 个 事实 被 删除 。 
允许 两 个 remove-rule-no-match 激活 触发 将 产生 下 列 输出 : 


CLIPS> (run 2)J 
FIRE 1 remove-rule-no-match: f-1,f-7,f-3 
<== £-3 (rule (if main-course is fish) 
(then best-color is white)) 
FIRE 2 remove-rule-no-match: f-1,f-7,f£-2 
<== f-2 (rule (if main-course is red-meat) 
(then best-color is red)) 
CLIPS> (agenda).i 
100 modify-rule-match: f-1 
100 modify-rule-match: f-1 
For a total of 2 activations. 
CLIPS> 


事实 f-2 和 上 -3 从 事实 表 上 删除 ， 表 示 由 这 些 事实 代表 的 规则 不 能 再 用 了 。 当 这 些 事实 被 删除 时 ， 


attempt-rule 激活 也 从 议程 中 被 删除 掉 。 
转向 执行 两 个 modify-rule-match 激活 会 产生 下 列 输出 : 
CLIPS> (run 2)J 
FIRE 1 modify-rule-match: f-1,f-7,f-5 
<== f-5 {rule (if main-course is poultry and 
meal-is-turkey is no) 
(then best-color is white) ) 
==> f-8 (rule {if meal-is-turkey is no) 
(then best-color is white)) 
FIRE 2 modify-rule-match: f-7,f-4 
<== £-4 (rule (if main-course is poultry and 
meal-is-turkey is yes) 
(chen best-color is red)) 
==> f£-9 (rule (if meal-is-turkey is yes) 
(then best-color is red)) 
CLIPS> (agenda) 


0 attempt-rule: f-1,f£-9,, 
0 attempt-rule: f-1,f-8,, 
For a total of 2 activations. 
CLIPS> 


Modify-rule-match-rule 规则 的 第 一 次 触发 是 基于 事实 f-5， 它 代表 下 列 反 向 链 规则 : 


IF main-course is poultry and 
meal-is-turkey is no 
THEN best-color is white 


modify-match-rule 规则 的 操作 会 将 此 反 向 链 规则 修改 为 ; 


IF meal-is-turkey is no 
THEN best-color is white 


代表 已 修改 的 规则 的 新 事实 是 {-8。 此 新 事实 代表 第 一 条 件 满足 后 剩 下 的 初始 规则 的 条 件 ， 


并 引起 
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此 反 向 链 规则 的 attempt-rule 规则 再 一 次 激活 。 此 新 的 激活 将 声明 一 个 新 的 目标 来 决定 meal-is-turkey 的 
值 ， 以 使 得 该 规则 的 后 件 可 用 来 指定 best-color 属性 的 值 。 
第 二 次 触发 modify-rule-match 规则 与 第 一 次 触发 类 似 。 代 表 该 规则 的 事实 : 


IF main-course is poultry and 
meal-is~turkey is red 
THEN best-color is red 


被 修改 为 下 列 规则 : 
IF meal-is-turkey is yes 
THEN best-color is red 


它 是 由 事实 f9 代表 的 。 与 此 类 似 ， 当 代表 该 规则 的 事实 撤销 后 ， 这 个 新 的 事实 会 激活 attempt- 
规则 ， 以 取代 失去 的 激活 。 
允许 第 一 个 attempt-rule 激活 触发 将 产生 下 列 输出 : 


CLIPS> (run 1) 

FIRE 1 attempt-rule: f-1,f-9,, 

==> f-10 (goal (attribute meal-is-turkey) ) 
CLIPS> (agenda) .| 

0 ask-attribute-value: f-10,, 

For a total of 1 activation. 

CLIPS> 


事实 人 10 被 声明 ， 它 代表 一 个 目标 以 决定 meal-is-turkey 属性 的 值 。 有 既然 没有 规则 指定 该 属性 的 
值 ， 故 激活 ask-attribute-value 规则 以 决定 该 值 。 
允许 ask-attribute-value 规则 触发 会 产生 下 列 输 出 : 


CLIPS> (run 1)-1 

FIRE 1 ask-attribute-value: £-10, 

<== f£-10 (goal (attribute meal-is-turkey) ) 

What is the value of meal-is-turkey? yes 

==> f-11 {attribute (name meal-is-turkey) 
(value yes)) 


rul 


人 


CLIPS> (agenda)! 
100 rule-satisfied: f-1,f-11,f-9 


100 remove-rule-no-match: f-1,f-11,f£-8 
For a total of 2 activations. 
CLIPS> 


由 于 触发 了 此 规则 ， 因 此 ， 代 表 属 性 meal-is-turkey 之 值 的 attribute 事实 被 声明 。 此 外 ,决定 此 属 
性 值 的 goal 事实 被 删除 。 新 的 attribute 事实 产生 两 个 激活 。 第 一 个 激活 是 针对 于 remove-rule-no-match 
规则 的 。 因 为 事实 人 8 的 第 一 条 件 与 此 新 属性 的 值 不 一 致 ， 且 该 事实 代表 的 规则 不 再 可 用 ， 因 此 ， 该 事 
实 有 必要 被 删除 。 第 二 个 激活 是 针对 于 rule-satisfied 规则 的 。 由 于 事实 f-8 的 剩余 条 件 被 新 的 attribute 
事实 满足 ， 因 此 ， 该 事实 的 后 件 可 用 。 

剩余 的 规则 触发 后 完成 反 向 链 过 程 。 


CLIPS> (run) 


FIRE 1 rule-satisfied: f-1,f-11,£-9 
<== £-9 (rule (if meal-is-turkey is yes) 
(then best-color is red)} 
==> f£-12 (attribute (name best-color) 
(value red) ) 
FIRE 2 goal-satisfied: f-1,f-~-12 
<== f-l (goal {attribute best-color)) 


CLIPS> (agenda) J 
CLIPS> (facts) 


f-0 (initial-fact) 
£-7 (attribute (name main-course) 

(value poultry) ) 
£-8 {rule (if meal-is-turkey is no) 

{then best-color is white) ) 

f-11 (attribute (name meal-is-turkey} 

(value yes)) 
f-12 (attribute (name best-color) (value red)) 


For a total of 5 facts. 
CLIPS> 
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作为 由 事实 人 9 代表 的 规则 的 部 分 后 件 ， 触 发 rule-satisfied 规则 以 指定 best-color 属性 的 值 。 由 此 规 
则 声明 的 attribute 事实 满足 在 事实 表 中 剩 下 的 目标 事实 。 规 则 goal-satisfied 被 激活 ， 然 后 触发 以 删除 剩 
下 的 goal 事实 。 

agenda 命令 显示 ， 没 有 剩 下 要 触发 的 规则 。facts 命令 显示 已 被 赋值 的 属性 。f-12 事实 表明 ， 初 始 
目标 属性 best-color 被 赋 的 值 是 redo 


12.5 监视 问题 


本 节 提 出 CLIPS 程序 的 逐步 开发 以 作为 简单 问题 的 解决 方法 。 开 发 步骤 包括 对 问题 的 初始 描述 ， 
对 问题 性 质 所 作 的 假定 以 及 表示 问题 知识 的 初始 定义 ， 最 后 是 逐步 建立 规则 解决 问题 。 


问题 描述 


本 节 待 解决 的 问题 是 一 个 简单 的 监视 问题 。 监 视 问 题 由 于 其 数据 驱动 本 性 ， 故 适 于 使 用 基于 规则 
的 正 向 链 语言 。 一 般 地 ， 程 序 每 循环 一 周 ， 就 读 取 一 组 输入 或 传感器 的 值 。 推 理 一 直 进 行 ， 直 到 得 到 
所 有 可 能 的 能 从 输入 数据 推出 的 结论 为 止 。 这 与 数据 驱动 方法 ， 即 推理 过 程 是 从 数据 到 该 数据 推出 的 
结论 是 一 致 的 。 

对 于 本 例 ， 待 实现 的 监视 类 型 在 特点 上 是 一 般 的 。 假 设 某 处 理 厂 有 几 台 设备 要 监视 。 一 些 设备 的 
工作 要 依赖 于 其 他 设备 。 每 台 设备 有 一 个 以 上 的 传感器 与 之 相连 ， 以 提供 数字 读数 指出 设备 的 工作 状 
态 。 每 个 传感器 有 低 警 戒 线 (LGL) 、 低 危险 线 (LRL), ABRE (HGL) 和 高 危险 线 (HRL) 量 值 。 
在 低 和 高 警戒 线 之 间 的 读数 认为 是 正常 的 。 在 高 警戒 线 之 上 但 在 高 危险 线 之 下 ， 或 者 ， 在 低 警戒 线 之 
下 但 在 低 危 险 线 之 上 认为 是 可 接受 的 ， 尽 管 这 表明 设备 将 很 快 会 不 正常 。 在 高 危险 先 之 上 、 或 低 危 险 
线 之 下 的 读数 认为 设备 不 正常 ， 应 该 关机 。 在 警戒 区 的 任何 设备 都 应 该 发 出 警告 信息 。 此 外 ， 在 警戒 
区 工作 过 入 的 任何 设备 也 应 该 关机 。 对 于 给 定 的 传感器 值 ， 表 12.1 总 结 了 需要 采取 的 动作 。 


表 12.1 对 应 于 传感器 值 所 采取 的 动作 





传感器 值 动 作 
小 于 或 等 于 低 危险 线 关机 
大 于 低 危 险 线 、 小 于 或 等 于 低 警戒 线 发 出 警告 或 关机 
大 于 低 警 戒 线 、 小 于 高 警戒 线 无 
大 于 或 等 于 高 警 式 线 、 小 于 高 危险 线 发 出 警告 或 关机 
大 于 或 等 于 高 危险 线 关机 


监视 程序 应 该 能 够 读 取 传感器 的 数据 、 计 算 传感器 的 读数 并 根据 对 传感器 的 计算 值 和 趋势 发 出 警 
告 或 关机 。 监 视 程序 的 输出 样板 列 示 如 下 : 


Cycle 20 - Sensor 4 in high guard line 

Cycle 25 - Sensor 4 in high red line 
Shutting down device 4 

Cycle 32 - Sensor 3 in low guard line 

Cycle 38 - Sensor 1 in high guard line for 6 cycles 
Shutting down device 1 


对 于 本 例 ， 图 12.5 示 出 了 待 监视 的 设备 和 传感器 之 间 的 连接 情况 ， 表 12.2 列 出 了 每 个 传感器 的 属性 。 





表 12.2 传感器 属性 
传感器 低 危 险 线 低 警 戒 线 高 警戒 线 高 危险 线 
Sl 60 70 120 130 


S2 20 40 160 180 
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( 续 ) 
传感器 低 危 险 线 低 警 戒 线 高 警戒 线 高 危险 线 
S3 60 70 120 130 
S4 60 70 120 130 
S5 65 70 120 125 
S6 110 115 125 130 


传感器 S3 















图 12.5 监视 系统 中 的 设备 和 传感器 


这 个 问题 的 部 分 解决 方法 包括 利用 问题 的 一 般 描述 以 确定 在 实现 此 解决 方法 之 前 必须 解决 的 特定 
细节 。 一 般 地 ， 这 个 过 程 包括 不 断 咨询 对 此 问题 领域 有 广博 知识 的 专家 ， 但 也 不 必 详 细 说 明 打 算 由 专 
家 系统 捕 提 的 这 个 任务 。 要 开发 出 该 问题 的 原型 以 指出 在 问题 说 明 中 丢失 的 细节 。 这 些 细 节 是 通过 咨 
询 专 家 确定 的 。 而 且 要 开发 另 一 个 原型 ， 以 更 进一步 地 展示 问题 说 明 中 丢失 的 细节 。 最 后 ， 通 过 这 种 
反复 的 编程 开发 方法 完全 捕捉 问题 的 详细 说 明 。 

此 问题 的 许多 规范 细节 仍 虑 而 未 决 ， 怎样 表示 传感器 和 设备 的 信息 ? 如 何 设计 通用 或 专用 的 事实 
或 规则 ? 如 何 访问 传感器 数据 ? 在 某 个 传感器 的 相关 设备 关机 之 前 ， 该 传感器 应 在 警戒 区 多 长 时 间 ? 
当 监 视 器 检测 到 设备 不 正常 时 ， 要 采取 什么 措施 ? 


开始 必需 的 细节 


建立 专家 系统 遇 到 的 一 个 主要 问题 是 ， 问 题 往 往 说 明 得 不 明确 。 其 思想 是 模仿 专家 ， 但 除了 专家 
之 外 没有 哪个 人 有 足够 的 知识 来 说 明 其 细节 。 一 般 地 ， 系 统 的 期 望 性 能 是 已 知 的， 但 如 何 达到 这 种 性 
能 的 方式 却 是 未 知 的 。 专 家 在 表达 准确 的 要 采取 的 步骤 以 得 出 解决 方法 上 可 能 有 困难 。 由 于 本 质 上 支 
持 迭 代 开发 技术 ， 因 此 能 相对 容易 地 建立 解决 定义 不 好 问题 的 专家 系统 。 然 而 ， 这 并 不 是 说 ， 专 家 系 
统 能 解决 以 前 一 直 未 得 到 解决 的 问题 ， 也 不 是 说 能 解决 没 得 到 理解 的 问题 。 

对 于 本 例 的 监视 问题 ， 在 建立 专家 系统 之 前 ， 必 须 说 明 几 个 问题 。 首 先 ， 应 该 说 明 期 望 的 专家 系 
统 性 能 ， 包 括 初始 信息 和 系统 将 要 产生 的 信息 。 这 并 非 意味 着 此 说 明 不 能 改变 。 程 序 的 开发 可 能 显示 
出 ,问题 的 范围 应 该 缩小 或 扩大 ， 而 且 这 会 影响 到 初始 输入 和 最 终 输出 。 必 须 作 一 些 假定 ， 还 必须 确 
定 有 关 专 家 系统 应 该 怎样 执行 其 任务 的 初始 细节 。 而 且 ， 这 种 判定 问题 并 不 是 永久 不 变 的。 专家 通常 
可 以 展示 他 们 是 怎样 解决 问题 的 ， 但 不 容易 使 他 们 所 采用 的 规则 公式 化 。 在 描述 他 们 所 采用 的 规则 时 ， 
专家 们 可 能 漏 掉 了 对 他 们 来 说 是 显而易见 的 细节 ， 或 者 ， 忘 记 了 例外 情况 。 

监视 问题 要 求 作出 许多 初始 的 决定 。 其 一 是 实现 过 程 。 解 决 方法 是 要 专门 针对 于 此 问题 说 明 的 精 
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确 细节 ,还 是 要 有 足够 的 普遍 性 以 便于 升级 或 修改 ? 对 于 每 一 种 受 监视 的 设备 ， 可 以 写 出 特定 的 规则 ， 
也 可 以 写 出 监视 所 有 设备 的 通用 规则 。 对 于 此 问题 ， 写 出 通用 规则 可 能 更 合适 ， 因 为 ， 各 个 模型 化 了 
的 设备 和 传感器 没有 各 自 独特 的 特点 。 这 种 通用 性 应 该 允许 易于 增添 更 多 的 设备 和 传感器 。 

有 关系 统 的 控制 流程 细节 也 易于 忽略 。 对 于 此 问题 ， 将 使 用 简单 的 监视 循环 。 每 个 监视 循环 包含 
3 个 阶段 。 第 一 阶段 是 读 取 传 感 器 的 值 ， 第 二 阶段 是 分 析 这 些 值 ， 第 三 阶段 是 采取 适当 的 措施 。 

还 必须 假定 要 怎样 访问 传感器 的 数据 。 直 接 读 取 传感器 的 值 吗 ? 需要 处 理 传 感 器 数据 的 仿真 吗 ? 
需要 时 总 是 可 以 访问 传感器 数据 吗 ? 传感器 数据 可 靠 还 是 易 受 误差 的 影响 ? 在 正常 原型 情况 下 ， 应 该 
约见 专家 确定 这 些 信息 ， 但 对 于 此 问题 的 目的 ， 将 作 些 假 设 填写 有 关 细 节 。 

所 有 这 些 问题 指出 了 在 定义 不 好 的 问题 中 可 能 会 轴 到 的 丝 漏 。 在 作 一 系列 假定 时 ， 应 该 注意 与 此 
问题 说 明 有 关 的 疑问 和 可 能 的 不 一 致 性 。 在 和 迭代 开发 程序 时 ， 这 些 假定 列表 应 该 是 讨论 的 焦点 ， 必 须 
有 专家 确保 问题 说 明 与 专家 解决 此 问题 的 观点 相符 。 下 面 是 本 监视 问题 开始 的 假定 列表 : 

。 传感器 数据 总 是 可 靠 的 ， 需 要 时 总 是 可 以 读 取 其 数据 

。 传感器 值 可 直接 读 取 ， 也 支持 模拟 的 传感器 值 

。 已 经 关机 的 机 器 ， 其 相应 的 传感器 值 将 不 受 监视 

。 假定 可 以 实施 由 专家 系统 规定 的 动作 (假设 我 们 有 警报 操作 员 且 设备 控制 可 由 程序 直接 处 理 ) 

。 此 问题 将 分 成 3 个 阶段 : 读 取 传 感 器 值 、 分 析 传感器 值 、 采 取 适 当 的 行动 ， 如 关闭 一 台 设 备 

作为 对 问题 说 明细 节 的 补充 ， 问 题 实现 的 细节 也 必须 确定 。 包 括 如 何 表 示 有 用 的 信息 、 控 制 流 以 
及 测试 专家 系统 。 


知识 定义 


我 们 再 次 以 确定 如 何 表达 知识 来 作为 解决 问题 的 开始 。 此 问题 的 一 个 好 的 开始 是 对 图 12.5 和 表 
12.2 中 的 知识 编码 。 下 面 的 自 定义 模板 将 用 来 描述 这 些 设 备 : 


(defmodule MAIN (export ?ALL) ) 


(deftemplate MAIN::device 
(slot name (type SYMBOL) ) 
(slot status (allowed-values on off))) 


HH, name HEREZ, status PRAKRENA KK. AAS 12.5， 并 假定 所 有 设备 初始 状态 是 
FF (on)， 则 可 以 用 下 列 自 定义 事实 描述 设备 的 初始 状态 : 


(deffacts MAIN::device-information 
(device (name Di) (status on)) 
(device (name D2) (status on)) 
(device (name D3) (status on)) 
{device (name D4) (status on)))} 


图 12.5 也 表示 了 哪些 传感器 与 哪些 设备 有 关 。 下 面 的 自 定义 模板 将 用 来 表示 这 种 关系 : 


(deftemplate MAIN::sensor 

(slot name (type SYMBOL) ) 

(slot device (type SYMBOL) } 

(slot raw-value (type SYMBOL NUMBER) 

(allowed-symbols none) 
(default none) ) 

{slot state (allowed-values low-red-line 
low-guard-line 
normal 
high-red-line 
high-guard-line) 

(default normal) ) 

(slot low-red-line (type NUMBER) ) 

(slot low-guard-line (type NUMBER) ) 

(slot high-guard-line (type NUMBER) ) 

(slot high-red-line (type NUMBER) ) ) 
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EP, name ERRA, device 模 是 与 传感器 相连 的 设备 名 。raw-value 槽 是 处 理 之 前 直接 从 传感器 
读 得 的 数值 。state 槽 指示 传感器 的 当前 状态 〈 如 ， 正 常 、 低 警戒 线 、 高 危险 线 等 )。 用 于 包含 表 12.2 
中 描述 信息 的 槽 有 : low-red-line, low-guard-line, expected-average-value, high-guard-line 和 high-red-line. 
下 列 自 定义 事实 可 用 来 描述 图 12.5 中 的 传感器 : 


(deffacts MAIN: :sensor-information 

(sensor (name S1) (device D1) 
(low-red-line 60) (low-guard-line 70) 
(high-guard~line 120} 
(high-red-line 130)) 

(sensor (name S2} (device D1) 
(low~red-line 20) (low-guard-line 40) 
(high-guard-line 160) 
(high-red-line 180)) 

(sensor (name S3) (device D2) 
(low~red-line 60) (low-guard-line 70) 
(high-guard-line 120) 
(high-red-line 130)) 

(sensor (name S4) (device D3) 
{low-red-line 60) (low-guard-line 70) 
(high-guard-line 120) 
(high-red-line 130) ) 

(sensor (name S5) (device D4) 
(low-red-line 65) (low-guard-line 70) 
{high-guard-line 120) 
(high-red-line 125)) 

(sensor (name S6) (device D4) 
(low-red-line 110) (low-guard-line 115) 
(high-guard-line 125) 
(high-red-line 130))) 


由 于 监视 系统 是 循环 的 ， 因 此 ， 需 要 一 个 事实 来 代表 当前 循环 。 第 一 个 循环 可 以 在 1 的 时 候 开 始 ， 
接着 ， 每 一 个 新 的 循环 就 增加 1。 此 信息 的 有 序 事实 格式 如 下 : 

(cycle <number>) 

其 中 ，<number> 是 当前 循环 的 取 值 。 此 外 ， 由 于 传感器 的 值 可 能 从 多 个 来 源 得 到 (如 一 个 来 自 
于 仿真 ， 一 个 来 自 于 实际 值 )， 所 以 ， 设 置 一 个 事实 指示 传感器 数据 的 来 源 是 有 用 的 。 此 事实 可 用 下 列 
格式 表示 : 

{data~source <source>) 
FUP, <source> 是 表示 读 取 数据 的 来 源 的 实例 名 称 。< source > 实例 是 将 被 简短 描述 的 DATA- 
SOURCE 类 中 的 一 员 。 可 能 的 来 源 包括 : 传感器 、 仿 真 器 、 文 本 文件 、 一 组 事实 或 用 户 输入 。 

包含 此 初始 信息 的 自 定义 事实 是 : 


(deffacts MAIN::cycle-start 
(data-source [user]) 


(cycle 0)) 
注意 ， 用 户 可 为 传感器 提供 数据 。 对 于 本 例 ， 从 键盘 输入 数据 比 从 文件 读 取 数 据 更 方便 。 
执行 的 控制 


问题 假定 语句 表明 ， 监 视 过程 有 3 个 特定 阶段 。 第 一 个 阶段 是 读 取 用 户 提供 的 、 仿 真 的 或 传感器 
实际 的 数据 。 第 二 个 阶段 是 将 警戒 线 和 危险 线条 件 与 传感器 联系 起 来 ， 并 确定 发 展 趋势 。 一 旦 建立 了 
趋势 ， 监 视 系 统 则 发 出 适当 的 警告 ， 关 掉 运 行 不 良 的 设备 并 重新 启动 可 以 回 到 界线 上 来 的 设备 。 在 采 
取 适 当 的 措施 后 ， 读 取 新 的 传感器 值 将 开始 下 一 个 新 循环 。 

利用 类 似 于 第 9 章 描述 的 技术 ， 可 以 处 理 此 监视 专家 系统 的 控制 问题 。 建 立 3 个 独立 的 模块 : IN- 
PUT, TRENDS 和 WARNINGS。 每 一 次 循环 ，cycle 事实 的 值 被 更 新 ， 并 以 适当 的 顺序 聚焦 于 正在 进 
行 的 模块 。 下 列 规则 将 执行 这 些 操作 : 
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(defrule MAIN::Begin-Next-Cycle 
?f <- (cycle ?current-cycle) 
(exists (device (status on)))} 
=> 
(retract ?f) 
(assert (cycle (+ ?current-cycle 1))) 
(focus INPUT TRENDS WARNINGS) ) 


只 要 有 设备 开 着 ，Begin-Next-Cycle 规则 就 重新 激活 它 自己 ， 所 以 ， 下 面 的 规则 保证 在 没有 设备 开 
着 的 时 候 系统 终止 执行 。 


(defrule MAIN::End-Cycles 
(not (device (status on))} 
=> 
(printout t "All devices are off" crlf) 
(printout t "Halting monitoring system" crlf) 
{(halt)) 


读 取 传 感 器 的 原始 值 


建立 专家 系统 的 下 一 步 是 从 传感器 读 人 其 值 。 读 取 这 些 值 的 逻辑 点 是 当前 焦点 正好 是 INPUT 模 
块 时 。 为 了 纠 错 和 测试 ， 能 从 几 个 来 源 读 取 传 感 器 的 值 是 很 方便 的 。 本 节 说 明 如 何 直 接 从 传感器 、 自 
定义 事实 、 文 件 或 用 户 读 取 传 感 器 的 值 。 前 面 描述 的 data-source 事实 可 用 来 指示 此 专家 系统 中 数据 的 
来 源 。 标 为 “raw” 数 据 的 传感器 值 可 直接 存 于 sensor 事实 的 raw-value 槽 中 。 对 此 原始 值 的 分 析 和 处 
理 将 在 分 析 阶 段 执 行 。 

为 了 以 后 方便 地 增加 输入 源 ， 我 们 把 所 有 的 输入 源 用 一 个 自 定义 类 DATA-SOURCE 来 表示 ， 
WF: 


(defclass INPUT: :DATA~SOURCE 
(is-a USER) ) 


(defmessage-handler INPUT: :DATA-SOURCE 
get-data (?name) 
(printout t "Input value for sensor " 
?name ": ") 
(read) ) 


(defmessage-handler INPUT: : DATA-SOURCE 
next-cycle (?cycle)) 


(definstances INPUT: :user-data~source 
({user] of DATA-SOURCE) ) 


DATA-SOURCE 自 定义 类 有 两 个 消息 处 理 程序 ，get-data 和 next-cycle. get-data 消息 处 理 程序 用 来 
取 回 由 ? name 参数 指定 的 传感器 的 原始 值 。 默 认 地 ， 该 处 理 程序 简单 地 向 用 户 询问 该 值 。next-cycle 消 
息 处 理 程序 用 来 处 理 在 开始 一 个 新 的 循环 时 ， 数 据 源 所 需要 的 所 有 过 程 。 默 认 地 ， 该 处 理 程序 不 做 任 
何事 情 。user-data-source 自 定义 实例 定义 [user] 实例 ， 如 果 是 数据 源 ， 则 向 用 户 询问 传感器 值 。 

在 实际 工作 环境 中 ， 这 些 值 可 能 不 是 从 用 户 而 是 直接 从 传感器 获得 ， 这 要 求 外 部 函数 做 这 项 工作 。 
让 我 们 假定 ，get-sensor-value 函数 将 返回 当前 传感器 的 值 ， 用 一 个 参数 代表 需要 该 值 的 传感器 标识 号 
(为 调用 用 C、Ada、FORTRAN 或 其 他 编程 语言 写 的 函数 ， 需 要 重新 编译 此 CLIPS 源 代 码 )。 通 过 创建 
DATA-SOURCE 的 一 个 子 类 并 指向 它 的 一 个 实例 ， 传 感 器 值 可 以 不 用 从 用 户 而 直接 从 传感器 获得 : 

(defclass INPUT: : SENSOR-DATA-SOURCE 

(is-a DATA-SOURCE) ) 


(defmessage-handler INPUT:: SENSOR-DATA-SOURCE 
get-data (?name) 
(get-sensor-value ?name) } 


(definstances INPUT::sensor-data-source 
({sensor} of SENSOR-DATA-SOURCE) ) 
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注意 ， 唯 一 明显 的 改变 就 是 重 置 了 get-data 处 理 程 序 ， 我 们 把 它 称 为 get-sensor-value AX. 

为 了 测试 或 避免 用 户 进行 大 量 的 输入 ， 从 一 个 “脚本 ” 读 取 数 据 ， 而 不 是 实际 读 取 传 感 器 的 值 或 
询问 用 户 关于 传感器 的 每 一 个 值 ， 这 可 能 是 更 合 人 意 的 。 完 成 此 任务 的 一 项 技术 是 ， 将 数据 存 于 规则 
能 够 访问 的 事实 中 。 下 面 的 自 定义 类 描述 了 用 于 存储 数据 值 的 实例 : 


(defclass INPUT: :SENSOR-DATA 
(is-a USER) 
(multislot data)) 


其 中 ，data 槽 是 该 传感器 实际 数据 值 列表 。 
利用 此 自 定义 类 ,包含 测试 值 的 自 定 义 实例 可 有 如 下 的 形式 : 


(definstances INPUT: :sensor-instance-data-values 
([S1-DATA~SOURCE] of SENSOR-~DATA 
(data 100 100 110 110 115 120)) 
{[S2-DATA-SOURCE] of SENSOR-DATA 
(data 110 120 125 130 130 135)) 
({[S3-DATA-SOURCE] of SENSOR-DATA 
(data 100 120 125 130 130 125)) 
({S4-DATA-SOURCE] of SENSOR~DATA 
(data 120 120 120 125 130 135)) 
((S5-DATA-SOURCE] of SENSOR-DATA 
(data 110 120 125 130 135 135)) 
S6-DATA-SOURCE] of SENSOR-DATA 
(data 115 120 125 135 130 135))) 


注意 包含 数据 的 传感器 的 名 字 作 为 实例 名 的 一 部 分 ， 例 如 实例 [SI-DATA-SOURCE] 包含 了 传 感 
器 Sl 中 的 数据 。 
INSTANCE-DATA-SOURCE 类 用 于 访问 SENSOR-DATA 实例 中 的 传感器 数据 值 : 


{defclass INPUT: :INSTANCE-DATA-SOURCE 
(is-a DATA-SOURCE) ) 





(defmessage-handler INPUT:: INSTANCE-DATA-SOURCE 
get-data (?name) 
; Locate the SENSOR-DATA instance. 
(bind ?sensor-data 
({instance-name 
{sym-cat ?name -DATA-SOURCE) )} 
(if (mot (instance-existp ?sensor-data) ) 
then (return nil) 
;; Verify there are remaining data values. 
(bind ?data (send ?sensor-data get-data) ) 
(if (= (length$ ?data) 0) 
then 
(return nil)) 
;; Remove the first value in the list and 
;; return it. 
(send ?sensor~data put-data (rest$ ?data)) 
{nth$ 1 ?data)) 


(definstances INPUT: :instance-data-source 
({instance] of INSTANCE-DATA-SOURCE) } 


INSTANCE-DATA-SOURCE 的 get-data 消息 处 理 程序 比 前 面 两 个 get-data 的 处 理 程序 要 稍微 复杂 。 
首先 ， 它 在 传感器 名 后 附加 -DATA-SOURCE 以 得 到 SENSOR-DATA 实例 名 并 确认 它 是 否 存在 。 然 后 
它 检 查 是 否 还 有 原始 数据 存在 。 如 果 存 在 ， 它 将 从 表 中 去 掉 第 一 个 值 并 返回 它 ， 在 任何 情况 下 遇 到 错 
误 将 返回 nil. 

要 讨论 的 最 后 一 个 输入 技术 涉及 从 一 个 数据 文件 读 取 信息 。 这 比 前 面 一 些 例子 更 复杂 ， 因 为 必须 
处 理 几 个 问题 。 开 始 ， 必 须 打开 文件 ， 数 据 必 须 从 文件 中 按 序 读 出 。 前 面 讨 论 的 输入 技术 与 读 取 数 据 
的 顺序 无 关 ， 可 以 以 任何 顺序 访问 传感器 的 新 数据 值 。 也 不 必 知 道 还 要 读 取 多 少 传感器 的 值 且 有 必要 
阻 正在 规则 中 对 这 种 信息 进行 硬 编码 (hardcoding)。 作 一 个 假定 将 增加 复杂 性 ， 假 定 传感器 数据 值 可 
以 不 规定 ， 即 从 前 一 次 循环 中 获取 传感器 的 原始 数据 值 。 文 件数 据 可 以 用 以 下 自 定 义 类 实现 : 
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(defclass INPUT: :FILE-DATA-SOURCE 
(is-a DATA-SOURCE) 
(slot file-logical-name (default FALSE) ) 
{(multislot sensor) 
(multislot value) ) 


file-logical-name 覃 用 来 存放 打开 数据 文件 的 逻辑 名 。 既 然 数据 从 文件 中 获得 ， 传 感 器 的 名 字 将 存 
BUTE sensor 槽 中 ， 原 始 数据 将 存放 在 value 槽 的 相应 位 置 。 
必须 处 理 的 第 一 个 问题 是 一 开始 打开 数据 文件 。 处 理 程序 get-file 用 来 询问 用 户 文件 名 然后 打开 它 : 


(defmessage-handler INPUT:: FILE-DATA-SOURCE 
get-file () 
(bind ?logical-name (gensym*) ) 
(while TRUE 
(printout t 
"What is the name of the data file? ") 
(bind ?file-name (readline)) 
(if (open ?file-name ?logical-name "r") 
then 
(bind ?self:file-logical-name 
?logical-name) 
(return)))) 

首先 ， 通 过 调用 gensym* 函数 为 打开 的 文件 创建 了 一 个 独一无二 的 逻辑 名 。 在 这 个 例子 中 只 有 一 
个 文件 被 使 用 ， 所 以 可 以 硬 编码 一 个 特有 名 字 放 在 处 理 程序 中 。 但 是 很 多 情况 下 你 要 从 不 同 的 文件 中 
读 取 数据 ， 所 以 最 好 使 用 自动 产生 的 逻辑 名 ， 以 提高 可 扩展 性 。While 循环 会 不 断 地 询问 用 户 是 否 打开 
数据 文件 。 如 果 文 件 成 功 打 开 ，file-logical-name 槽 的 值 将 为 产生 的 文件 名 ， 随 后 处 理 程序 退出 。 否 则 
只 要 open 函数 不 能 成 功 打 开 文 件 ， 就 会 一 直 询 问 用 户 要 打开 的 文件 名 。 

下 一 个 决定 涉及 存储 传感器 数据 的 文件 格式 。 只 规定 那些 自 上 一 个 循环 以 来 改变 的 传感器 值 是 符 
合 人 意 的 。 因 此 ， 对 于 一 个 给 定 的 循环 ， 要 读 取 多 少 传感器 的 值 是 未 知 的 。 要 读 取 的 传感器 值 的 顺序 
也 不 能 事先 确定 。 这 些 假 定 描述 了 一 种 数据 格式 ， 传 感 器 名 称 被 保存 在 要 读 取 的 原始 传感器 值 的 劳 边 。 
由 于 要 读 取 的 数据 值 的 数目 未 知 ， 因 此 ， 一 个 循环 的 数据 结束 值 将 由 关键 词 end-of-cycle 指示 。 数 据 格 
式 的 形式 如 下 : 

S1 100 

S2 110 

S3 100 

S4 120 

S5 110 

S6 115 

end-of-cycle 

S2 120 

$3 120 

s5 120 

S6 120 

end-of-cycle 

S1 110 

S2 125 

S3 125 

55 125 


S6 125 
end-of-cycle 


put-sensor-value 消息 处 理 程序 将 被 用 来 存储 从 文件 读 取 到 FILE-DATA-SOURCE 实例 的 数据 值 : 


(defmessage-handler INPUT: : FILE-DATA-SOURCE 
put-sensor-value (?sensor ?value) 
(bind ?position (member$ ?sensor ?self:sensor) ) 
(if ?position 
then 
(bind ?self:value 
(replace$ ?self:value ?position 
?position ?value)) 
else 
{pind ?self:sensor ?self:sensor ?sensor) 
(bind ?self:value ?self:value ?value) )) 
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首先 ， 消 息 处 理 程序 在 sensor 槽 值 中 寻找 传感器 名 。 如 果 在 sensor 槽 中 ， 它 就 用 新 的 值 取代 value 
fH PAM. BM, TEE sensor 和 value 槽 中 的 值 的 末尾 加 入 新 的 传感器 名 和 值 。 因 为 值 只 能 被 取 
代 或 者 添加 ， 如 果 在 某 个 循环 中 没有 指定 传感器 的 值 ， 当 查询 数据 时 仍 使 用 原先 的 值 。 

当 文 件 中 没有 传感器 值 剩 下 时 ， 消 息 处 理 程序 close-data-source 用 来 关闭 文件 : 


(daefmessage-handler INPUT: : FILE-DATA-SOURCE 
close-data-source () 
(close ?self:file-logical-name) 
(bind ?self:sensor (create$)) 
(bind ?self:value (create$))) 


函数 close 用 来 关闭 file-logical-name 槽 中 指定 的 文件 。sensor 和 value 模 也 置 为 空 ， 这 样 就 不 能 再 获 
取 到 传感器 值 。 


与 前 面 的 子 类 DATA-SOURCE 不 同 ，FILE-DATA-SOURCE 将 重 置 next-cycle 消息 处 理 程序 以 从 文 
件 中 获取 下 一 个 循环 的 传感器 值 : 


(defmessage-handler INPUT: : FILE-DATA-SOURCE 
next-cycle ({?cycle) 
(if {not ?self:file-logical-name) 
then (send ?self get-file)) 
(bind ?name (read ?self:file-logical-name) ) 
(if (eq ?name EOF) 
then 
{send ?self close-data-source) 
(return) ) 
(while (and (neq ?name end-of-cycle) 
(neq ?name EOF) ) 
{bind ?raw-value 
(read ?self:file-logical-name) ) 
(if {eg ?raw-value EOF) 
then 
{send ?self close~data-source) 
(return) ) 
(send ?self put-sensor-value 
?name ?raw-value) 
(bind ?name (read ?self:file-logical-name) ) 
(if (eq ?name EOF) 
then 
(send ?self close~-data-source) 
(return) ))) 


首先 ， 如 果 file-logical-name 槽 仍然 维持 默认 值 FALSE, JW] get-file 消息 会 被 送 到 实例 以 获取 文件 名 
并 打开 文件 。 该 处 理 程序 随后 从 数据 文件 中 读 取 所 有 数据 值 直到 遇 到 关键 字 end-of-cycle。 如 果 到 达 文 
件 结束 点 ， 则 close-data-source 消息 会 被 送 到 实例 并 关闭 文件 ， 删 去 所 有 存在 的 传感器 值 。 否 则 ， 数 据 
值 被 读 取 到 实例 中 ， 以 便 随 后 通过 put-sensor-value 消息 获取 。 

消息 处 理 程序 get-data 必须 被 重 置 ; 


(defmessage-handler INPUT::FILE-DATA-SOURCE 
get-data (?name) 

(bind ?position (member$ ?name ?self:sensor)) 
(if ?position 

then 

{nth$ ?position ?self: value) 

else 

(return nil))) 


它 在 sensor 槽 中 搜索 指定 传感器 ， 当 存在 时 返回 value 槽 中 相应 的 值 。 最 后 ， 还 必须 加 上 一 个 包含 
FILE-DATA-SOURCE 类 中 实例 的 自 定义 实例 ;: 


(definstances INPUT: :file-data-source 
({file] of FILE-DATA-SOURCE)) 


通过 4 种 不 同 的 数据 源 共享 同一 组 消息 处 理 程序 ， 我 们 可 以 使 用 两 个 规则 和 一 个 自 定义 事实 读 取 
其 中 任何 一 个 数据 : 
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(Geffacts local-cycle 
(local-cycle 0)) 


{defrule INPUT: :next-cycle 
(cycle ?cycle) 

?ft <- (local-cycle ~?cycle) 

(data-source ?source) 

(object (is-a DATA-SOURCE) (name ?source) ) 
=> 

(send ?source next-cycle ?cycle) 

(retract ?f) 

(assert (local-cycle ?cycle))) 


(defrule INPUT: :Get-Sensor-Value-From-Data-Source 
{cycle ?cycle) 
{local-cycle ?cycle) 
(data-source ?source) 
(object (is-a DATA-SOURCE) (name ?source) ) 
?s <- (sensor (name ?name) 
{raw-value none) 
(device ?device) ) 
(device (name ?device) (status on)) 
=> 
(bind ?raw-value (send ?source get-data ?name) ) 
{if (not (numberp ?raw~-value) ) 
then 
(printout t "No data for sensor " 
?name crif) 
(printout t "Halting monitoring system" 


erlf) 
(halt) 


else 
(modify ?s (raw-value ?raw-value)))) 


local-cycle 事实 用 来 指示 在 当前 监视 循环 中 是 否 已 处 理 了 next-cycle 消息 。 规 则 next-cycle 检查 cycle 
事实 指定 的 循环 是 否 与 local-cycle 事实 指定 的 不 一 样 。 如 果 这 种 情况 存在 ， 则 匹配 规则 LHS 的 DATA- 
SOURCE 实例 被 送 到 next-cycle 消息 中 ， 而 local-cycle 事实 更 新 为 和 cycle 事实 一 样 的 值 。 对 DATA- 
SOURCE, SENSOR-DATA-SOURCE 和 INSTANCE-DATA-SOURCE 实例 ，next-cycle 消息 处 理 程序 不 
做 任何 事情 。 对 FILE-DATA-SOURCE 实例 ，next-cycle 消息 处 理 程序 将 读 取 本 次 循环 中 的 所 有 数据 到 
实例 中 。 

一 且 cycle 和 local-cycle 事实 匹配 ， 规 则 Get-Sensor-Value-From-Data-Source 用 来 获取 与 运行 设备 相 
连 的 每 个 传感器 的 原始 数据 。Get-data 消息 送 到 与 规则 LHS 匹配 的 DATA-SOURCE 实例 中 以 获取 指定 
传感器 的 原始 数据 。 如 果 返 回 一 个 非 数字 值 ， 监 视 系统 会 停止 ， 因 为 非 数 字 值 表示 没有 更 多 的 数据 。 
否则 ， 原 始 传感器 值 存放 在 sensor 事实 的 raw-value 槽 中 。 


检测 趋势 


下 一 个 是 趋势 阶段 ， 此 阶段 确定 传感器 的 当前 状态 ,计算 可 能 产生 的 趋势 。 传 感 器 的 当前 状态 
(正常 、 低 或 高 警戒 线 、 低 或 高 危险 线 ) 必须 根据 在 输入 阶段 声明 的 原始 传感器 值 来 确定 。 传 感 器 的 当 
前 状态 存 于 sensor 自 定义 模板 的 slot 槽 中 。 下 面 的 规则 确定 传感器 是 否 处 于 正常 状态 : 


(defrule TRENDS: :Normal-State 

?s <- (sensor (raw-value ?raw-value&~none) 
(low-guard-line ?1g1) 
(high-guard-line ?hgl)) 

(test (and (> ?raw-value ?1gl) 
{< ?raw-value ?hgl))) 

=> 

(modify ?s (state normal) (raw-value none) )) 


第 一 模式 和 接 下 来 的 测试 CE 找 出 任何 处 于 正常 状态 的 传感器 。 在 sensor 模式 中 的 raw-value HS 
fË none 相 比较 ， 保 证 不 会 在 规则 的 测试 CE 中 将 符号 与 数值 相 比 较 。 需 要 测试 传感器 是 否 处 于 正常 状 
态 的 范围 是 低 警 戒 线 和 高 警戒 线 之 间 。 测 试 CE 将 此 规则 限 用 于 原始 传感器 值 处 于 正常 状态 范围 的 情 
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况 。 此 规则 的 唯一 操作 是 声明 推导 出 来 的 传感器 状态 。raw-value 槽 也 被 设置 为 none， 以 便 在 下 一 个 输 
人 阶段 读 取 该 模 值 。 

还 需要 4 条 或 更 多 规则 分 析 传 感 器 剩 下 的 4 种 可 能 状态 。 这 些 规则 与 对 应 的 Normal-state 规则 类 
似 ， 区 别 是 从 sensor 事实 得 到 的 值 和 用 来 确定 当前 状态 的 测试 CE。 所 有 5 条 状态 规则 可 用 规则 的 RHS 
侧 的 让 表达 式 写 成 一 条 规则 ， 以 确定 传感器 的 适当 状态 。 然 而 ,这 种 类 型 的 编码 打破 了 数据 驱动 系统 
的 目的 。 此 外 ， 用 一 条 难处 理 的 规则 将 使 进一步 修改 动作 、 条 件 或 可 能 状态 的 子 集 变 得 更 加 复杂 。 剩 


下 的 4 条 状态 分 析 规 则 如 下 : 
(defrule TRENDS: :High-Guard-Line-State 
?s <- (sensor (raw-value ?raw-value&~none) 


(high-guard~line ?hgl) 
(high-red-line ?hr1l)} 
(test (and (>= ?raw-value ?hgl) 
(< ?raw-value ?Phrl))) 
=> 
(modify ?s (state high-guard-line) 
(raw-value none})) 


(defrule TRENDS: :High-Red-Line-State 
?s <- (sensor (raw-value ?raw-value&~none}) 
(high-red-line ?hrl)) 
(test (>= ?raw-value ?hrl) 
=> 
{modify ?s (state high-red-line) 
(raw-value none) )) 


(defrule TRENDS: :Low-Guard-Line-State 

?s <- (sensor (raw-value ?raw-value&~none) 
(low~guard-line ?1gl) 
{low~red-line ?1r1)) 

(test (and (> ?raw-value ?lrl) 
(<= ?raw-value ?1g1)})) 

=> 

(modify ?s (state low-guard~line) 
(raw-value none))} 


(defrule TRENDS: :Low-Red-Line~-State 
?s <- (sensor (raw-value ?raw-value&~none) 
(low-red-line ?1lr1})} 
(test (<= ?raw-value ?1r1)) 
=> 
(modify ?s (state low-red-line) 
{raw-value none))) 


上 述 5 条 规则 确定 当前 循环 的 传感器 状态 。 由 于 检测 传感器 的 趋势 是 TRENDS 模块 的 目标 之 一 ， 
因此 ， 这 将 需要 维护 有 关 传 感 器 过 去 状态 的 信息 。 下 面 的 自 定义 模板 将 用 于 存储 这 类 信息 。 由 于 
TRENDS 和 WARNINGS 模块 都 要 使 用 此 自 定义 模板 ， 因此， 将 它 放 于 MAIN 模块 中 。 


(deftemplate MAIN: :sensor-trend 
{slot name) 
(slot state (default normal)) 
(slot start (default 0)) 
(slot end (default 0)) 
(slot shutdown-duration (default 3))) 


name 槽 是 传感器 的 名 称 ，state 梢 对 应 于 传感器 的 最 当前 状态 ，start 槽 是 传感器 处 于 当前 状态 的 第 一 个 循 
FR, end 本 是 当前 循环 ，shutdowrn-duration 槽 是 传感器 在 其 相关 设备 必须 被 关机 之 前 处 于 警戒 线 范围 内 的 时 间 。 

更 新 趋势 信息 的 规则 将 依赖 于 每 个 传感器 的 事实 表 中 的 sensor-trend 事实 。 因 此 ， 传 感 器 的 初始 趋 
势 将 被 定义 于 一 个 自 定义 事实 结构 中 。 

(deffacts MAIN::start-trends 

(sensor-trend (name S1) (shutdown-duration 3)) 

(sensor-trend (name $2) (shutdown-duration 5)) 

(sensor-trend (name $3) (shutdown-duration 4)) 

(sensor-trend (name $4) (shutdown-duration 4)) 


(sensor-trend (name $5) (shutdown-duration 4)) 
(sensor-trend (name S6) (shutdown-duration 2))) 
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有 了 这 种 信息 ， 就 可 以 定义 两 条 规则 来 监视 传感器 的 趋势 。 其 中 一 条 规则 监视 上 一 次 循环 以 来 仍 
没有 变化 的 趋势 ， 另 一 条 则 监视 上 一 次 循环 以 来 发 生 了 变化 的 趋势 : 
(defrule TRENDS::State-Has-Not-Changed 
(cycle ?time) 
?trend <- (sensor-trend 
(name ?sensor) (state ?state) 
(end ?end-cycle&~?time) } 
(sensor (name ?sensor) (state ?state) 
(raw-value none) ) 
=> 
(modify ?trend (end ?time))) 


(defrule TRENDS: :State-Has-Changed 
(cycle ?time) 
?trend <- (sensor-trend 
(name ?sensor) (state ?state) 
{end ?end-cycle&~?time} } 
(sensor (name ?sensor) 
(state ?new-state&~?state) 
(raw-value none) } 
=> 
(modify ?trend (start ?time) 
(end ?time) 
(state ?new-state) )) 


两 条 规则 的 第 一 模式 都 建立 循环 。 下 一 模式 则 找 出 前 面 循环 的 sensor-trend 事实 。end 槽 上 的 约束 
确保 这 些 规则 不 会 进入 死 循 环 。 对 于 State-Has-Not-Changed 规则 ， 下 一 模式 检查 前 面 循环 的 状态 是 否 
与 当前 循环 相同 。State-Has-Changed 规则 中 的 约束 ? new-state& ~? state 则 进行 相反 的 检查 ， 确 保 其 
状态 自 上 一 次 循环 以 来 已 发 生变 化 。 检 查 raw-value HE BS F none 可 以 防止 在 确定 传感器 的 当前 状 
态 之 前 不 会 确定 趋势 。 在 两 个 规则 中 ,结束 (end) 循环 时 间 得 到 更 新 。 如 果 状 态 已 改变 ， 则 状态 值 和 
启动 循环 时 间 也 必须 更 新 。 


发 出 警告 


循环 的 最 后 阶段 是 警告 阶段 。 此 阶段 必须 处 理 3 种 操作 : 进 和 危险 区 的 传感器 必须 关闭 相关 的 设 
备 ; 处 于 警戒 区 达到 规定 循环 次 数 的 传感器 也 要 关闭 相关 的 设备 ; 处 于 警戒 区 且 没有 关闭 相关 设备 的 
传感器 要 求 发 出 警告 信息 。 

下 面 的 规则 是 关闭 已 进入 危险 区 的 传感器 ， 


(defrule WARNINGS: : Shutdown-In-Red-Region 
(cycle ?time) 
(sensor-trend 
(name ?sensor) 
(state ?state&high-red-line | low-red-line)) 
(sensor (name ?sensor) (device ?device) ) 
?on <- (device (name ?device) (status on)}) 
=> 
(printout t "Cycle “ ?time * - ") 
(printout t "Sensor " ?sensor " in" 
?state crlf) 

{printout t " Shutting down device " 
?device crlf) 

(modify ?on (status off))) 


可 使 用 sensor-trend 事实 检查 传感器 的 状态 。 如 果 传 感 器 处 于 危险 区 ， 则 关 掉 相关 的 设备 。 相 关 设 
备 的 传感器 只 要 有 一 个 进入 危险 区 ， 则 立即 关 掉 这 些 相 关 设 备 ， 因 此 ， 它 主要 不 是 用 于 检查 传感器 处 
于 这 种 状态 有 多 久 。 

Shutdown-In-Guard-Region 规则 与 上 一 条 规则 类 似 ， 但 该 传感器 必须 已 进 人 警戒 区 一 段 时 间 (由 
sensor-trend 事实 的 shutdown-duration WHE) 才能 关闭 。 传 感 器 处 于 特定 状态 的 时 间 可 以 从 sensor- 
trend 事实 的 end ARE start 槽 得 到 。 
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(defrule WARNINGS: :Shutdown-In-Guard-Region 
(cycle ?time) 
(sensor-trend 
(name ?sensor) 
(state ?state&high~guard-line | 
low-guard-line) 
(shutdown-duration ?length) 
(start ?start) (end ?end)) 
(test (>= (+ (- ?end ?start) 1} ?length)) 
(sensor (name ?sensor) (device ?device)) 
?on <- (device {name ?device) (status on)) 
=> 
(printout t "Cycle " ?time ” - ”} 
(printout t "Sensor " ?sensor " in " ?state " ") 
(printout t "for " ?length " cycles " crlf) 
{printout t " Shutting down device " ?device 
crlf) 
(modify ?on (status off))} 


在 sensor-trend 和 相关 的 测试 CE 中 增加 shutdown-duration HAL A Shutdown-In-Red-Region 规 
则 之 间 的 唯一 主要 区 别 。 这 两 个 模式 确定 传感器 是 否 处 于 警戒 区 的 时 间 太 长 ， 足 以 关 掉 与 该 传感器 相 
关 的 设备 。 

监视 系统 的 最 后 一 条 规则 是 发 出 处 于 警戒 区 传感器 的 警告 信息 ， 但 它 处 于 此 区 域 的 时 间 不 够 长 ， 
不 足以 关 掉 相关 的 设备 : 


(defrule WARNINGS::Sensor-In-Guard-Region 
(cycle ?time) 
(sensor-trend 
(name ?sensor) 
(state ?state&high-guard-line | 
low-guard-line) 
(shutdown-duration ?length) 
(start ?start) (end ?end)) 
(test (< (+ (- ?end ?start) 1) ?length)) 
=> 
(printout t "Cycle " ?time " - ") 
(printout t "Sensor " ?sensor " in ” 
?state crlf)) 


此 规则 是 作为 Shutdown-In-Guard-Region 规则 的 补充 。 测 试 (test) CE 已 被 修改 以 检测 该 传感器 处 
于 警戒 区 的 时 间 小 于 需要 关闭 其 相关 设备 所 需 的 循环 次 数 。 既 然 该 传感器 的 相关 设备 不 必 被 关闭 ， 因 
此 ， 没 有 包含 确定 相关 设备 的 模式 在 内 。 

这 最 后 一 条 规则 完成 了 一 个 很 简单 的 监视 系统 的 基本 工作 。 附 加 的 规则 可 以 包括 特定 的 应 该 受 监 
视 的 情况 ， 或 者 ， 提 供 处 理 复杂 监视 情况 并 描述 传感器 /设备 关系 的 通用 模型 。 


12.6 小 结 


本 章 展示 了 用 CLIPS 表示 MYCIN- 样 式 的 确定 性 因子 的 技术 。 对 象 - 属性 - 值 (OAV) 三 元 组 用 
事实 来 表示 。 每 个 事实 中 有 一 个 附加 村 表示 该 事实 的 确定 性 因子 。 通 过 使 用 约束 在 规则 LHS 侧 的 确定 
性 值 ， 可 利用 规则 来 计算 在 规则 RHS 侧 新 近 被 声明 事实 的 确定 性 值 。 然 后 ， 可 使 用 一 条 规则 将 出 现 两 
次 的 OAV 三 元 组 组 合 为 一 次 出 现 ， 它 有 一 个 根据 原始 的 两 个 三 元 组 的 确定 性 因子 求 得 的 新 确定 性 
因子 。 

判定 树 也 可 以 用 CLIPS 的 正 向 链 系统 表示 。 遍 历 判 定 树 有 几 种 算法 ， 包括: 二叉树 、 多 又 树 和 学 
习 式 多 叉 树 。 学 习 式 多 叉 树 的 算法 可 以 用 CLIPS 来 实现 。 

CLIPS 也 可 模仿 反 向 链 推理 策略 。 反 向 链 推理 机 可 以 利用 CLIPS 规则 建立 ， 它 建立 的 基础 中 有 一 
部 分 是 依赖 于 程序 语言 中 实现 反 向 链 的 算法 。 反 向 链 规则 可 以 表示 为 事实 ， 并 受 CLIPS 中 反 向 链 推理 
规则 的 作用 。 逐 步 跟踪 一 个 简单 的 反 向 链 对 话 展示 了 该 范例 用 CLIPS 来 表示 的 原理 。 

本 章 的 最 后 一 个 例子 是 一 个 简单 的 监视 专家 系统 。 监 视 问题 的 初始 描述 可 用 来 作为 编写 专家 系统 
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的 开始 。 系 统 中 作 了 一 些 假定 ， 并 随 着 越 来 越 多 的 规则 添加 到 此 专家 系统 ， 也 相应 地 添加 了 一 些 细节 。 
监视 系统 的 执行 可 分 为 3 个 阶段 。 输 入 阶段 是 收集 传感器 的 原始 数据 值 。 书 中 展示 了 几 种 不 同 的 提供 
数据 值 的 方法 。 趋 势 阶段 是 分 析 传 感 器 的 原始 数据 值 ， 并 检查 发 展 趋势 。 最 后 是 警告 阶段 ， 此 阶段 发 
出 警告 信息 ， 并 根据 趋势 阶段 的 分 析 结 果 执 行 适当 的 操作 。 


习题 


12.1 


12.13 


对 于 下 列 两 种 情况 ， 写 出 CLIPS 规则 来 组 合 如 第 12.2 节 所 示 的 MYCIN 确定 性 因子 : 
New Certainty = (CF, + CF,) + (CF,* CF.) 
CF, <0 A <0 
ae CF, + CF. 
New Certainty = Ii- minie œh —min{ EA | AEA } 
4-1 < CFi*CF2< 0 


利用 第 12.2 节 中 展示 的 几 种 技术 ， 说 明 经 典 概率 如 何 合并 到 CLIPS 中 。 列 出 在 规则 中 使 用 经 典 
概率 的 可 能 的 优 缺 点 。 

利用 程序 语言 ， 如 LISP、C 或 PASCAL， 实 现 第 12.3 节 中 描述 的 Solve _ Tree _ and _ Learn 算 
法 。 利 用 动物 识别 的 例子 测试 你 的 实现 情况 。 

利用 程序 语言 ， 如 LISP、C 或 PASCAL， 实 现 第 12.4 节 中 描述 的 Solve _ Goal 和 Attempt _ Rule 
算法 。 利 用 选择 酒 的 例子 测试 你 的 实现 情况 。 

修改 DATA-SOURCE 的 get-data 规则 ， 使 它 只 允许 接收 用 户 输入 的 数字 。 仅 当 在 输入 期 间 输 入 
了 词 halt， 本 规则 才 产 生 执 行 终止 。 

生成 DATA-SOURCE 自 定义 类 的 子 类 ， 以 允许 用 户 使 用 回 车 符 表示 应 保留 每 个 传感器 的 前 一 次 
值 。 例如 ， 若 传感器 1 和 2 的 前 一 次 值 分 别 为 100 和 120， 则 下 列 响应 : 


What is the value for sensor 1? J 
What is the value for sensor 2? 130 


应 将 传感器 1 的 原始 数据 值 设置 为 100、 传 感 器 2 的 原始 数据 值 设 置 为 130。 若 传感器 的 前 一 次 
值 未 知 ， 则 应 该 作 什么 假定 、 采 取 什 么 措施 ? 

修改 程序 使 得 已 被 关闭 的 设备 能 继续 受 传感器 的 监视 。 如 果 该 设备 的 所 有 传感器 回 到 正常 状态 ， 
则 应 该 重新 将 设备 打开 。 

即使 男 一 条 规则 在 议程 中 ，Sensor-In-Guard-Region 规则 也 会 发 出 一 则 关于 某 传感器 的 警告 信息 ， 
此 后 关闭 它 相 关 的 设备 。 如 果 WARNINGS 模块 的 另 一 条 规则 会 关闭 它 相关 的 设备 ,那么 ， 应 
该 对 此 规则 作 怎 样 的 修改 来 防止 它 发 出 警告 信息 ? 

增加 一 些 规则 ， 打 印 在 警告 阶段 的 信息 ， 指 出 某 传感器 已 处 于 正常 状态 至 少 n 个 循环 ， 数 字 n 
在 事实 中 规定 。 只 在 每 第 n 个 循环 打印 。 

怎样 修改 第 12.4 节 中 的 反 向 链 规则 ， 以 允许 正 向 链 ? 

修改 习题 11.1 中 编写 的 程序 ， 使 得 代表 灌木 的 事实 可 利用 load-facts 函数 从 一 个 文件 载 入 。 在 
提供 解释 后 ， 应 该 询问 用 户 是 否 需要 再 次 选择 灌木 。 如 果 是 ， 则 应 该 重新 运行 该 程序 。 

利用 习题 11.3 编写 的 程序 ， 修 改 习 题 10.10 中 编写 的 程序 ， 使 得 仅 有 还 没有 被 选择 的 小 装置 
列 在 Add Gizmo 子 菜单 上 、 使 已 被 选择 的 小 装置 列 在 Remove Gizmo 子 菜单 上 。 而 主 菜单 上 ， 
仅 当 有 未 被 选择 的 小 装置 时 ， 才 显示 Add Gizmo 菜单 选项 ; 仅 当 有 已 被 选择 的 小 装置 时 ， 才 显 
示 Remove Gizmo 菜单 选项 。 

利用 习题 11 .3 编写 的 程序 ， 修 改 习题 10.4 中 编写 的 程序 ， 以 便 使 用 菜单 驱动 式 界 面 。 应 给 用 
户 提供 独立 的 菜单 选项 ， 以 说 明 待 识别 的 宝石 的 颜色 、 硬 度 和 密度 。 使 用 包含 有 效 颜 色 的 子 菜 
单 进行 颜色 说 明 。 应 提供 菜单 选项 ， 列 出 满足 当前 规定 条 件 的 宝石 。 例 如 ， 若 用 户 只 规定 了 宝 
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石 的 颜色 为 黑色 ， 则 此 菜单 选项 只 列 出 黑色 的 宝石 。 还 应 该 提供 另外 两 个 菜单 选项 ， 一 个 列 出 
规定 条 件 的 当前 值 ， 另 一 个 将 所 有 条 件 复位 到 一 个 未 规定 的 状态 。 


参考 文献 


(Firebaugh 88). Morris W. Firebaugh, Artificial Intelligence: A Knowledge-Based Approach, 
Boyd & Fraser Publishing, p. 309, 1988. 





附录 A ”一 些 有 用 的 等 式 


~~p = dp 


pO @2-PVYVq=F-~q-4-p 


~(p Aq) = ~p Vv ~q 

~(p vq) = ~pa~q 

pa layr) = pag v par} 
Pv (qar) = (pv q) a (pvr) 
(PAG) AYrE=pPa (qa rr) 


(pvaq)vrepviqvyr) 


PAQGZ=QAP 
PV@QF=aqvp 
~(V x) P(x) = (3 x) ~P(x) 
~(3 x) P(x) = (VY x) ~P(x) 


(V x) P(x) a (Y x) Q(x) = (VW x) (P(x) a Q(x)) 
(3 x) P(x) v (3 x) Q(x) = (3 x) (P(x) v Q{x)) 


注意 : Y 不 能 分 配给 V 运算 ， 了 不 能 分 配给 入 运 算 ， 所 以 ， 在 下 面 的 两 个 等 式 中 ， 要 引信 一 个 旺 
变量 z 。 


(V x) P(x) v (VY x) Q(x) (Y x) P(x) v (V z) Q(z) 


(Y x) (V z) (P(x) v Q(z)) 


{3 x) P(x) a {3 x) Q(x) {3 x) P(x) a (3 z) Qtz) 


(3 x) (3 z) (P(x) a Q(z)) 


附录 B 一 些 基 本 量词 公式 及 其 含义 








aA R ae x 
(Vx) (P (x) =Q (x)) 对 所 有 x, P 成 立 则 Q 成 立 
(Wx) (P (x) >~Q (x)) 对 所 有 x, PRAM Q 不 成 立 
{3x) (P (x) AQ (x)) 对 所 有 x, P, Q 都 成 立 
(3x) (P (x) A~Q (x)) 对 所 有 x, P 成 立 但 Q 不成立 
(Yx) P (x) 对 所 有 x，P 成 立 
(3x) P (x) 对 某 些 x，P 成 立 
~ (Wx) P (x) 不 是 所 有 x SBE P RE 
(Yx) ~P (x) 对 所 有 x，P 不 成 立 
(¥x) (3y) P (x, y) 对 所 有 x， 都 有 菜 一 y 使 P 成 立 


(3x) ~P (x) 有 些 x 使 P 不 成 立 





AUB=BUA 

ANB=BNA 
AU(BUC) = (AUB)UC 
AN(BNC) = (ANB)NC 
AUA=A 

ANA=A 

AU(BNC) = (AUB)N(AUC) 
ANM(BUC) = (ANB)UCANC) 
AUA'=U 


t 


ANA'=@ 
AUM=A 
ANU=A 
AU(AMB) =A 
ANM(AUB) =A 
(AmnB) =AUB- 
(AUB) =AmnB- 
(A) = 一 A 


(AUB)IMCAUB) = (A’NB')UCANB) 
(A'NB)UCANB') = (A’UB’)M(AUB) 





附录 D CLIPS 支持 信息 


本 书 附带 的 光盘 含有 CLIPS 6.22 在 MS-DOS, Windows 2000/XP， 以 及 MacOS X 上 的 可 执行 程 
FR; 此 外 ， 还 有 CLIPS 源 程 序 代码 、《CLIPS 参考 手册 》 (CLIPS Reference Manual) 三 卷 、《CLIPS 用 
户 指南 》(CLIPS User’ s Guide)。 参 考 手册 第 一 卷 , 《基本 编程 指南 》( Basic Programming Guide) ， 主 要 
包括 CLIPS 语法 定义 及 用 法 例子 。 第 二 卷 ,《 高 级 编程 指南 》(The Advanced Programming Guide) ， 包 括 
定制 CLIPS 的 细节 ， 在 CLIPS 中 增加 新 的 函数 、 央 人 CLIPS， 以 及 其 他 一 些 高 级 特性 介绍 。 第 三 卷 ， 
《用 户 界面 指南 》(The Interfaces Guide)， 包 括 CLIPS 与 环境 有 关 的 界面 信息 。 可 以 通过 在 X Windows 
界面 下 编译 光盘 中 的 源 代码 来 获得 CLIPS 的 一 个 X Windows 版 本 。 

CLIPS 的 漏洞 修补 、 更 新 以 及 其 他 一 些 相关 信息 可 以 在 CLIPS 的 主页 http: //www. ghg. net/clips/ 
CLIPS. html 上 获得 。 关 于 CLIPS 的 问题 可 以 发 送 电子 邮件 到 下 面 的 地 址 : clipsYYYY@ghg.net， 其 中 
YYYY 是 当前 的 年 份 〈 例 如 ，2004)。Usenet 用 户 可 以 在 comp.ai.shells 新 闻 组 上 查找 信息 或 提交 问题 。 

CLIPS 开发 者 论坛 在 http: //www.cpbinc.com/clips， 这 是 一 个 基于 线程 的 消息 公告 栏 ， 提 供 了 研 
究 讨 论 、 开 发 和 实现 CLIPS 专家 系统 以 及 相关 技术 的 站 点 。 

CLIPS 用 户 还 可 以 通过 电子 会 议 来 交流 信息 ， 与 会 者 可 以 E-mail 的 形式 来 提交 问题 、 看 法 、 答 复 、 
评论 等 。 所 有 的 与 会 者 都 可 通过 E-mail 来 收 到 会 议 讨论 信息 ， 要 想 注 册 成 为 与 会 者 ， 只 需 向 clips-re- 
quest@discomsys.com 发 一 个 E-mail A £ F) “subscribe”, F, subject 栏 可 以 不 填 , 但 “Reply:”， 
“Reply to:”， 或 “From:” 栏 必须 填写 。 注 册 后 你 会 收 到 一 个 E-mail 告诉 你 怎样 参加 会 议 。 





附录 E CLIPS 命令 与 函数 概要 


LRT 口 
议程 
(agenda [<module-name>] ) 


列 出 指定 模块 议程 中 的 活动 (如 果 没 有 指定 <module-name> ， 则 为 当前 模块 )。 
{clear-focus-stack) 

从 焦点 栈 中 返回 所 有 模块 名 。 

(focus <module-name>+) 

将 一 个 或 多 个 模块 按照 它们 在 参数 表 中 的 反 序 压 人 焦点 栈 中 。 


(get-focus) 


返回 当前 焦点 栈 中 的 模块 名 。 


(get-focus-stack) 


将 焦点 栈 中 所 有 模块 名 作为 一 个 多 字段 值 返回 。 
(get-salience-evaluation) 

返回 当前 优先 级 计算 方式 。 

(get-strategy) 

返回 当前 冲突 的 解决 策略 。 

(halt) 

终止 规则 执行 。 

(List-focus-stack) 

列 出 焦点 栈 中 所 有 的 模块 名 。 


(pop-focus) 


返回 当前 焦点 的 模块 名 并 从 焦点 栈 中 删除 当前 焦点 。 


(refresh-agenda [<module-name>] ) 


对 指定 模块 (如 果 没 有 指定 <module-name> ， 则 为 当前 模块 ) 议程 中 的 规则 重新 计算 优先 级 。 


{run {<integer-expression>]) 


开始 执行 当前 焦点 中 的 规则 。 如 果 指定 了 < integerexpression> ， 则 只 执行 该 序号 的 规则 。 
和 否则， 直到 议程 为 空 才 停止 执行 。 


(set-salience-evaluation <behavior>) 
<behavior> ::= when-defined | when-activated | 


every-cycle 


设置 优先 级 计算 方式 。 
(set-strategy <strategy>) 
<strategy> ::= depth | breadth | simplicity | 


complexity | lex | mea | random 


设置 当前 冲突 归结 策略 。 
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基本 数学 函数 


(abs <numeric-expression>) 


返回 唯一 参数 的 绝对 值 。 


(div <numeric-expression> <numeric-expression>+) 


返回 第 一 个 参数 除 以 其 余 参 数 的 值 ， 运 算 满足 整数 除法 规则 。 


(float <numeric-expression>) 


将 唯一 参数 转换 为 浮 点 数 类 型 并 返回 。 


(integer <numeric-expression>) 


将 唯一 参数 转换 为 整数 类 型 并 返回 。 


(max <numeric-expression> <numeric-expression>+) 


返回 最 大 参数 的 值 。 


(min <numeric-expression> <numeric-expression>+) 


返回 最 小 参数 的 值 。 


(+ <numeric-expression> <numeric-expression>+) 


返回 所 有 参数 的 和 。 


(- <numeric~expression> <numeric~expression>+) 


返回 第 一 个 参数 减 去 其 余 所 有 参数 的 差 。 


(* <numeric~expression> <numeric-expression>+) 


返回 所 有 参数 的 乘积 。 


(/ <numeric-expression> <numeric-expression>+) 


返回 第 一 个 参数 除 以 其 余 所 有 参数 的 值 。 
转换 函数 


(deg-grad <numeric-expression>) 


将 参数 从 度数 值 转换 为 梯度 值 并 返回 。 


(deg-rad <numeric-expression>) 


将 参数 从 度数 值 转换 为 弧度 值 并 返回 。 


(exp <numeric-expression>) 


返回 e EET 


(grad-deg <numeric-expression>) 


将 参数 从 梯度 值 转换 为 度数 值 并 返回 。 


{log <numeric-expression>) 


返回 参数 以 e 为 底 的 对 数值 。 


(logiO <numeric-expression>) 


返回 参数 以 10 为 底 的 对 数值 。 


(mod <numeric-expression> <numeric-expression>) 


返回 第 一 个 参数 除 以 第 二 个 参数 的 余数 值 。 


(pi) 
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返回 x 值 。 


(rad-deg <numeric-expression>) 


将 参数 从 弧度 值 转换 为 度数 值 并 返回 。 


(round <numeric-expression>) 


返回 参数 最 接近 的 整数 值 。 


(sqrt <numeric-expression>) 


返回 参数 的 平方 根 。 


(** <numeric-expression> <numeric-expression>) 


返回 第 一 个 参数 的 第 二 个 参数 次 宕 。 
调试 命令 
(dribble-off) 


停止 对 跟踪 文件 的 输出 ， 该 跟踪 文件 由 函数 dribbleon 打开 。 若 跟踪 文件 成 功 关闭 ， 则 返回 
TRUE， 否 则 返回 FALSE, 


(dribble-on <file-name>) 


将 屏幕 输出 重 定位 到 跟踪 文件 <flename> 中 。 如 果 跟 踪 文件 打开 成 功 ， 则 返回 TRUE, AIEE 


FALSE。 
(list-watch-items) 
列 出 监视 项 的 当前 状态 。 


(unwatch <watch-item>) 


当 某 种 CLIPS 操作 发 生 时 ， 关 闭 显示 信息 。 


(watch <watch-item>) 

<watch-item> ::= activations | all | compilations | 
deffunctions | facts | focus | 
generic-functions | globals | 
instances | messages | 
message-handlers | methods | 
rules | slots | statistics 


当 某 种 CLIPS 操作 发 生 时 ， 激 活 显示 信息 。 
自 定义 类 


(browse-classes [<class-name>] ) 


列 出 指定 的 类 及 其 子 类 的 继承 关系 。 如 果 没 有 指定 类 ，< class-name> 默 认为 OBJECT. 


(class-~abstractp <class-name>) 


如 果 指 定 的 类 为 抽象 类 ， 返 回 TRUE, BIJ FALSE. 


(class-existp <class-name>) 


如 果 指 定 的 类 已 定义 ,返回 TRUE, Fj FALSE, 


{class-reactivep <class-name>) 


如 果 指 定 的 类 为 反应 类 ， 返 回 TRUE, F) FALSE. 


(class-slots <class-name> [inherit]) 


以 多 字段 值 形式 返回 类 中 定义 的 显 式 槽 名。 如 果 使 用 了 可 选 的 inherit 关键 字 ， 将 包括 继承 模 。 


(class-subclasses <class-name> [inherit])} 
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以 多 字段 值 形式 返回 一 个 类 的 直接 父 类 。 如 果 使 用 了 可 选 的 inherit 关键 字 ， 将 包括 间接 子 类 。 
iclass-superclasses <class-name> [inherit]) 

以 多 字段 值 形式 返回 一 个 类 的 直接 父 类 。 如 果 使 用 了 可 选 的 inherit 关键 字 ， 将 包括 间接 父 类 。 
(defclass-module [<class-name>]) 

返回 指定 自 定义 类 的 定义 所 在 的 模块 。 

(describe-classes [<class-name>})} 

提供 一 个 类 的 详细 描述 。 

(get-class-defaults-mode) 

返回 定义 类 时 的 当前 默认 模式 。 

(get-defclass-list [<module-name>]) 


返回 一 个 包含 指定 模块 〈 当 没有 指定 <module-name> 时 ， 为 当前 模块 ) 中 的 类 列表 的 多 字段 值 。 


(list-defclasses [<module-name>]) 


列 出 指定 模块 〈 当 没有 指定 < module-name> 时 ， 为 当前 模块 ) 中 的 类 列表 。 
(ppdefclass <class-name>) 

显示 指定 自 定义 实例 的 文本 。 

{set-class-defaults-mode convenience conservation) 

设置 定义 类 时 的 默认 模式 。 

(slot-allowed-values <class-name> <slot-name>) 

以 多 字段 值 形式 返回 模 的 允许 值 。 

(slot-cardinality <class-name> <slot-name>} 

以 多 字段 值 形式 返回 一 个 多 槽 所 允许 的 最 小 和 最 大 字段 数 。 
(slot-default-value <class-name> <slot-name>) 


返回 与 槽 相关 关联 的 默认 值 。 


(slot-direct-accessp <class-name> <slot-name>) 


如 果 指 定 的 槽 可 以 直接 存 取 则 返回 TRUE， 和 否则 返回 FALSE. 

(slot-existp <class-name> <slot-name> {inherit]) 

如 果 指 定 的 槽 在 类 中 ， 则 返回 TRUE， 否 则 返回 FALSE。 如 果 使 用 了 可 选 的 inherit RBS, ME 
可 以 是 继承 的 。 

(slot-facets <class-name> <slot-name>) 

以 多 字段 值 形式 返回 指定 槽 的 侧面 值 。 

(slot-initablep <class-name> <slot-name>) 

如 果 指 定 的 槽 可 以 初始 化 ,返回 TRUE， 否则 返回 FALSE, 


(slot-publicp <class-name> <slot-name>) 


ORES, 8E TRUE, ALEE FALSE, 


{slot-range <class-name> <slot-name>) 


USF BE Aik BB EB) AR ALB 


(slot-sources <class-name> <slot-name>) 


以 多 字段 值 形式 返回 为 指定 类 的 指定 槽 提供 了 侧面 的 类 名 。 


(slot-types <class-name> <slot-name>) 
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以 多 字段 值 形式 返回 指定 类 的 指定 槽 所 允许 的 初始 类 型 。 


(slot-writeablep <class-name> <slot-name>) 


如 果 指 定 模 是 可 写 的 ， 返 回 TRUE， 否 则 返回 FALSE. 


(subclassp <classi-name> <class2-name>) 


如 果 第 一 个 类 是 第 二 个 类 的 子 类 ， 返 回 TRUE. 


(superclassp <classl-name> <class2-name>) 


如 果 第 一 个 类 是 第 二 个 类 的 父 类 ， 返 回 TRUE. 


(undefclass <class-name>) 


删除 指定 的 类 。 
自 定义 事实 


(deffacts-module <deffacts-name>) 


返回 指定 自 定义 事实 的 定义 所 在 的 模块 。 


(get-deffacts-list [<module-name>] ) 


返回 指定 模块 〈 如 果 没 有 指定 <module-name> ， 则 为 当前 模块 ) 的 所 有 自 定义 事实 列表 。 


(list-deffacts [<module-name>] } 


列 出 指定 模块 (如 果 没 有 指定 <module-name > ， 则 为 当前 模块 ) 的 自 定义 事实 。 


(ppdeffacts <deffacts-name>) 


显示 指定 自 定义 事实 的 文本 。 


(undeffacts <deffacts-name>) 


删除 指定 的 自 定义 事实 。 
自 定义 函数 


(deffunction-module <deffunction-name>) 


返回 指定 自 定义 函数 的 定义 所 在 的 模块 。 


{get-deffunction-list [<module-name>]) 


返回 一 个 包含 指定 模块 〈 如 果 没 有 指定 <module-name> ， 则 为 当前 模块 ) 中 的 自 定义 函数 列表 的 
多 字段 值 。 


(list-deffunctions [<module-name>]) 


列 出 指定 模块 〈 如 果 没 有 指定 < module-name> ， 则 为 当前 模块 ) PAR eM RK. 


(ppdeffunction <deffunction-name>) 


显示 指定 自 定 义 函 数 的 文本 。 


(undeffunction <deffunction-name>)} 


删除 指定 的 自 定 义 函 数 。 
自 定 义 类 属 
(defgeneric-module <defgeneric-name>) 


返回 指定 自 定义 类 属 的 定义 所 在 的 模块 。 


(get-defgeneric-list [<module-narme>]) 
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返回 包含 指定 模块 〈 如 果 没 有 指定 人 modulename> ， 则 为 当前 模块 ) 中 的 自 定义 类 属 列表 的 多 字 
段 值 。 


{list-defgenerics [<module-name>]) 


列 出 指定 模块 〈 如 果 没 有 指定 < module - name> ， 则 为 当前 模块 ) 的 自 定义 类 属 。 


(ppdefgeneric <defgeneric-name>) 


显示 指定 自 定 义 类 属 的 文本 。 


(preview-generic <generic-function-name> <expression>*) 


以 降序 形式 列 出 对 于 特定 类 属 函数 调用 可 用 的 方法 ， 但 不 执行 。 


(type <expression>) 


返回 参数 的 类 型 (或 类 ) 名 。 


(undefgeneric <defgeneric-name>) 


删除 指定 的 自 定义 类 属 及 其 所 有 方法 。 
自 定义 全 局 变 


(defglobal-module <defglobal~name>) 


返回 指定 自 定义 全 局 变量 的 定义 所 在 的 模块 。 

(get-defglobal-list [<module-name>]) 

返回 包含 指定 模块 〈 如 果 没 有 指定 < modulename> ， 则 为 当前 模块 ) 中 的 自 定 义 全 局 变量 列表 的 
多 字段 值 。 

(get-reset-globals) 

返回 重 填 全 局 变量 开关 的 当前 值 (TRUE 或 FALSE)。 

(list-defglobals [<module-name>]) 

列 出 指定 模块 (如果 没有 指定 <module-name> ， 则 为 当前 模块 ) 的 自 定 义 全 局 变量 。 
(ppdefglobal <defglobal-name>) 

显示 指定 自 定义 全 局 变量 的 文本 。 

(set-reset-globals <boolean-expression>) 

设置 重 置 全 局 变量 开关 。 如 果 开 关 打 开 (默认 为 TRUE)， 则 执行 reset 命令 时 ， 全 局 变量 重 置 为 
初始 值 。 

(show-defglobals [<module-name>]) 

列 出 指定 模块 (如 果 没 有 指定 < module-name> ， 则 为 当前 模块 ) 中 的 自 定 义 全 局 变量 及 其 当前 
值 。 


(undefglobal <defglobal-name>) 


删除 指定 的 自 定义 全 局 变量 。 
自 定义 实例 


(definstances-module <definstances-name>) 


返回 指定 自 定义 实例 的 定义 所 在 的 模块 。 


(get-definstances-list [<module-name>]) 
返回 包含 指定 模块 〈 如 果 没 有 指定 <module-name> ， 则 为 当前 模块 ) 中 的 自 定义 实例 列表 的 多 字 
自 值 。 
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(list-definstances [<module-name>]) 


列 出 指定 模块 (如 果 没 有 指定 <module-name > ， 则 为 当前 模块 ) 中 的 自 定义 实例 。 


(ppdefinstances <definstances-name>) 


显示 指定 自 定义 实例 的 文本 。 


(undefinstances <definstances-name>) 


删除 指定 的 自 定 义 实例 。 
自 定义 消息 处 理 程序 


(call-next-handler) 


当 从 消息 处 理 程序 内 部 调用 时 ， 调 用 被 正在 执行 的 消息 处 理 程序 重 载 或 覆盖 的 下 一 个 消息 处 理 程 
序 。 


(get-defmessage-handler-list <class-name> [inherit})) 


返回 包含 指定 类 的 类 名 、 处 理 程序 名 和 处 理 程序 类 型 三 元 组 的 多 字段 值 。 如 果 指 定 了 inherit, W 
被 继承 的 消息 处 理 程 序 也 包含 在 多 字段 值 内 。 


(list-defmessage-handlers [<class-name> [inherit]]) 


列 出 当前 模块 中 指定 类 的 自 定义 消息 处 理 程序 。 如 果 没 有 指定 类 ， 当 前 模块 中 所 有 类 的 自 定义 消 
息 处 理 程序 都 被 列 出 。 如 果 指 定 了 inherit， 则 被 继承 的 消息 处 理 程序 也 将 显示 。 


(message-handler-existp <class-name><handler-name> 
{<handler-type>] } 
<handler-type> ::= around | before | 
primary | after 


如 果 指 定 类 的 指定 消息 处 理 程序 是 直接 定义 的 (不 是 继承 的 )， 则 返回 TRUE， 否 则 返回 FALSE. 


(next-handlerp) 


如 果 有 另 一 个 消息 处 理 程序 可 执行 ， 则 返回 TRUE， 否 则 返回 FALSE, 


(override-next-handler <expression>*) 


调用 下 一 个 被 覆盖 的 处 理 程序 ， 允 许 改变 参数 。 


(ppdefmessage~handler <class-name> <handler-name> 
[<handier-type>]) 
<handler-type> ::= around | before | 
primary | after 


显示 指定 自 定义 消息 处 理 程 序 的 文本 。 如 果 没 有 指定 <handler-type> JW primary. 


(preview-send <class-name> <message-name>) 


显示 对 某 个 送 到 指定 类 的 实例 消息 可 用 的 处 理 程序 的 列表 。 


(undefmessage-handler <class-name> <handler-name> 
[<handier-type>]) 
<handler-type> ::= around | before | 
primary | after 


删除 指定 的 自 定 义 消 息 处 理 程 序 。 如 果 没 有 指定 Chandler-type> MWA primary. 
自 定 义 方 法 


(call-next-method) 


调用 下 一 个 被 覆盖 的 方法 。 
(call-specific-method <defgeneric-name> <method-index> 


<expression>*) 
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调用 一 个 忽略 方法 优先 级 类 属 函数 的 特定 方法 。 


(get-defmethod-list [<defgeneric-name>] ) 


返回 包含 当前 模块 中 自 定义 类 属 名 和 方法 索引 所 组 成 的 对 的 多 字段 值 。 如 果 指 定 了 自 定 义 类 属 名 ， 
则 只 有 属于 这 个 自 定 义 类 属 的 方法 会 被 包括 在 返回 值 中 。 


{get-method-restrictions <defgeneric-name> 


<method-index>) 


返回 包含 指定 方法 限制 信息 的 多 字段 值 。 


{list-defmethods [<defgeneric-name>]) 


升序 列 出 当前 模块 中 的 所 有 自 定义 方法 。 如 果 指 定 了 自 定义 类 属 名 ， 则 只 列 出 属于 这 个 自 定义 类 
属 的 方法 。 


(next-methodp) 


如 果 在 一 个 类 属 函 数 的 方法 中 调用 ， 如 果 有 一 个 方法 被 当前 方法 覆盖 ， 函 数 next-methodp 返回 
TRUE; 否则 返回 FALSE。 


(override-next-method <expression>*) 


调用 下 一 个 被 覆盖 的 方法 ， 人 允许 提供 新 的 参数 。 


(ppdefmethod <defgeneric-name> <index>) 


显示 与 指定 类 属 函数 和 方法 索引 相关 联 的 自 定义 方法 的 文本 。 


(Preview-generic <generic-function-name> 


<expression>*) 


降序 列 出 对 某 特定 类 属 函数 调用 可 用 的 方法 ,但 不 执行 。 


(undefmethod <defgeneric-name> <index>) 


删除 与 指定 类 属 函数 和 方法 索引 相关 联 的 自 定义 方法 。 
自 定义 模块 


(get-current-module) 


返回 当前 模块 。 


(get-defmodule-list) 


返回 所 有 自 定义 模块 列表 。 


(list-defmodules) 


列 出 CLIPS 环境 中 所 有 自 定义 模块 。 


(ppdefmodule <defmodule-name>) 


显示 指定 自 定 义 模块 的 文本 。 


(set-current-module <defmodule-name>) 


设置 当前 模块 为 指定 模块 名 ， 并 返回 前 一 个 当前 模块 。 
自 定义 规则 


(defrule-module <defrule-name>) 


返回 指定 自 定义 规则 的 定义 所 在 的 模块 。 


{get-defrule-list [<module-name>]) 





CLIPS 命令 与 函数 概要 479 








返回 指定 模块 (如 果 没有 指定 < module-name > ， 则 为 当前 模块 ) 中 的 所 有 自 定义 规则 列表 。 


(get-incremental-reset) 


返回 增 量 重 置 开 关 的 当前 值 。 


{list-defrules [<module-name>}) 


列 出 指定 模块 中 的 自 定义 规则 (如 果 没 有 指定 <module-name> ， 则 为 当前 模块 )。 


(matches <defrule-name>) 


显示 与 指定 规则 模式 相 匹 配 的 事实 及 部 分 匹配 列表 。 


(ppdefrule <defrule-name>) 


显示 指定 自 定义 规则 的 文本 。 


(refresh <defrule-name>) 


刷新 指定 自 定义 规则 。 规 则 中 那些 已 触发 但 仍然 有 效 的 活动 被 放 人 议程 中 。 


(remove-break [<defrule-name>] ) 


删除 指定 规则 的 断 点 ， 如 果 没有 指定 规则 ， 则 删除 所 有 的 断 点 。 


(set-break <defrule-name>) 


为 指定 规则 设置 断 点 。 这 将 导致 在 该 规则 触发 前 停止 规则 执行 。 


(set-incremental-reset <boolean-expression>) 


设置 增 量 重 置 开关 。 


{show-breaks [<module-name>}) 


显示 指定 模块 中 设置 了 断 点 的 规则 (如 果 没 有 指定 < modulename> ， 则 为 当前 模块 )。 


{undefrule <defrule-name>) 


删除 指定 的 自 定义 规则 。 
自 定义 模板 


(deftemplate-module <deftemplate-name>) 


返回 指定 自 定义 模板 的 定义 所 在 的 模块 。 


(get-deftemplate-list [<module-name>]) 


返回 指定 模块 (如 果 没 有 指定 <module-name > ， 则 为 当前 模块 ) 中 的 所 有 自 定义 模板 列表 。 


(list-deftemplates [<module-name>] ) 


列 出 指定 模块 中 的 自 定义 模板 〈 如 果 没有 指定 < module-name> ， 则 为 当前 模块 )。 


(ppdeftemplate <deftemplate-name>) 


显示 指定 自 定义 模板 的 文本 。 


(undeftemplate <deftemplate-name>) 


删除 指定 的 自 定义 模板 。 
环境 命令 


(apropos <lexeme>) 


显示 CLIPS 环境 中 当前 已 定义 了 的 包含 指定 子 串 <lexeme> 的 所 有 符号 。 


(batch <file-name>} 


用 文件 <filename> 的 内 容 蔡 换 标准 输入 ， 从 而 允许 CLIPS 交互 式 命令 进行 批 处 理 。 若 执行 成 功 
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返回 TRUE， 和 否则 返回 FALSE, 

(batch* <file-name>) 

执行 文件 中 的 命令 ， 与 batch 命令 的 不 同 在 于 执行 了 指定 文件 中 的 所 有 命令 后 才 返 回 而 不 是 替换 
标准 输入 。 

(bload <file-name>) 

以 二 进 制 方式 调 人 文件 。 若 调用 成 功 返 回 TRUE， 否 则 返回 FALSE. 

(bsave <file-name>} 

以 二 进 制 方式 保存 到 文件 。 

{clear} 

清除 CLIPS 环境 中 的 所 有 结构 。 

(exit) 

退出 CLIPS 环境 。 

(get-auto-float-dividend) 

返回 自动 浮 点 除法 开关 的 当前 值 。 

(get-dynamic-constraint-checking) 

返回 动态 约束 检查 开关 的 当前 值 。 

(get-static-constraint-checking) 

返回 静态 约束 检查 开关 的 当前 值 。 

(load <file-name>) 

在 CLIPS 环境 中 调 人 文件 < file-name> 中 的 结构 ， 若 成 功 返 回 TRUE， 否 则 返回 FALSE. 
(load* <file-name>) 

在 CLIPS 环境 中 调 人 由 < file-name> 指 定 的 文件 中 的 结构 并 显示 有 用 的 消息 ， 若 成 功 返 回 TRUE, 
否则 返回 FALSE. 

(options) 


列 出 CLIPS 编译 器 标志 的 设置 。 


(reset) 

重新 设置 CLIPS 环境 。 

(save <file-name>) 

保存 CLIPS 环境 中 的 所 有 结构 到 由 < fle-name> 指 定 的 文件 中 。 

(set-auto-float-dividend <boolean-expression>) 

# < boolean-expression > 为 FALSE， 则 关闭 自动 浮 点 除法 开关 ， 否则 激活 自动 浮 点 除法 开关 。 然 
后 返回 旧 的 自动 浮 点 除法 开关 值 。 

(set-dynamic-constraint-checking <boolean-expression>) 

若 < boolean-expression > 为 FALSE， 则 关闭 动态 约束 检查 ， 否则 激活 动态 约束 检查 。 然 后 返回 旧 
的 约束 检查 值 。 

(set-static-constraint-checking <boolean-expression>) 

#5 < boolean-expression > 为 FALSE, 则 关闭 静态 约束 检查 ， 否 则 激活 静态 约束 检查 。 然 后 返回 旧 
的 约束 检查 值 。 

{system <lexeme-expression>*) 


把 所 有 参数 拼接 成 一 个 串 ， 然 后 把 它 当 作 一 个 命令 传送 给 操作 系统 执行 。 
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事实 


{assert <RHS-pattern>) 


增加 一 个 或 多 个 事实 到 事实 表 中 ， 并 返回 最 后 增加 事实 的 地 址 。 


(assert-string <string-expression>) 


将 串 转 换 成 事实 并 增加 到 事实 表 中 ， 返 回 新 增 事实 的 地 址 。 


(dependencies <fact-index-or-fact-address>) 


列 出 所 有 指定 事实 可 从 中 得 到 逻辑 支持 的 部 分 匹配 。 


(dependents <fact-index-or-fact-address>) 

列 出 所 有 可 得 到 指定 事实 逻辑 支持 的 事实 。 

(duplicate <fact-index-or-fact-address> <RHS-slot>*) 

声明 一 个 改变 了 一 个 或 多 个 槽 值 的 自 定义 模板 事实 的 复制 拷贝 。 


(facts [<module-name>] 
[<start-integer-expression> 
[<end-integer-expression> 
{<max-integer-expression>]]])} 


显示 事实 表 中 的 所 有 事实 。 如 果 指 定 了 < modulename> ， 则 显示 对 指定 模块 可 见 的 事实 ， 否则， 
显示 对 当前 模块 可 见 的 事实 。 事 实 表 中 索引 号 在 < start-integer-expression > 之 前 或 < end-integer-ex- 
pression 之 之 后 的 事实 不 显示 。 如 果 指 定 了 < maxr-integer-expression > , 则 大 于 该 值 的 事实 不 显示 。 


(fact-existp <fact-address-expression>) 


如 果 事 实 索 引 或 事实 地 址 参数 指定 的 事实 存在 ， 则 返回 TRUE, AR FALSE. 


(fact-index <fact-address-expression>) 


返回 和 事实 地 址 相关 联 的 事实 索引 。 


(fact-relation <fact-address-expression>) 


返回 和 事实 相关 联 的 自 定义 模板 (关系) 名 。 


(fact-slot-names <fact-address-expression>) 


返回 和 事实 相关 联 的 槽 名 。 


(fact-slot-value <fact-address-expression> 
<slot-name>) 


返回 指定 事实 的 指定 模 值 。 

(get-fact-duplication) 

返回 事实 复制 开关 的 当前 值 。 

(get-fact-list f<module-name>]) 

返回 指定 模块 〈 如 果 没 有 指定 < module name> ， 则 为 当前 模块 ) 的 所 有 事实 列表 。 
(lead-facts <file-name>) 

调 人 文件 <filename> 中 当前 模块 的 事实 。 若 成 功 返 回 TRUE, SURE FALSE. 
(modify <fact-index-or-fact-address> <RHS-slot>*)} 

REAL LARS PH —TRE MAE. 

(retract <fact-index-or-fact-address>+) 


从 事实 表 中 删除 一 个 或 多 个 事实 。 


(save-facts <file-name> 
[visible | local <deftemplate-names>*]) 
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保存 指定 的 事实 到 文件 <file-name> 中 ， 若 成 功 返回 TRUE， 否则 返回 FALSE. 


(set-fact-duplication <boolean-expression>) 


如 果 < boolean-expression > “4 FALSE， 则 人 允许 相同 的 事实 增加 到 事实 表 中 ， 否则 不 允许 添加 重复 
的 事实 到 事实 表 中 。 函 数 返回 事实 复制 开关 的 旧 值 。 


实例 


(any-instancep <instance-set-template> <query>) 


<instance-set-template> ::= 
(<instance-set-member-template>+) 
<instance-set-member-template ::= 
(<single-field-variable> <class-name-expression>+) 
<query> ::= <boolean-expression> 


如 果 有 实例 集 满足 指定 的 查询 则 返回 TRUE, FA FALSE. 


{class <object-expression>) 


返回 参数 所 表示 的 类 名 。 


(delayed-do-for-all-instances <instance-set-template> 
<query> <expression>*) 


首先 决定 所 有 满足 指定 查询 的 实例 集合 ， 然 后 为 前 面 每 个 实例 集合 计算 指定 表达 式 。 


(delete-instance) 


在 消息 处 理 程序 内 部 调用 时 删除 活动 实例 。 


(direct-slot-delete$ <mv-slot-name> 
<range-begin> <range-end>) 


删除 消息 处 理 程 序 内 活动 实例 的 多 字段 槽 值 中 指定 范围 的 字段 。 


(direct-slot-insert$ <mv-slot-name> <index> 
<expression>t+) 


插入 一 个 或 多 个 值 到 消息 处 理 程序 内 活动 实例 的 多 字段 村 值 中 。 


(direct-slot-replace$ <mv-slot-name> <range-begin> 
<range-end> <expression>+) 


替换 消息 处 理 程序 内 活动 实例 的 多 字段 槽 值 中 指定 范围 的 字段 。 


(do-for-instance <instance-set-template> <query> 
<expression>*) 


为 满足 指定 查询 的 第 一 个 实例 集合 计算 指定 表达 式 。 


(do-for-all-instances <instance-set-template> <query> 
<expression>*) 


为 满足 指定 查询 的 所 有 实例 集合 计算 指定 表达 式 。 


{dynamic-get <slot-name-expression>) 


返回 活动 实例 的 指定 槽 值 。 


(dynamic-put <slot-name-expression> <expression>* ) 


设置 指定 活动 实例 槽 的 值 。 


(find-instance <instance-set-template> <query>) 


返回 包含 满足 指定 查询 的 第 一 个 实例 集合 的 多 字段 值 。 


(find-all-instances <instance-set-template> <query>) 


返回 包含 满足 指定 查询 的 所 有 实例 集合 的 多 字段 值 。 


(init-slots) 
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实现 初始 消息 处 理 程序 附加 到 USER 类 。 这 个 函数 只 有 在 定义 了 初始 消息 处 理 程序 使 得 与 USER 
附加 的 另 一 个 消息 处 理 程序 不 会 被 调用 时 才 直 接 调 用 。 

{instance-address <instance-expression>) 

把 实例 转化 为 实例 地 址 。 


(instance-addressp <expression>) 

如 果 参 数 是 实例 地 址 ， 则 返回 TRUE, Bll, 38E FALSE. 
(instance-existp <instance-expression>} 

如 果 指 定 实例 存在 ， 则 返回 TRUE, Gill, 18E] FALSE. 
(instance-name <instance-expression>)} 


把 实例 地 址 转化 为 实例 名 。 


(instance-namep <expression>) 


如 果 参 数 是 实例 名 ， 则 返回 TRUE， 和 否则， 返回 FALSE. 


{instance-name-to-symboi <instance-name-expression>) 


把 实例 名 转化 为 符号 。 

(instancep <expression>) 

如 果 参 数 是 实例 名 或 实例 地 址 ， 则 返回 TRUE， 否则， 返回 FALSE. 
(instances [<module-name> [<class-name> [inherit]]]) 

如 果 参 数 是 实例 名 或 实例 地 址 ， 则 返回 TRUE， 否则 ,返回 FALSE. 
(load-instances <file-name>) 


从 指定 文件 中 调 人 实例 。 


(make-instance [<instance-name-expression>] 
of <class-name-expression> <slot-override>*) 


<slot-override> ::= (<slot-name-expression> 
<expression>) 

用 指定 槽 值 创建 并 初始 化 实例 。 

(ppinstance ) 


FETA BALES ERP, FTE HA i Se BBA 


(restore-instances <file-name>) 


从 指定 文件 中 调 人 实例 。 


(save-instances <file-name>) 


把 实例 保存 到 指定 文件 。 


(send <object-expression> <message-name-expression> 
<expression>*) 


用 指定 参数 发 送 消息 给 指定 对 象 。 


(slot-delete$ <instance-expression> <mv-slot-name> 
<range-begin> <range-end>) 


在 多 字段 槽 值 中 删除 指定 范围 的 字段 。 


(slot-insert$ <instance-expression> <mv-slot-name> 
<index> <expression>+) 


在 多 字段 槽 值 中 插 人 一 个 或 多 个 值 。 


(slot-replace$ <instance-expression> <mv-siot-name> 
<range-begin> <range-end> 
<expression>+) 
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eS Be ais EF 


(symbol-to-instance-name <symbol-expression>) 


把 符号 转化 为 实例 名 。 

(unmake-instance <instance-expression> | *) 

通过 发 送 删除 消息 来 删除 指定 实例 (如果 指 定 * ， 则 为 所 有 实例 )。 
MO 函数 


{close [<1ogical-name>]) 
关闭 与 逻辑 名 < logical-name > 相关 联 的 文件 (如 果 没 有 指定 ， 则 指 所 有 文件 )， 如 果 成 功 返 回 
TRUE， 否 则 返回 FALSE. 


(format <logical-name> <string-expression> 
<expression>*) 


Xt < expression > x 求 值 并 按照 < string-expression > 规定 的 格式 输出 到 具有 逻辑 名 < logical-name > 
的 文件 中 。 参 见 第 8. 12 节 的 格式 化 标志 细节 。 

(open <file-name> <logical-name> [<mode>]) 

按照 <mode> 所 指明 的 方式 (r，w，r+ 或 a) 打开 文件 <file-name > ， 并 赋予 一 个 逻辑 名 < logi- 
cal-name > ， 若 成 功 返回 TRUE, FURE FALSE. 

(printout <logical-name> <expression>*) 

对 < expression > * 求 值 并 不 加 格式 地 输出 到 具有 逻辑 名 < logical-name> 的 文件 中 。 

(read {<logical-name>]) 

从 具有 逻辑 名 < logical-name > 的 文件 中 读 取 一 个 字段 (如 果 无 参数 的 话 则 从 标准 输入 设备 中 输 
入 )， 若 成 功 则 返回 读 取 字段 ， 若 无 输入 则 返回 EOF. 

(readline [<logical-name>]) 

从 具有 逮 辑 和 名 <logicaLname> 的 文件 中 读 取 一 整 行 (如果 无 参数 的 话 则 从 标准 输入 设备 中 输入 )， 
若 成 功 则 返回 读 取 串 ， 若 无 输入 则 返回 EOF. 

(remove <file-name>) 

MEX E< file-name> - 


(rename <old-file-name> <new-file-name>) 


重 命名 文件 <old-file-name> 为 <new-fle-name>。 


AFAR 


(conserve-mem on | off) 


打开 或 关闭 保存 、 漂 亮 打 印 命令 对 信息 存储 区 的 使 用 。 
(mem-used) 


返回 CLIPS 从 操作 系统 所 请 求 到 的 内 存 字 节 数 。 


(mem-requests) 


返回 CLIPS 向 操作 系统 请 求 内 存 的 次 数 。 


(release-mem) 


把 CLIPS 占有 的 空余 内 存 还 给 操作 系统 。 返 回 值 为 归还 的 内 存 数 。 





CLIPS #44 BRE 485 





杂项 


(funcall <function-name-expression> <expression>*) 
MBB ET RBC, PRE RH. 

(gensym) 

返回 一 个 具有 形式 genX 的 序列 符号 ， 其 中 X 为 一 个 整数 。 


(gensym* ) 


返回 一 个 具有 形式 genX 的 序列 符号 ， 其 中 X 为 一 个 整数 。 与 gensym 不 同 ，gensym "产生 一 个 
CLIPS 环境 中 当前 不 存在 的 符号 。 


(get-function-restrictions <function-name-expression>) 


返回 与 CLIPS 或 用 户 自 定 义 函 数 关联 的 限制 字符 串 。 
(length <lexeme-or-multifield-expression>) 
返回 一 个 多 字段 值 的 字段 整数 个 数 ， 或 者 一 个 字符 串 或 符号 的 长 度 。 


(random [<start-integer-expression> 
<end-integer-expression>] ) 


返回 一 个 随机 整数 (如 有 参数 ， 则 其 值 介 于 指定 的 起 始 和 结尾 整数 值 之 间 ) 。 
(seed <integer-expression>) 
为 随机 函数 random 设置 种 子 值 。 
{setgen <integer-expression>) 
为 函数 gensym 和 gensym” 设置 序列 索引 。 
(sort <comparison-function-name> <expression>*) 
对 < expression > “指定 的 字段 列表 排序 ， 使 用 comparison 函数 决定 是 否 两 个 字段 需要 交换 。 
(time) 
返回 一 个 浮 点 数值 表示 从 系统 参考 时 间 起 所 经 过 的 秒 数 。 
(timer <expression>*) 
返回 求 值 一 串 表 达 式 所 花费 的 秒 数 。 
多 字段 


(create$ <expression>*) 
把 0 个 或 多 个 表达 式 拼接 在 一 起 形成 一 个 多 字段 值 。 
(deleteS <multifield-expression> 


<begin-integer-expression> 
<end-integer-expression>) 


从 < multifield-expression > FH Æ < begin-integer-expression > 到 < end-integer-expression > ) 之 间 的 
所 有 字段 并 返回 所 得 结果 。 

(delete-member$ <multifield-expression> <expression>+) 

删除 多 字段 值 中 的 指定 值 ， 并 返回 修改 后 的 多 字段 值 。 

(explode$ <string-expression>) 


根据 包含 于 串 中 的 字段 创建 一 个 多 字段 值 并 返回 。 


(first$ <multifield-expression>) 
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返回 < multifield-expression > 的 第 一 个 字段 。 
(implodes <multifield-expression>) 
返回 一 个 包含 多 字段 值 中 字段 的 串 。 


(insert$ <multifield-expression> 
<integer-expression> 
<single-or-multifield-expression>+) 


E< multifield-expression > 的 第 < integer-expression > 个 值 之 前 插入 所 有 的 < single-or-multifield-ex- 
pression > 。 

(lengths <multifield-expression>) 

以 多 字段 值 形式 返回 中 字段 的 个 数 。 


{member$ <single-field-expression> 
<multifield-expression>) 


返回 第 一 个 参数 在 第 二 个 参数 中 的 位 置 ， 如 果 第 一 个 参数 中 不 包含 在 第 二 个 参数 中 ， 则 返回 
FALSE, 


{nth$ <integer-expression> <multifield-expression>) 


返回 < multifield-expression > 中 的 第 < integer-expression> 个 字段 。 

(replace$ <multifield-expression> 
<begin-integer-expression> 
<end-integer-expression> 
<single-or-multifield-expression>+) 


把 < multifield-expression > 中 从 < begin-integer-expression > 到 < end-integer-expression > 之 间 的 字段 
替换 为 <single-or-multifield-expression > 并 返回 结果 。 


(replace-member$ <multifield-expression> 
<substitute-expression> 
<search -expression>+) 


替换 包含 在 多 字段 值 内 的 指定 值 并 返回 修改 后 的 多 字段 值 。 


(rest$ <multifield-expression>) 


返回 一 个 去 掉 < mnultifield-expression> 中 第 一 个 字段 后 的 多 字段 值 。 


{subseq$ <multifield~expression> 

<begin-integer-expression> 

<end-integer-expression>) 
M< multifield-expression > 4 fh IX < begin-integer-expression > 到 < end-integer-expression >) 之 间 的 
字段 形成 一 个 多 字段 值 并 返回 。 


(subsetp <expression>) 


如 果 第 一 个 参数 是 第 二 个 参数 的 一 个 子 集 ， 则 返回 TRUE， 否 则 返回 FALSE, 
谓词 函数 
(and <expression>+) 


如 果 每 个 参数 均 为 真 ， 返 回 TRUE， 否 则 返回 FALSE. 


(eq <expression> <expression>+) 


如 果 第 一 个 参数 与 其 余 参数 的 类 型 和 值 都 相等 ， 则 返回 TRUE， 否 则 返回 FALSE, 


(evenp <expression>) 


如 果 < expression> 之 值 为 偶数 ， 则 返回 TRUE， 否 则 返回 FALSE, 


(floatp <expression>) 
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如 果 < expression> 之 值 为 浮 点 数 ， 则 返回 TRUE， 否 则 返回 FALSE. 
(integerp <expression>) 


如 果 < expression> 之 值 为 整数 ， 则 返回 TRUE， 否则 返回 FALSE, 


(lexemep <expression>) 


如 果 < expression > 为 串 或 符号 ， 则 返回 TRUE, ik le] FALSE. 


{multifieldp <expression>) 


如 果 < expression> 是 一 个 多 字段 值 ， 则 返回 TRUE， 否 则 返回 FALSE, 


(neq <expression> <expression>+) 


如 果 第 一 个 参数 与 其 余 参 数 的 类 型 和 值 都 不 相等 ， 则 返回 TRUE， 否 则 返回 FALSE, 


(not <expression>) 


如 果 < expression> 之 值 为 FALSE， 则 返回 TRUE， 否则 返回 FALSE, 


(numberp <expression>) 


如 果 < expression> 之 值 为 浮 点 数 或 整数 ， 则 返回 TRUE， 否 则 返回 FALSE, 


{oddp <expression>) 


aR < expression > 之 值 为 奇数 ， 则 返回 TRUE， 否则 返回 FALSE, 


(or <expression>+) 


如 果 任 一 参数 为 TRUE， 返回 TRUE， 否 则 返回 FALSE. 


(pointerp <expression>) 


如 果 是 外 部 地 址 则 返回 TRUE, AMR Gl FALSE. 


{stringp <expression>) 


如 果 <expression > 为 串 ， 则 返回 TRUE， 否 则 返回 FALSE. 


(symbolp <expression>) 


WR < expression > 为 符号 ， 则 返回 TRUE， 否 则 返回 FALSE. 


{= <numeric-expression> <numeric-expression>+) 


如 果 第 一 个 参数 与 其 余 参数 的 数值 相等 ， 则 返回 TRUE， 否 则 返回 FALSE. 


(<> <numeric-expression> <numeric-~expression>+) 


如 果 第 一 个 参数 与 其 余 参 数 的 数值 不 相等 ， 则 返回 TRUE， 否 则 返回 FALSE. 


(> <numeric-expression> <numeric-expression>+) 


如 果 所 有 参数 满足 : Bn-1 个 参数 大 于 第 n 个 参数 ， 则 返回 TRUE， 否则 返回 FALSE. 


(>= <numeric-expression> <numeric-expression>+) 


如 果 所 有 参数 满足 ; 第 n- 1 个 参数 大 于 或 等 于 第 n 个 参数 ， 则 返回 TRUE， 否 则 返回 FALSE. 


(< <numeric-expression> <numeric-expression>+) 


如 果 所 有 参数 满足 : 第 n- 1 个 参数 小 于 第 n 个 参数 ， 则 返回 TRUE， 否则 返回 FALSE. 


(<= <numeric-expression> <numeric-expression>+) 


如 果 所 有 参数 满足 ; 第 n- 1 个 参数 小 于 或 等 于 第 n 个 参数 ， 则 返回 TRUE, AGRE FALSE. 
过 程 


(bind <variable> <value>) 


约束 变量 为 指定 值 。 


(break) 
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终止 直接 包含 它 的 while, loop-for-count, progn $ , do-for-instance, do-for-all-instances 或 delayed-do- 
for-all-instances 困 数 的 执行 。 


(if <predicate-expression> then <expression>+ 
[else <expression>+]) 


如 果 < predicate-expression > 为 FALSE， 则 对 else 后 面 的 表达 式 求 值 ， 否 则 对 then 后 面 的 表达 式 求 
值 。 


(loop-for-count <range-spec> [do] <expression>*) 
<range-spec> ::= <end-index> | 
(<loop-variable> <end-index>) | 
(<loop-variable> <start-index> 
<end-index>) 


Xt < expression > * KI < range-spec> HEM KR, WA <start-index> RAL, WRAA1. MR 
<startindex> 大 于 <end-index> ， 那 么 循环 体 不 会 被 执行 。 如 果 指 定 了 < loop-variable> ， 则 存放 
当前 所 迭代 的 次 数 。 


(progn <expression>*} 


求 值 所 有 参数 ， 返 回 最 后 参数 的 求 值 结 果 。 


(progn$ <list-spec> <expression>*) 

<list-spec> ::= <multifield-expression> | 
(<list-variable> 
<multifield-expression>) 


为 每 个 包含 在 <listspec> 中 的 字段 计算 < expression >*, WRI T <list-variable> ， 则 存放 当前 
选 代 的 字段 值 。 而 且 ， 当 前 适 代 的 整数 索引 值 存 放 在 变量 < listvariable>-index 中 。 


(return [<expression>]) 


终止 正在 执行 的 自 定义 函数 、 类 属 函数 方法 、 消 息 处 理 程序 或 自 定义 规则 的 RHS。 如 果 没 有 参 
数 ， 则 没有 返回 值 。 但 如 果 包 含 参 数 ， 则 其 求 值 结果 将 作为 自 定义 函数 、 方 法 、 消 息 处 理 程序 的 
返回 值 。 


(switch <test-expression> <case~statement>* 
[<default-statement>) ) 


<case-statement> ::= 
(case <comparison-expression> then <expression>*) 
<default-statement> ::= (default <expression>*) 


计算 < test-expression > 并 按 次 序 与 每 个 case 的 < comparison-expression > 进行 比较 。 如 果 匹 配 ， 求 
值 这 个 case 的 < expression> “并 返回 。 如 果 都 不 匹配 ， 并 且 有 < default-statement > ， 则 求 值 < de- 
fault-statement > F AY < expression >* 并 返回 。 


(while <predicate-expression> [do] <expression>*) 


不 停 对 < expression > “ 求 值 直到 < predicate-expression > 为 FALSE. 
profile 函数 


(get-profile~percent-threshold ) 


返回 profile 百分比 靖 值 的 当前 值 。 


(profile constructs | user-functions | off) 


开启 /关闭 结构 和 用 户 函 数 的 profile。 


(profile-info) 


显示 当前 从 结构 或 用 户 函 数 收集 到 的 profile 信息 。 


(profile-reset) 
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重 置 当前 从 结构 或 用 户 函 数 收集 到 的 profile 信息 。 


(set-profile-percent-threshold 
<number-in-range-of-0-to-100>) 


设置 由 profile-info 命令 显示 的 用 于 执行 结构 或 用 户 函 数 的 最 小 时 间 分 值 。 
序列 扩展 


(expand$ <multifield-expression>*) 


当 在 函数 调用 内 部 使 用 时 ， 扩 展 其 参数 作为 函数 的 独立 参数 。$ 操作 符 是 expand $ 函数 调用 的 简 
写 形式 。 

(get-sequence-operator-recognition) 

返回 序列 操作 符 识别 开关 的 当前 值 。 


(aet-sequence-operator-recognition 
<boolean-expression>) 


设置 序列 操作 符 识别 开关 。 
PHR 


(build <string-or-symbol-expression>) 

求 值 一 个 串 就 好 像 它 是 在 命令 行 中 输入 的 一 样 。 只 允许 求 值 结 构 。 

(check-syntax <string-expression>) 

对 一 个 结构 或 函数 调用 的 文本 表示 进行 语法 和 语义 错误 检查 。 如 果 没 有 错误 或 警告 则 返回 
FALSE. 

(eval <string-or-symbol-expression>) 

求 值 一 个 串 就 好 像 它 是 在 命令 行 中 输入 的 一 样 。 只 允许 求 值 函数 。 

{lowcase <string-or-symbol-expression>) 

将 参数 中 的 所 有 大 写字 母 换 成 小 写字 母 。 

(str-cat <expression>*) 


将 所 有 参数 拼接 成 一 个 串 。 


(str-compare <string-or-symbol-expression> 
<string-or-symbol-expression>) 


如 果 两 个 参数 相等 ， 则 返回 0， 如 第 一 个 参数 的 词典 序 比 第 二 个 参数 大 则 返回 正 整 数 ， 如 小 则 返 
回 负 整 数 。 

(str-index <lexeme-expression> <lexeme-expression>) 

如 果 第 一 个 参数 是 第 二 个 参数 的 一 个 子 串 ， 则 返回 其 在 第 二 个 参数 中 的 位 置 ， 否 则 返回 FALSE, 
(str-length <string-or-symbol-expression>) 

返回 串 的 长 度 。 

(string-to-field <string-or-symbol-expression>) 

转化 字符 串 为 字段 。 

(sub-string <begin-integer-expression> 


<end-integer-expression> 
<string-expression>) 


返回 < string-expression > "P M < begin-integer-expression > 到 < end-integer-expression > Z [i] HIF 5 


(sym-cat <expression>*} 
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把 所 有 参数 拼接 成 一 个 符号 。 


(upcase <string-or-symbol-expression>) 


将 参数 中 所 有 的 小 写字 母 换 成 大 写字 母 。 
文本 处 理 


(fetch <file-name>) 


把 文件 调 入 到 内 部 查询 表 。 


(print-region <logical-name> <lookup-file> 
<topic-field>*) 


在 特定 的 已 经 调 人 到 查询 表 的 文件 中 查找 指定 的 条 目 ， 并 打印 条 目 内 容 到 指定 逻辑 名 的 文件 中 。 


(toss <file-name>) 


从 内 部 查询 表 中 印 载 指定 的 文件 。 
= AAR 


(acos <numeric-expression>) 


返回 参数 的 反 余弦 值 (ME) 


(acosh <numeric-expression>) 


返回 参数 的 双 曲 反 余 弦 值 OE). 


{acot <numeric-expression>) 


返回 参数 的 反 余 切 值 GUE). 


{acoth <numeric-expression>) 


返回 参数 的 双 曲 反 余 切 值 WE). 


(acsc <numeric-expression>) 


返回 参数 的 反 余 割 值 (ME). 


{acsch <numeric-expression>) 


返回 参数 的 双 曲 反 余 割 值 〈 弧 度 )。 


{asec <numeric-expression>) 


返回 参数 的 反正 割 值 (弧度 )。 


(asech <numeric-expression>) 


BAB Mi IER ME). 


(asin <numeric-expression>) 


返回 参数 的 反正 弦 值 (弧度 )。 


(asinh <numeric-expression>} 


返回 参数 的 双 曲 反正 弦 值 (弧度 )。 


{atan <numeric~expression>) 


返回 参数 的 反正 切 值 (WME). 


(atanh <numeric-expression>) 


返回 参数 的 双 曲 反正 切 值 (WME). 


(cos <numeric-expression>) 
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返回 参数 的 余弦 值 〈 弧 度 )。 


(cosh <numeric-expression>) 


返回 参数 的 双 曲 余弦 值 MEE). 


(cot <numeric-expression>) 


返回 参数 的 余 切 值 ME). 


(coth <numeric-expression>) 


返回 参数 的 双 曲 余 切 值 (弧度 )。 


(csc <numeric-expression>) 


返回 参数 的 余 割 值 ME). 


{csch <numeric-expression>) 


BRASMH MHRA GE). 


(sec <numeric-expression>) 


BAB RHA GME). 


(sech <numeric-expression>) 


返回 参数 的 双 曲 正 割 值 〈 弧 度 )。 


(sin <numeric-expression>) 


返回 参数 的 正弦 值 ME). 


(sinh <numeric-expression>) 


返回 参数 的 双 曲 正弦 值 〈 弧 度 )。 


{tan <numeric-expression>) 


返回 参数 的 正切 值 GME). 


(tanh <numeric-expression>) 


返回 参数 的 双 曲 正切 值 ME). 





附录 F CLIPS BNF 范式 


CLIPS 程序 


il 


<CLIPS-program> 


<construct> Iis 


自 定 义 事实 结构 


<deffacts-construct> 


自 定义 模板 结构 


<deftemplate-constru 


<slot-definition> 
:= <single-slot- 
<multislot-de 


<single-slot-definit 
<multislot-definitio 


<template-attribute> 


<default-attribute> 
:= (default ?DER 


<construct>* 


<deffacts-construct> | 
<deftemplate-construct> | 
<defglobal-construct> | 
<defrule-construct> | 
<deffunction-construct> | 
<defgeneric-construct> | 
<defmethod-construct> | 
<defclass-construct> | 
<definstance-construct> | 
<defmessage-handler-construct> 
<defmodule-construct> 


:= (deffacts <name> [<comment>] 
<RHS-pattern>*) 


ct> ::= (deftemplate <name> 
[<comment> ] 
<slot-definition>*) 


definition> | 
finition> 


ion> ::= (slot <name> 
<slot-attribute>*) 


(multislot <name> 
<template-attribute>*) 


n> 


tt 


<default-attribute> | 
<constraint-attribute> 


IVE | ?NONE | <expression>*) | 


(default-dynamic <expression>*) 


事实 规范 


<RHS-pattern> 


:= <ordered-RHS-pattern> | 
<template-RHS-pattern> 


<ordered-RHS-pattern> : := (<symbol> <RHS-field>+) 

<template-RHS-pattern> ::= (<deftemplate-name> 
<RHS-slot>*) 

<RHS-slot> ::= <single-field-RHS-slot> | 


<single-field-RHS-sl 
<multifield-RHS-slot 
<RHS-field> 


<multifield-RHS-slot> 


ot> ::= {<slot-name> <RHS-field>) 
> ::= (<slot-name> <RHS-field>*) 
::= <variable> | 
<constant> | 


<function-call> 
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自 定义 规则 结构 


<defrule-construct> (defrule <name> {<comment>] 
[<declaration>] 
<conditional-element>* 
=> 


<expression>*) 


<declaration> 


{declare <rule~-property=>+) 


<rule-property> 
::= (salience <integer-expression>) | 
{auto-focus <boolean-symbol>) 


<boolean-symbol> ::= TRUE | FALSE 
<conditional-element> ::= <pattern-CE> | 
<assigned-pattern-CE> | 
<not-CE> | 
<and-CE> | 
<or-CE> | 
<logical-CE> | 
<test-CE> | 


<exists-CE> | 
<forall-CE> 


<pattern-CE> : := <ordered-pattern-CE> | 
<template-pattern-CE> | 
<object-pattern-CBE) 


<assigned-pattern-CE> 
:= <single-field-variable> <- <pattern-CE> 








<not-CE> ::= (not <conditional-~element>) 
<and-CE> (and <conditional-element>+) 
<or-CE> (or <conditional-element>+) 
<logical-CE> ::= (logical <conditional-element>+) 
<test-CE> ::= (test <function-call>) 
<exists-CE> :t= (exists <conditional-element>+) 
<forall-CE> ::= (forall <conditional-element> 
<conditional-element>+) 
<ordered-pattern-CE> ::= (<symbol> <constraint>+) 


<template-pattern-CE> 
:= (<deftemplate-name <LHS-slot>*) 


<object-pattern-CE> 
: := (object <attribute-constraint>*) 


<attribute-constraint> ::= (is-a <constraint>) | 
(mame <constraint>) | 
(<slot-name> <constraint>*) 


<LHS-slot> ::= <single-field-LHS-slot> | 
<multifield~LHS-slot> 
<single-field-LHS-slot> ::= (<slot-name> <constraint>) 
<multifield-LHS-slot> ::= (<slot-name> <constraint>*) 
<constraint> ::= ? | $? | <connected-constraint> 


<connected-constraint> 
::= <single-constraint> | 
<single-constraint> & <connected-constraint> | 
<single-constraint> | <connected-constraint> 


<single-constraint> : := <term> | ~<term> 


<term> ::= <constant> | 
<single-field-variable> | 
«<multifield-variable> | 
:<function-call> | 
=<function-call> 





494 


HRF 





自 定义 全 局 变量 结构 


<defglobal-construct> 
:= {defglobal [<defmodule-name>] 
<global-assignment>*) 


<global-assignment> 
:= <global-variable> = <expression> 


<global-variable> := ?*<symbol>* 


自 定义 函数 结构 


<deffunction-construct> 
::= (deffunction <name> [<comment>] 
(<regular-parameter>* [<wildcard-parameter>] ) 


<expression>*) 
<regular-parameter> ::= <single-field-variable> 
<wildcard-parameter> ::= <multifield-variable> 


自 定义 类 属 结构 


<defgeneric-construct> 
::= (defgeneric <name> [<comment>]) 


自 定义 方法 结构 


<defmethod-construct> 
:= (defmethod <name> [<index>] [<comment>] 
(<parameter~-restriction>* 
[<wildcard-parameter-restriction>]) 
<expression>*) 


<parameter~-restriction> 
:= <single-field-variable> | 
(<single-field-variable> <type>* [<query>]) 


<wildcard-parameter-restriction> 
::= <multifield-variable> | 
(<multifield-variable> <type>* [<query>]) 


<type> = <class-name> 
<query> = <global-variable> | <function-call> 
Yva 
自 定 义 类 结构 

<defclass-construct> ::= (defclass <name> [<comment>] 
(is-a <superclass-name>+) 
{<role>] 
{<pattern-match-role>] 
<slot>* 
<handler-documentation>*) 

<role> ::= (role concrete | abstract) 


<pattern-match-role> 
:= (pattern-match reactive | non-reactive) 


<slot> ::= (slot <name> <facet>*) | 
(single-slot <name> <facet>*} | 
(multislot <name> <facet>*) 


<facet> 


<default-facet> | <storage-facet> | 
<access-facet> | <propagation-facet> | 
<source-facet> | <pattern-match-facet> | 
<visibility-facet> | 
<create-accessor-facet> | 
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<override-message-facet> | 
<constraint-attribute> 


<default-facet> 
::= (default ?DERIVE | ?NONE | <expression>*) | 
(default-dynamic <expression>*) 


<storage-facet> 


(storage local | shared) 


<access-facet> ::= (access read-write | 
read-only | 
initialize-only) 


<propagation-facet> 
::= (propagation inherit | no-inherit) 


<source-facet> ::= (source exclusive | composite) 


<pattern-match-facet> 
::= (pattern-match reactive | non-reactive) 


<visibility-facet> ::= (visibility private | public) 


<create-accessor-facet> 
::= (create-accessor ?NONE | read | 
write | read-write) 


<override-message-facet> 
::= (override-message ?DEFAULT | <message-name>) 


<handler-documentation> 
::= (message-handler <name> [<handler-type>]) 


<handler-type> ::= primary | around | before | after 


自 定义 消息 处 理 程序 结构 


<defmessage-handler-construct> 
::= (defmessage-handler <class-name> 
<message-name> [<handler-type>] [<comment>] 
{<parameter>* [{<wildcard-parameter>] ) 
<action>*) 


<handler-type> around | before | primary | after 


<parameter> = <single-field-variable> 
<wildcard-parameter> ::= <multifield-variable> 
4 
自 定 义 实例 结构 

<definstances-construct> ::= (definstances <name> 
{active] [<comment>] 
<instance-template>*) 

<instance-template> ::= (<instance-definition>) 


<instance-definition> 
: := <instance-name-expression> of 
<class-name-expression> <slot-override>* 


<slot-override> 
::= (<slot-name-expression> <expression>*) 


自 定义 模板 结构 


<defmodule-construct> 
::= (defmodule <name> {<comment>] ) 
<port-specification>*) 


<port-specification> 
: := (export <port-item>) | 
(import <module-name> <port-item>) 
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<port-item> ::= PALL | 
?NONE | 
<port-construct> ?ALL | 
<port-construct> ?NONE | 
<port-construct> <construct-name>+ 


<port-construct> ::= deftemplate | defclass | 
defglobal | deffunction | 
defgeneric 


约束 属性 


<constraint-attribute> 
: := <type-attribute> | 
<allowed-constant-attribute> | 
<range-attribute> | 
<cardinality-attribute> 


<type-attribute> (type <type-specification>) 


<type-specification> ::= <allowed-type>+ | ?VARIABLE 


SYMBOL | STRING | LEXEME | 
INTEGER | FLOAT | NUMBER | 
INSTANCE-NAME | 
INSTANCE-ADDRESS | 

INSTANCE | EXTERNAL-ADDRESS | 
FACT-ADDRESS 


H 


<allowed-type> 


<allowed-constant-attribute> 

:= (allowed-symbols <symbol-list>) | 
(allowed-strings <string-list>) | 
(allowed-lexemes <lexeme~list> | 
(allowed-integers <integer-list>) | 
(allowed-floats <float-list>) | 
(allowed-numbers <number-list>) | 
(allowed-instance-names <instance-list>) j 
{allowed-values <value-list>) 


<symbol-list> :;= <symbol>+ ?VARIABLE 
<string-list> ::= <String>+ | ?VARIABLE 
<lexeme-list> ::= <lexeme>+ ?VARIABLE 


<integer-list> <integer>+ | ?VARIABLE 





<float-list> ::= <float>+ | ?VARIABLE 
<number-list> ::= <number>+ ? VARIABLE 
<instance-name-list> ::= <instance-name>+ | ?VARIABLE 
<value-list> : := <constant>+ | ?VARIABLE 


(range <range~specification> 
<range~specification>) 


<range-attribute> 


<range-specification> ::= <number> | ?VARIABLE 


<cardinality-attribute> 
::= (cardinality <cardinality-specification> 
<cardinality-specification>) 


<cardinality-specification> ::= <integer> | ?VARIABLE 


变量 与 表达 式 


<single~field-variable> 


?<variable-symbol> 


<multifield-variable> ::= $?<variable-symbol> 
<global~variable> : := ?*<symbol>* 
<variable> ::= <single-field-variable> | 


<multifield-variable> | 
<global-variable> 
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<function-call> 
::= (<function-name> <expression>*) | 
(<special-function-name> 
<special-function-arguments>) 


<special-function-name> 
:= The name of a function such as assert or 
make-instance that does not parse its 
arguments in the default manner that standard 
functions use. 


<special-function-arguments> 

: := Argument parsing for special functions varies. 
Refer to the documentation of each special 
function for its valid syntax. For example, 
in the function call (assert (value 3)), the 
argument (value 3} is not a call to the value 
function with an argument of 3, it is the 
fact to be asserted. 


<expression> : := <constant> | 
<variable> | 
<function-call> 


数据 类 型 


<symbol> ::= 第 7.4 节 中 所 规定 的 合法 符号 
<string> ::= 第 7.4 节 中 所 规定 的 合法 字符 囊 
<float> ”::= 第 7.4 节 中 所 规定 的 合法 浮 点 数 
<integer> ::= 第 7.4 节 中 所 规定 的 合法 整数 
<instancename> ::= 第 7.4 节 中 所 规定 的 合法 实例 名 


<number> ::=<float>|<integer> 

<lexeme> ::=<symbol>|<string> 

<constant > :: = <number> |< lexeme> 

<comment > :: = <string> 

<variable-symbol >: : = 一 个 以 字母 开头 的 < symbol > 

<functiomname> :: = <symbol> 

<name> 2: = <symbol> 

<...-nane> :: = 一 个 Csymbol>, 其 中 省 略 号 表示 这 个 符号 代表 什么 , 例如 , < deftemplate-name > 是 一 个 表示 


自 定义 模板 的 名 字符 号 。 





附录 G 软件 资源 


本 附录 的 主要 目的 是 为 本 书 每 一 章 讨论 的 论题 提供 当前 的 网 站 资源 。 通 过 布置 学 生 调 查 软 件 并 准 
备课 堂 报告 和 演示 ， 这 些 资源 也 能 用 于 课堂 上 以 丰富 教材 的 内 容 。 传 统 的 课程 教学 中 使 用 教材 ， 学 生 
也 可 以 通过 自己 学 习 这 些 知 识 来 获得 额外 收获 。 

许多 商业 软件 产品 可 以 下 载 试用 版 本 并 带 有 例子 演示 产品 的 功能 。 最 好 让 学 生 构 造 原始 例子 然后 
比较 结果 。 例 如 ， 比 较 第 1 章 中 讨论 的 旅行 售 货 者 问题 的 求解 效率 ， 使 用 数据 结构 课程 中 的 标准 贪心 
算法 、 人 工 神 经 网 络 (并 决定 哪 种 类 型 最 好 )、 遗 传 算法 、 蚁 群 进化 算法 和 其 他 附录 中 所 列 出 的 方法 。 

特别 的 ， 比 较 人 工 智能 算法 与 标准 算法 在 问题 规模 从 几 个 城市 扩展 到 几 百 个 城市 将 会 非常 有 趣 。 
把 例子 和 真实 世界 联系 起 来 ， 例 如 西南 航空 公司 的 航线 ， 使 得 这 种 比较 更 有 意义 。 可 以 很 容易 地 从 网 
上 下 载 西南 航空 公司 的 所 有 航线 城市 及 其 经 纬度 作为 数据 集 。 


工作 


除了 许多 一 般 的 工作 搜索 引擎 ， 有 很 多 职业 网 站 专门 为 具有 人 工 智 能 和 专家 系统 计算 机 背景 的 人 
们 提供 在 防卫 、 医 疗 、 商 业 、 工 业 和 视频 游戏 ， 这 是 今天 计算 机 的 5 个 最 大 增长 领域 的 工作 机 会 。 这 
些 工作 用 到 了 本 书 中 所 讨论 的 很 多 主题 。 下 载 各 种 演示 软件 和 各 章 的 资源 例子 可 以 得 到 更 多 的 经 验 。 

。 数据 分 析 者 (第 1 一 12 章 ) 

。 系统 设计 者 〈 第 1 一 12 章 ) 

。 开发 者 (第 1~12 章 ) 
知识 领域 专家 (你 学 习 本 书 不 一 定 能 成 为 知识 领域 专家 ， 但 你 可 以 成 为 一 个 知识 工程 师 ， 特 别 
地 ,本 书 第 6 章 给 出 了 面试 知识 领域 工程 师 的 一 些 实践 知识 ， 它 们 也 是 知识 工程 师 的 基本 
任务 ) 
搜索 技术 (第 1、2 章 ) 
基于 规则 的 系统 (有限 状态 机 ， 决 策 树 ， 产 生 式 系 统 ) (第 1~3、 第 6~12 章 ) 
博弈 理论 与 博弈 树 (有 限 状 态 机 ， 决 策 树 的 另 一 种 说 法 , 第 1 章 ) 

人 工 生命 与 群 技术 (第 1 章 ) 
规划 技术 (第 2 章 ) 

模糊 逻辑 (第 4、5 章 ) 

人 工 神 经 网 络 、 遗 传 算法 、 信 念 网 (第 1、4 章 ) 

以 下 是 一 些 提供 工作 机 会 的 链接 。 在 在 线 杂 志 例 如 PCAL com 或 下 面 列 表 中 其 他 杂志 所 登 出 的 公 
司 主页 上 还 可 以 找到 其 他 的 机 会 。 杂 志 期 刊 通常 会 在 最 后 列 出 工作 ， 并 都 可 以 从 网 上 得 到 。 学 校 图 书 
馆 具有 这 些 杂 志 期 刊 的 电子 版 本 ， 你 可 以 免费 地 从 网 上 获取 。 工 作 机 会 经 常 发 布 在 下 面 列 出 的 新 闻 列 
表 中 。 如 果 可 能 ， 可 以 进行 一 个 有 趣 的 项 目 ， 开 发 一 个 人 工 智 能 Agent， 自 动 搜索 发 布 的 工作 机 会 ， 向 
用 户 返 回报 告 。 

需要 提醒 你 ， 如 果 你 发 布 或 送出 你 的 简历 ， 小 心 不 要 加 入 任何 私人 信息 ， 例 如 社会 安全 保障 号 码 
等 。 这 些 都 可 能 导致 身份 被 盗窃 。 这 是 越 来 越 严重 的 问题 。 事 实 上 ， 无 论 工 作 机 会 多 么 诱 人 ， 都 不 要 
把 可 能 用 于 身份 盗窃 的 私人 信息 放 在 电子 邮件 中 。 

如 果 你 没有 符合 所 有 的 条 件 也 不 用 担心 。 智 慧 第 五 法 则 表明 如 果 你 是 惟一 一 个 能 够 完成 旅程 的 人 ， 
那么 你 就 是 赢家 。 这 意味 着 你 只 需要 符合 最 主要 的 要 求 ， 并 愿意 接受 公司 能 提供 的 最 高 额 薪 水 。 当 一 
个 公司 需要 具有 10 年 20 种 不 同 语言 工作 经 验 的 人 ， 他 们 不 一 定 能 负担 得 起 这 些 人 所 要 求 的 薪水 ， 那 
么 你 可 能 就 是 最 好 的 选择 。 找 工作 就 像 找 伴侣 。 你 马上 或 稍 后 能 发 现 你 娶 的 最 好 的 人 的 缺点 。 
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工作 链接 


http://www.aaai.org/Magazine/Jobs 

http://www.mary-margaret.com/ 

http://www.blizzard.com/jobopp/ 

http://www.aktor-kt.com/jobs.htm 

http://www.cdacindia.com/html/aai/aaidx.asp 

http://www. |plizard.com/lounge/jobs_programmer.htm 

http://corporate.infogrames.com/corp_hrmain.php?action=jobdetails& jobID=2 1 8&1locationID=7 

http://www.insomniacgames.com/html/about/jobs.html 

http://www.alifemedical.com/careers.html 

http://www.hirehealth.com/ci/servict/com.ci jobseeker. JobDetails:jsessionid=79FDF0992C80EB 
299B6B5778CBB6EB 1 D?JOB_ID=48179 

http://www.shrinershq.org/cgi-bin/classifieds/classifieds.cgi 

http://www.genesciences.com/DNA jobsNews/12June04.htm 

hitp://www.business.com/search/rslt_default.asp?query=medical+field&bdct=&bdcf=&vt=all&ty 
pe=jobs&search=Next+Search 

http://www.aegiss.com/html/jobs.huml 

hitp://www.gamedev.net/directory/careers/ 

http://www.capcom.com/jobs/job.xpmil 2jobid=4000 16 

http://www.gamerecruiter.com/ 

http://www.3drealms.com/gethired.html 


在 线 百 科 全 书 


在 线 百 科 全 书 罗 列 了 术语 的 简单 解释 ， 其 中 有 一 些 还 附加 了 额外 的 资源 链接 和 例子 。 建 议 学 生 应 
该 从 本 书 内 容 中 找 出 这 些 术语 的 详细 解释 和 例子 。 

Wikipedia: 一 个 极 佳 的 大 型 内 容 开放 的 百科 全 书 ， 具 有 多 个 语言 的 版 本 ， 提供 了 许多 术语 的 清楚 
解释 ， 并 附 有 更 进一步 阅读 的 链接 。http: //en .wikipedia.org/wiki/Main _ Page 

Webopedia. 一 个 很 好 的 通用 在 线 计算 机 科学 百科 全 书 : http: //www.webopedia.com/ 

Platonic Realms. 一 个 有 利于 学 生 的 在 线 数学 百科 全 书 并 带 有 其 他 资源 。 高 度 推荐 : hip: // 
www. mathacademy .com/pr/ 

数学 百科 ， 来 自 Wolfram, Mathematica 的 制作 者 : http: //mathworld. wolfram. com/ 

因特网 哲学 百科 。 很 好 的 在 线 哲 学 和 逻辑 百科 ， 主 要 是 第 2~ 5 章 的 参考 资料 : http: // 
www. iep. utm. edu/ 

哲学 和 逻辑 的 一 般 定 义 和 解 释 。 见 在 线 百 科 : http: //plato. stanford. edu/ 

令 人 感 兴趣 的 在 线 演讲 。 包 括 了 许多 著名 的 演讲 者 通过 微软 多 个 大 学 研究 实验 室 发 表 的 各 种 主题 
的 演讲 : http: //murl. microsoft.com/ContentMap. asp 

Google. 对 于 失眠 的 人 来 说 ,最 好 阅读 google 宣称 的 最 丰富 的 逻辑 资源 : http: //www. uni- 
bonn. de/logic world. html 


新 闻 组 


新 闻 组 有 很 多 发 布 内 容 ， 常 见 问题 、 资 源 、 会 议 以 及 关于 人 工 智能 、 专 家 系统 和 其 他 上 千 个 主题 
的 新 闻 。 新 闻 组 和 杂志 也 会 列 出 一 些 特殊 领域 的 工作 机 会 ， 例 如 专家 系统 和 人 工 智能 。 能 够 寻找 专家 
系统 工作 的 网 页 是 : http: //mailgate. supereva. it/comp/comp. ai.shells/, 在 它 的 父 新 闻 组 可 以 找到 人 工 
智能 的 工作 机 会 : http: //mailgate. supereva. it/comp/comp. ai/. 如 果 你 想 在 其 中 注册 ， 你 需要 懂得 更 多 
AA. 

通常 关于 专家 系统 ， 例 如 CLIPS 的 问题 如 果 发 表 在 comp.ai-shells 新 闻 组 或 者 其 他 列 在 附录 D 中 
的 CLIPS 官方 网 站 中 可 以 得 到 回答 。 有 3 种 方法 去 联络 人 工 智能 新 闻 组 。 第 一 种 方法 是 从 你 的 网 络 提 
供 商 得 到 你 的 新 闻 组 服务 器 地 址 。 在 正 浏 览 器 中 你 可 以 选择 工具 菜单 ， 然 后 是 邮件 和 新 闻 子 菜单 ， 然 
后 选 底部 的 阅读 邮件 子 菜单 。 就 会 打开 一 个 新 的 窗口 显示 一 个 链接 : 建立 新 闻 组 账户 ， 然 后 随 网 络 连 
接 向 导 进 行 设置 。 
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如 果 你 的 时 间 宝 贵 ， 可 以 到 google 的 网 站 http: /www.google.com， 点 击 你 通过 关键 词 所 搜索 到 
的 红色 新 闻 组 链接 ， 将 会 得 到 一 系列 常见 的 新 闻 组 类 型 。 点 击 comp. 链接 ， 你 可 能 对 其 中 一 些 新 闻 组 
感 兴趣 : 

comp.job.* (1 组) 

comp.jobs.* (6 2H) 

comp. jobsoffered 

其 中 星 号 表示 有 更 多 的 子 组 。 其 他 特定 语言 的 新 闻 组 也 会 发 布 工作 机 会 。 注 意 小 心 保护 可 能 引起 
身份 盗窃 的 个 人 信息 。 一 旦 你 在 comp. 集合 中 ， 你 可 以 通过 点 击 comp.ai 浏览 所 有 的 人 工 智能 新 闻 组 。 

第 三 种 方法 ， 输 入 : http: //groups.google.com/groups? hl = en&lr = &ie = UTF — 8&group = 
comp. ai 到 浏览 窗口 的 地 址 栏 中 ， 你 将 得 到 : 


comp.ai comp.ai jair.announce 
comp.ai.alife comp.ai_jair.papers 
comp.ai.doc-analysis.misc comp.ai.nat-lang 
comp.ai.analysis.ocr comp.ai-neural-nets 
comp.aiedu comp.ai.nlang-know-rep 
comp.ai.fuzzy comp.ai.philospohy 
comp.ai.games comp.ai.shells 
comp.ai.gentic comp.ai. vision 


注意 ，jair 是 Journal of AI Research， 一 个 在 线 期 刊 。 新 闻 组 的 好 处 在 于 你 可 以 发 布 内 容 ， 回 复 问 
还 有 其 他 新 闻 组 发 布 来 自 政府 、 州 和 某 些 城市 的 工作 机 会 。 输 入 关键 词 job 可 以 找到 这 些 内 容 。 
开始 某 个 特定 主题 研究 ， 例 如 人 工 智能 、 神 经 网 络 、 遗 传 算法 等 的 一 个 最 佳 方法 除了 通 览 许多 资 
源 外 ， 还 可 以 是 阅读 常见 问题 列表 (FAQs). FAQ 是 新 手 最 好 的 起 点 ， 它 由 资深 者 所 写 ， 并 且 完 全 免 
费 。 尽 管 商业 产品 经 常 被 提 及 ， 但 它们 以 具体 对 象 为 讨论 方式 ， 不 具备 普遍 性 。 你 可 以 注册 每 一 个 看 
起 来 有 用 的 新 闻 组 ， 阅 读 它们 的 FAQs。 也 可 以 采用 更 有 效 的 方法 ， 成 千 上 万 个 新 闻 组 的 FAQs 都 被 登 
记 到 一 个 可 搜索 页 面 http: //www.faqs.org/faqs/， 可 以 通过 输入 关键 词 或 按 目 录 或 者 字母 次 序 查询 。 
而 且 ， 人 工 智 能 及 其 子 目录 的 FAQs 可 以 很 方便 地 从 http: //www.fags.org/faqs/ai-faq/ 获 得 。 在 
http: //www. fags. org/faqs/by-newsgroup/comp 有 大 量 关于 计算 机 的 FAQs. 


期 刊 和 在 线 杂 志 


期 刊 和 杂志 都 有 电子 版 和 文字 版 ， 提 供 最 近 的 新 闻 和 某 一 主题 的 文章 ， 是 寻找 工作 机 会 、 会 议 主 
题 、 工 作 组 、 会 议 的 好 资源 。 期 刊 和 杂志 最 主要 的 区 别 在 于 ， 期 刊 靠 订户 支持 运作 ， 而 杂志 通过 广告 
获得 主要 经 费 。 期 刊 为 了 强调 其 独立 报道 ， 长 期 以 来 采用 这 种 策略 。 期 刊 文章 要 求 被 多 个 评阅 人 审阅 ， 
所 以 真正 的 期 刊 文章 都 会 被 审阅 。 

在 杂志 上 很 少 看 到 作者 在 其 所 在 公司 发 广告 的 杂志 上 发 表 文章 。 另 一 方面 ， 期 刊 的 文章 很 少 出 自 
期 刊 编者 或 成 员 。 你 需要 特别 注意 带 有 以 下 类 似 脚注 的 文章 :“ 本 研究 部 分 得 到 XYZ 的 支持 ”"， 因 为 作 
者 为 了 继续 得 到 基金 支持 ， 他 们 会 较 详尽 地 介绍 工作 而 不 是 空洞 的 介绍 。XYZ 也 会 通过 发 表 的 文章 和 
资助 者 得 到 的 基金 数量 展示 他 们 的 品牌 。 

会 议 文章 需要 较 仔细 的 阅读 ， 因 为 这 可 能 是 作者 为 获取 旅游 经 费 ， 或 者 是 学 生 为 获得 毕业 学 位 或 
致谢 XYZ 而 正在 进行 的 工作 。 因 此 ， 本 书 不 引用 任何 来 自 会 议 的 文章 。 

AI Case-Based Reasoning Journal: http: //www.ai-cbr.org/theindex.htm 

BusinessWeek Online: http: //www. businessweek.com. 尽管 不 是 期 刊 ， 这 个 在 线 杂志 提供 了 很 好 
的 搜索 引擎 做 人 工 智能 等 关键 词 的 搜索 ， 经 常 提供 关于 商业 、 政 府 和 军 方 的 高 技术 新 闻 ， 因 为 这 三 者 
都 花费 了 大 量 的 财力 。BusinessWeek 提供 了 计算 机 在 商业 应 用 的 最 新 资讯 。 在 这 里 你 可 以 发 现 沃尔玛 
(Wal-Mart) 正在 使 用 数据 控 气 技术 应 用 于 超过 3000 个 仓库 的 数据 并 为 每 个 商品 提供 销售 指引 ， 以 及 
人 工 智能 的 广泛 应 用 : http: //www. businessweek . com/bw50/ content /mar2003 /a3826072 . htm 


American Association for Artificial Intelligence: http://www.aaai.org/ 
Expert Systems International Journal: http://www.blackwellpublishing. com/journal.asp?ref 
Expert Systems Journal: http://www.aaai.org/AITopics/html/expert.huml 


题 


o 





KER 501 





Fuzzy Optimization and Decision Making: 一 个 关于 不 确定 性 下 模拟 和 计算 的 期 刊 ，http: /7 
www .kluweronline. com/ssn/1568-4539 


IEEE Intelligent Systems Journal: http://www.computer.org/intelligent/ 

IEEE Transactions on Fuzzy Systems: http://www.ieee.org/portal/index .jsp?pageID=corp_ 
level &path=pubs/transactions&file=tfs.xml&xsl=generic.xsl 

IEEE Transactions on Neural Networks: http://www.ieee.org/portal/index.jsp?pagelD=corp_ 
level] &path=pubs/transactions&file=tnn.xm!&xsi=generic.xsl 

Journal of Artificial Intelligence Research: http://www.cs.washington.edu/ research/jair/home. html 


Neural Computation by the MIT Press: http://mitpress.mit.edu/catalog/ item/default.asp? 
sid=B395B969-A0A5-A566-AF7B2EDCE494&ttype=4 &tid=3 | 


Neural Computing& Applications by Springer-Verlag. # A http: //springerlink. metapress. com. 在 这 
个 页 面 点 击 Browse Publication ， 然 后 跳 到 N， 点 击 Neural Computing and Applications. 

North American Fuzzy Information Processing Society。 点 击 他 们 的 在 线 资源 链接 可 以 得 到 很 多 资源 : 
http: //morden. csee. usf. edu/Nafipsf/ 

PCAI.com。 一 个 优秀 的 提供 很 好 搜索 引擎 的 在 线 杂 志 。PCAI 创办 于 20 世纪 80 年 代 ， 包 括 了 大 量 
的 人 工 智 能 信息 资源 ， 链 接 到 软件 、 文 章 和 其 他 资源 信息 组 ， 例如: C++ 、 黑 板 技 术 、Client/Server、 
Dylan、 创 造 思维 、 数 据 挖掘 、Forth、 分 布 计算 、 专 家 系统 、LISP、 模 糊 逻 辑 、 一 般 AI 站 点 、Logo、 
遗传 算法 、OPS、 智 能 Agent、 智 能 应 用 、Prolog 、 因 特 网 、 逻 辑 程 序 设 计 、Scheme、 机 器 学 习 、 模 拟 
和 仿真 、Smalltalk、 多 媒体 、 自 然 语言 处 理 、 神 经 网 络 、 面 向 对 象 开 发 、 视 觉 、 特 征 、 识 别 、 机 器 人 、 
语音 识别 、 虚 拟 现实 ，http: //PCAI.com 

Generation5 .com。 一 个 很 全 面 的 人 工 智能 网 站 ， 提 供 人 工 智能 各 个 方面 的 新 闻 和 信息 ， 包 括 游戏 ， 
以 及 很 多 下 列 人 工 智能 一 般 领 域 的 链接 : 航天 与 军事 、Agent、 人 工 智能 、 人 工 生命 、 生 物 测 定 学 、 约 
束 满足 规划 、 创 造 、 分 形 、 混 沌 、 复 杂 性 、 非 线性 动力 学 、 博 弈 、 遗 传 算 法 、 手 写 识 别 、 家 庭 自 动 化 、 
商业 、 图 像 分 析 / 识 别 、 基 于 知识 的 系统 、LISP、 自 然 语言 处 理 、 神 经 网 络 、 神 经 科学 、 模 式 识别 、 个 
性 化 、 哲 学 、Prolog、 机 器 人 、Furby、LEGO 头脑 风暴 、Scheme (编程 语言 )、 语 音 识别 与 合成 、 
VoiceXML; http: //www. generation5 . org/ 

SourceForget.Net。 一 个 软件 和 其 他 资源 的 主要 来 源 站 点 。 作 为 最 大 的 开源 软件 网 站 ， 具 有 超过 
90 000 个 项 目 ， 包 括 并 超过 了 本 书 讨论 的 所 有 主题 ，http: //sourceforget.net/ 

AI@HOME。 一 个 很 好 的 人 工 智能 在 线 网 站 ， 发 布 所 有 神经 网 络 、 进 化 算法 ,元 学 习 和 分 布 式 计 
算 的 开源 代码 。 元 学 习 即 用 学 习 算 法 来 创建 新 的 学 习 算法 ，http: //www.aiathome.com/ 

Dr Dobbs Portal AI Links。 一 个 搜集 来 自 Dr. Dobbs 期 刊 一 一 一 个 关 许 多 编程 语言 的 杂志 一 一 的 大 
量 文章 、 导 读 、 链 接 和 软件 的 网 站 : 
http: /Awww.ddj.com/documents/s = 7730 /ddj0212ai/0212ai001 . html # egyptian _ cu 

Adaptive Behavior。 一 个 关于 动物 和 自治 人 工 系统 例如 机 器 人 的 自 适 应 行为 研究 的 国际 期 刊 。 其 主 
题 包括 感知 与 运动 控制 、 学 习 、 进 化 、 动 作 选 择 与 行为 序列 、 刺 激 与 反应 、 环 境 特征 、 群 体 与 社会 行 
为 、 定 位 、 通 信和 信号 : 
http: //Awww. isab. org/journal/ 

Artificial Life。 一 个 人 工 智能 研究 以 及 商业 应 用 的 网 站 。 除 了 电影 工业 每 年 产生 200 亿美 元 的 利 
润 ， 视 频 游戏 产生 的 利润 更 多 ， 人 工 智能 还 为 军 方 提供 很 多 应 用 。 这 个 网 站 研究 通过 计算 机 、 机 器 、 
分 子 和 其 他 可 选 媒 体 来 从 科学 、 工 程 、 哲 学 和 社会 等 方面 合成 生命 行为 ， 研 究 生 命 的 起 源 、 自 组 织 、 
生长 与 发 展 、 进 化 与 生态 演变 、 动 物 与 机 器 行为 、 社 会 组 织 、 文 化 发 展 。 人 工 生命 是 视频 游戏 、 电 影 
如 Lord of the Rings AJI, I, Robot 等 的 一 个 重要 课题 。 人 工 生命 形式 要 学 会 战斗 ， 其 中 一 些 战 斗 场面 
涉及 成 千 上 万 个 人 工 智能 生命 形式 。 

对 于 传统 计算 机 动画 和 人 类 电影 导演 来 说 ， 与 成 千 上 万 个 计算 机 动画 角色 合作 是 太 过 庞大 的 工作 
任务 。 所 以 人 工 智能 生命 形式 被 开发 来 学 习 战 斗 技巧 以 及 复杂 的 战斗 策略 以 便 导 演 可 以 选择 最 有 趣 的 
内 容 。 这 种 方法 是 传统 的 导演 指导 个 别 演员 和 动画 内 容 的 改革 。 在 Star Wars 2: Attack of the Clones 电 
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影 中 ， 电 影 制作 者 使 用 奖品 来 吸引 群众 ， 但 现在 ， 庞 大 的 群众 场景 可 使 用 人 工 生 命 形 式 〈 令 人 担忧 的 
是 电影 Matrix 可 能 会 真正 成 为 现实 ,除了 电影 里 真实 的 人 陷入 虚假 环境 外 。 现 在 我 们 知道 ， 没 有 哪个 
人 是 不 可 缺少 的 )。 
http: /Avww-mitpress. mit. edu/catalog/item/default.asp? ttype= 4&tid= 41 

Computational Linguistics。 讨 论 自然 语言 处 理 系统 的 设计 和 分 析 。 人 工 智能 、 认 知 科学 、 语 音 、 语 
言 处 理 和 表现 的 心理 学 : 
http: //www-mitpress. mit.edu/catalog/item/default.asp? ttype= 4 &tid= 10 

Computer-Mediated Communication Magazine. 一 个 在 线 杂 志 提 供 最 新 的 新 闻 ， 包 括 信 息 技术 、 知 
识 管理 、 电 子 商务 、 人 、 事 件 、 技 术 、 公 共 政 治 、 文 化 、 实 践 、 研 究 以 及 与 网 上 人 们 交流 与 交互 相关 
的 应 用 。 是 当前 事件 和 技术 的 很 好 汇总 : http: //~www.december.com/cme/mag/meta/ 

Decision Support Systems and Electronic Commerce。 一 个 实现 和 评价 决策 支持 系统 在 下 面 一 些 领 域 
的 技术 期 刊 : 人 工 智 能 、 认 知 科学 、 计 算 机 支持 的 协同 工作 、 数 据 库 管理 、 决 策 理 论 、 经 济 、 语 言 学 、 
管理 科学 、 数 学 建 模 、 操 作 管 理 心理 学 、 用 户 接口 管理 系统 以 及 其 他 领域 。http: //www .elsevier.com/ 
wps/find/journaldescription. ews _ home/505540/description # description 

Electronic Journals and Periodicals in Psychoelogy。 尽 管 不 是 期 刊 ， 但 有 一 个 很 好 的 列表 提供 所 有 与 
心理 相关 的 电子 期 刊 、 会 议 议程 和 其 他 定期 内 容 的 链接 。 一 个 最 大 的 特点 是 使 用 电子 邮件 提醒 与 你 感 
兴趣 内 容 相关 的 新 信息 已 经 送出 。 人 工 智 能 领域 从 心理 学 吸取 了 很 多 精髓 ， 千 百 万 年 来 ， 人 们 就 是 使 
用 其 中 某 些 好 的 (或 坏 的) 技术 来 解决 问题 。 如 果 你 想 深 入 研究 人 工 智能 ， 你 需要 学 习 心理 学 、 生 物 学 、 
神经 科学 、 哲 学 和 其 他 领域 的 知识 来 开拓 你 的 视野 。http: //psych. hanover. edu/Krantz/journal . html 

AI Events。 尽 管 不 是 一 个 期 刊 ， 但 它 是 一 个 非常 有 用 的 搜索 数据 库 ， 可 以 查找 近期 人 工 智 能 会 议 、 
工作 组 、 暑 期 培训 以 及 类 似 事件 。 是 一 个 规划 你 的 暑假 的 好 帮手 。http: //www.drc.ntu.edu.sg/users/ 
mgeorg/enter . epl 

Evolutionary Computation。 一 个 从 客观 抽象 到 意识 的 计算 系统 期 刊 ， 侧 重 于 进化 算法 (EA)、 遗 传 
算法 、 进 化 策略 、 进 化 编程 、 遗 传 编程 、 分 类 系统 和 其 他 从 生物 系统 发 展 出 来 的 自然 计算 技术 。 
http: //www-mitpress. mit. edu/catalog/item/default.asp? ttype= 4 &tid = 25 

International Journal of Human-Computer Studies/Knowledge Acquisition. A; 为 第 6 章 提 供 了 特别 有 
用 的 资源 。 包 括 了 广阔 的 主题 ;http: //repgrid. com/JHCS/ 


* intelligent user interfaces * knowledge-based systems 

。 natural language interaction * hypertext and hypermedia 

¢ human factors of multimedia systems e user modeling 

* human and social factors of virtual * empirical studies of user behavior 
reality * the psychology of programming 

* human and social factors of the World * systems theory and foundations of hu- 
Wide Web man-computer interaction 

* human and social factors of software * user interface management systems 
engineering « information and decision-support 

* computer-supported collaborative work systems 

* speech interaction * requirements engineering 


e graphic interaction innovative designs and applications of 
¢ knowledge acquisition interactive systems 


Journal of Artificial Intelligence Research。 一 个 很 全 面 的 关于 人 工 智 能 所 有 主题 的 在 线 期 刊 。 
http: //www-mitpress. mit. edu/catalog/item/default. asp? ttype=4&tid= 12 

Journal of Cognitive Neuroscience。 讨 论 大 脑 行为 交互 、 功 能 和 大 脑 底层 事件 、 神 经 科学 、 神 经 心 
理学 、 认 知心 理学 、 神 经 生物 学 、 语 言 学 、 计 算 机 科学 和 哲学 。http: //www-mitpress.mit.edu/catalog/ 
item/default.asp? ttype= 4&tid= 12 

Journal of Constructivist Psychology。 构 成 主义 也 是 教育 以 及 人 类 学 习 的 热门 分 支 。http: /7 
www. tandf. co. uk/journals/titles/10720537 . asp 

Journal of Mind and Behavior. 一 个 试图 联系 意识 与 行为 的 理论 期 刊 : http: //kramer. ume. maine. edu/~ 
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jmb/welcome. html 

Noetica: A Cognitive Science Forum， 一 个 在 线 的 可 参考 期 刊 ， 包 括 认 知 科学 、 机 器 学 习 和 许多 与 人 
工 智能 相关 的 主题 : http: //www.dre.ntu. edu.sg/users/mgeorg/enter. epl 

PRESENCE; Teleoperators and Virtual Environments: 一 个 吸引 人 的 期 刊 ， 包括 在 遥控 手术 和 和 军事 方面 
的 重要 应 用 ， 例 如 使 用 无 人 驾驶 航空 工具 (UAV) 进行 无 人 侦察 。UAV 通常 被 军 方 使 用 ， 因 为 他 们 比 有 
人 驾驶 飞机 更 加 便宜 、 难 以 被 发 现 、 可 以 飞行 更 长 时 间 。 最 重要 的 是 ， 一 个 操作 员 可 以 控制 多 架 UAV 
而 不 用 承受 一 个 有 人 驾驶 飞机 被 打下 的 压力 ， 如 发 生 在 1962 年 的 著名 的 Francis Gary Powers 事件 。 

预期 在 2010 年 ,智能 UAV， 即 X-45 无 人 驾驶 战斗 机 (UCAV) 将 可 以 投入 军事 使 用 。http: // 
www.fas.org/man/dod-101/sys/ac/ucav.htm。 它 是 一 个 不 需要 人 操作 的 可 飞行 到 预定 目的 地 的 胡 炸 机 / 
监视 机 。 花 费 上 亿美 元 研究 的 智能 武器 系统 正在 开发 中 ,你 可 以 看 一 些 电 视 ， 如 History 频道 中 的 Mail 
Call, Discovery 频道 中 的 Tactics to Practice, G4TechTV 中 的 Future Fighting Machines， 从 中 可 以 知道 这 
些 钱 是 如 何 花 在 基于 人 工 智能 的 军 方 系统 中 。 

真正 令 人 迷惑 的 是 这 些 X-45 看 起 来 类 似 在 电影 Terminator 系列 中 由 AI 程序 空间 的 罪犯 所 控制 的 
人 工 智能 飞机 〈 在 电影 中 ， 人 工 智 能 部 队 试图 从 人 类 手中 夺取 世界 )。 同 样 的 主题 也 出 现在 2004 年 的 
电影 [，Robot 中 。 再 往 前 可 追溯 到 20 世纪 70 年 代 经 典 的 电影 Colossus: The Forbin Project， 其 中 美国 
和 俄国 的 超级 计算 机 联合 起 来 从 毁灭 的 世界 中 拯救 人 类 。 

Public E-print Archive. HH Stevan Hamad 发 表 的 认 知 心理 学 论文 包括 了 很 多 令 人 感 兴趣 的 主题 ， 例 如 
归纳 、 认 知 、 机 器 学 习 、 机 器 人 和 其 他 内 容 。 是 可 读 性 很 高 的 文章 : http: //www.ecs. ston. ac. uk/~ har- 
nad/genpub. html 

PSYCHE。 一 个 关于 意识 研究 的 跨 学 科 期 刊 ， 提 供 大 量 有 趣 的 文章 htp: //psyche. cs.monash. edu. au/ 

Shufflebrain。 探 索 大 脑 这 个 物理 对 象 如 何 存储 意识 以 及 很 多 如 下 面 的 有 趣 问 题 。http: // 
www. indiana. edu/~ pietsch/home. html 
Shuffle Brain 一 一 一 个 受 损 的 大 脑 能 否 记忆 ? 

The Beast’ s IQ- 一 智能 的 隐藏 面 

。 Hologramic Mind 一 一 什么 是 真正 存在 的 ? 以 什么 方式 ? 

e Microminds 一 一 细菌 是 否 会 思考 ?会 伤心 ? 会 快乐 ? 

。 人 类 大 脑 思考 ? 还 是 人 类 思考 ? 

。 Brain Swapping 一 一 洗脑 

。 Holologic 一 一 一 个 关于 自然 全 息 像 的 Asa Zook 对 话 

。 Split Human Brain 自身 分 裂 体 

e Musical Brain 温和 的 一 面 

。 Optics of Memory 一 一 一 个 非常 好 的 工程 

The Journal of Computer-Mediated Communication。 这 个 站 点 不 仅仅 包括 人 工 智能 ， 还 涵盖 了 许多 
可 能 导致 人 工 智 能 新 发 展 的 领域 ， 因 此 使 阅读 变 得 更 加 有 趣 : http: //www .ascusc.org/jcmc/ 

The Journal of Mind and Behavior。 主 要 是 给 心理 学 者 ， 但 也 提供 有 趣 的 人 工 智 能 新 研究 领域 的 线 
索 ; http: //kramer.ume. maine. edu/~ jmb/welcome. html 


第 1 章 ”人 工 智能 资源 


DARPA. the Defense Advanced Research Projects Agency of the Department of Defense (国防 部 高 级 研 
究 项 目 组 )。 人 工 智能 研究 的 一 个 主要 基金 来 源 。 而 且 ，DARPA 同时 为 ARPANET 的 启动 提供 了 资金 ， 
ARPANET 引发 了 20 世纪 90 年 代 的 商业 因特网 。DARPA 宣称 在 1990 年 的 海湾 战争 中 ， 人 工 智能 在 
“沙漠 风暴 ”行动 的 后 勤 规划 中 的 应 用 已 经 成 倍 地 回馈 了 他 们 自 20 世纪 50 年 代 以 来 投资 于 人 工 智能 研 
究 的 资金 。http: /Awww.au.af. mil/au/aul/school/acse/ai02 .htm 
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American Association for Artificial Intelligence (美国 人 工 智 能 学 会 )。 一 个 很 好 的 学 习 了 解 人 工 智 
能 和 专家 系统 的 起 点 。http: //www .aaai.org/AITopics/html/welcome.html。 更 多 的 专家 系统 论文 和 资 
源 可 以 参考 链接 ;http: //www .aaai.org/AITopics/html/expert. html # good 

Out of Control; «The New Biology of Machines), Kevin Kelly 著 ， 这 是 一 本 引人入胜 的 书 ， 你 可 以 
在 线 阅 读 了 解 人 工 智 能 是 如 何 影响 社会 和 经 济 。 值 得 一 读 : http: //www.kk.org/outofcontrol/ 


Metaxiotis K. and Psarras, J. “Expert Systems in Business: Applications and future directions 
for the operations researcher,” Industrial Management & Data Systems, Vol. 103, No. 5, pp. 361- 
368, 2003. 


Hugh McKellar, “Artificial intelligence: Past and future,” KMWorld Magazine, Vol.12, Issuc 4, 
2004。 概 述 了 人 工 智 能 和 世界 前 5 个 人 工 智能 市 场 领域 : 专家 系统 、 信 念 网 、 决 策 支 持 系统 、 神 经 网 
络 和 Agent 的 发 展 ， 这 些 领域 到 2007 年 市 场 将 达到 210 亿美 元 。 这 个 免费 在 线 杂 志 专 注 于 报导 知识 管 
理 的 最 新 趋势 。 是 非常 值得 一 读 的 概述 文章 。http: //www.kmworld.com/publications/magazine/in- 
dex.cfm? action = readarticle&article _ id = 1504 &publication _ id= 1 

Alexander Nareyek, “AI in Computer Games.” ACMQueue. com. ACM Queue Vol.1, No.10, Febru- 
ary 2004。 较 好 地 讨论 了 有 限 状 态 机 、 决 策 树 以 及 其 他 人 工 智 能 技术 在 游戏 中 的 实际 应 用 。 人 工 智能 应 
FA: http: //acmqueue.com/modules. php? name= Content &pa = showpage& pid = 117 & page= 1 

Al on the Web. 大 量 收 集 了 超过 850 个 人 工 智能 所 有 领域 的 链接 ， 来 源 于 Stuart Russell http: // 
www.cs.berkeley.edu/ 一 russell/ai.html。 这 些 和 其 他 资源 来 自 于 Stuart Russell 和 Peter Norvig 所 著 的 
Artificial Intelligence: A Modern Approach (第 二 版 )，2002 年 。 这 是 一 本 具有 很 多 其 他 支撑 材料 的 人 工 
智能 入门 书 ， 高 度 推荐 。http: //aima.cs. berkeley. edu/ 

浏览 和 搜索 Google 的 人 工 智 能 链接 : http: //directory. google.com/Top/Computers/Artificial _ Intelli- 
gence/ ' 

浏览 和 搜索 Yahoo 的 人 工 智能 链接 :http: //dir. yahoo. com/Science/Computer _ Science/Artificial _ 
Intelligence/ 

The AI Center: http: //www.ai-center.com/sitemap. html。 一 个 很 好 的 人 工 智 能 学 习 起 点 。 如 果 你 
点 击 链接 http: //www.ai-center.com/links/ 将 得 到 很 多 资源 。 

Dr. Mark Humphrey’ s Homepage。 具 有 吸引 人 的 阅读 材料 ， 你 从 中 可 判断 你 的 祖先 是 否 具 有 王室 
血统 ! 当然 引用 其 页 面 的 其 他 原因 在 于 它 可 以 作为 教学 的 补充 链接 。 人 工 智能 和 许多 其 他 资源 都 罗列 
在 其 网 页 上 。http: //www.compapp. dcu. ie/%7Ehumphrys/index. html 

AI Links, Humphrey 的 网 页 ， 其 庞大 的 列表 履 盖 了 下 面 常 见 主题 ， 每 一 个 都 有 大 量 链接 : http: // 
www .compapp. deu. ie/% 7Ehumphrys/ai. links. html 

。 思维 结构 (包括 机 器 人 的 自 适 应 行为 ) 
。 学 习 (增强 学 习 ) (神经 网 络 ) 
。 进化 《计算 进化 ) (自然 进化 ) 

Teaching Links, Humphrey 提供 的 庞大 在 线 人 工 智能 资源 。 如 果 你 从 未 学 过 人 工 智能 课程 或 者 正 
在 搜寻 某 些 新 见解 ， 这 些 内 容 实在 值得 一 看 : http: //www.compapp.dcu.ie/% 7Ehumphrys/teach- 
ing. html 

而 且 这 个 网 站 还 提供 了 很 好 的 世界 搜索 引擎 集合 : http://www. compapp. dcu. ie/% 7Ehumphrys/ 
computers. internet. html 

他 的 王室 血统 搜索 很 好 用 。 例 如 ， 你 可 以 看 到 Walt Disney 的 家 族 树 追溯 到 英格兰 王室 Henry I 
Beauclerc 《公元 1070 至 1135 Æ). http: //members. aol. com/dwidad/disney. html # wd. 现在 你 知道 为 什 
么 城堡 是 Disney 乐园 的 一 个 标志 。 

由 Planet 9 Studios 创建 的 虚拟 环境 包括 了 超过 和 0 个 高 精度 的 3D 城市 。 这 些 数 据 集 可 以 有 多 种 用 
途 ， 包括 自治 机 器 人 在 城市 街道 间 穿 行 的 最 后 测试 。 如 果 你 曾经 在 电影 Matrix 中 看 过 3D 城市 ， 这 对 
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你 来 说 将 非常 熟悉 。 你 可 从 http: //www.planet9.com/demos _ dwnlds. html 下 载 演 示 WMV 文件 。 

Online Robotics and Cameras archive: http: //ford.ieor. berkeley. edu/ir/ 

由 Stuart Reynolds 收集 的 超过 350 个 人 工 智能 文章 的 链接 : http: //ford. ieor. berkeley. edu/ir/ 

Reinforcement Learning: An Introduction, H Richard S.Sutton 和 Andrew G. Barto 所 著 的 在 线 书籍 ， 
同时 MIT 出 版 社 在 1998 年 印刷 出 版 。 探 讨 软件 Agent 和 机 器 人 如 何 学 习 对 环境 做 出 反应 。 讨 论 许多 
技术 , 包括 马尔 柯 夫 决策 过 程 、 规 划 与 学 习 以 及 某 些 复杂 案例 学 习 。 值 得 一 看 : http: /www- 
anw. cs. umass. edu/% 7Erich/book/the-book . html 

Complexity Papers Oniine。 一 个 大 型 的 多 主题 论文 集合 ， 包 括 人 工 智能 、 复 杂 理 论 、 混 沌 和 数 百 个 
其 他 主题 。 包 括 初始 人 工 智能 创立 者 的 经 典 论文 ; http: //www.calresco. org/papers. htm 

EvoWeb. 整个 欧洲 关于 进化 计算 所 有 方面 的 网 页 。 包 括 遗 传 算法 、 机 器 人 、 智 能 系统 ， 还 有 很 多 
软件 文章 、 书 籍 和 链接 。 在 这 个 站 点 可 以 看 到 最 新 新 闻 和 技术 。 欧 盟 正 通过 政府 资助 基金 帮助 小 型 企 
业 创 建 网 页 ， 以 向 全 球 市 场 提供 它们 的 产品 和 服务 。EvoWeb 的 创建 显示 了 他 们 运用 高 级 人 工 智 能 技 
术 ， 例 如 进化 计算 的 决心 。http:; //evonet. bri. fr/ 

其 他 主要 专注 于 人 工 智能 特定 领域 的 欧洲 站 点 也 列 在 上 述 网 页 中 。 

EvoBIO。 生 物 信息 网 页 ， 专 注 于 基于 进化 计算 的 算法 ， 解 决 在 分 子 生物 学 、 基 因 学 、 遗 传 学 等 方 
面 的 重要 问题 。 

EvoELEC。 进 化 电子 学 方面 的 欧洲 网 页 。 包 括 了 数字 和 模拟 进化 硬件 、 生 物 计算 、 进 化 机 嚣 、 进 
化 电子 学 等 。 

EvoGP. 遗传 编程 网 页 。 针 对 一 些 困难 的 设计 问题 、 模 式 识 别 、 控 制 问题 ， 以 及 金融 数据 挖掘、 
祝 号 和 图 像 处 理 、 生 物 信息 、 工 程 设 计 、 音 乐 和 艺术 等 应 用 问题 。 

EvolASP。 图 像 分 析 和 信号 处 理 的 欧洲 网 页 。 数 百 篇 进化 算法 (EAs) 在 图 像 分 析 和 信和 号 处 理 方面 
的 应 用 文章 表明 ， 进 化 算法 是 自动 设计 和 系统 优化 的 有 效 工 具 。 

EvoROB。 进 化 机 器 人 的 欧洲 网 页 。 专 注 于 进化 算法 应 用 于 自动 设计 和 自主 机 器 人 。 它 采用 自 底 向 
上 方法 进行 机 器 人 学 习 ， 通 过 与 环境 交互 而 不 是 由 人 来 进行 综合 控制 。 

EvoSTIM。 调 度 和 时 间 表 的 欧洲 网 页 。 进 化 算法 被 证 明 为 非常 成 功 。 

Tom Lloyd “When swarm intelligence beats brainpower”"。 关 于 使 用 复杂 工具 例如 群体 智能 来 求解 非 
常 复杂 的 问题 ， 例 如 旅行 售 货 者 问题 ， 当 问题 规模 达到 一 定 大 小 时 ， 不 存在 有 效 的 算法 。 随 着 城市 数 
目的 增加 ， 即 使 使 用 网 格 计 算 也 无 法 避免 速度 变 得 缓慢 ， 因 为 对 于 N 个 城市 的 可 能 路 线 有 (N-1)! 
个 。 群 体 智能 使 用 类 似 蚁 群 算法 的 技术 提供 N 较 大 时 一 个 可 接受 时 间 内 的 较 好 解决 方案 。 这 篇 文章 是 
商业 购买 群体 智能 技术 解决 复杂 问题 的 一 个 好 的 概述 。http: //money. telegraph. co. uk/money/ 
main.jhtml? xml= %2Fmoney%2F2001%2F06%2F06%2Fcnantz06.xml 

SwarmWiki。 一 个 主要 的 提供 信息 、 软 件 和 许多 处 理 群 体 智能 及 其 人 工 智能 应 用 的 站 点 。http: // 
wiki.swarm.org/wiki/Main _ Page 

好 的 在 线 演讲 。 包 括 了 许多 著名 的 演讲 者 通过 微软 多 个 大 学 研究 实验 室 发 表 的 各 种 主题 的 演讲 : 
http: //murl. microsoft .com/ContentMap. asp 

从 PROLOG 角度 进行 人 工 智能 和 专家 系统 教学 的 幻灯 片 系列 在 线 资源 。 由 Alison Cawsey 著 ， 涵 盖 
了 本 书 理论 部 分 的 大 多 数 主题 。 即 使 有 新 的 语言 例如 Python，PROLOG 和 Lisp 仍然 是 人 工 智 能 教科 书 
使 用 的 基本 语言 。http: //www.cee.hw.ac.uk/~alison/ai3/ 

大 量 收 集 许 多 人 工 智能 主题 的 幻灯 片 由 Aaron Sloman 所 做 ,值得 一 看 : http: // 
www.cs.bham.ac.uk/%7Eaxs/misc/talks/ 

神经 网 络 不 仅 用 于 研究 ， 也 用 于 实际 应 用 ， 为 信用 卡 联合 服务 组 织 (CUSO) 在 检测 信用 卡 欺 诈 上 
节省 了 上 百 万 美元 。PSCU 金融 服务 中 心 ， 国 家 最 大 的 CUSO 宣称 在 2002 年 超过 74 000 个 信用 卡 欺 诈 
案 中 ， 它 使 用 神经 网 络 挽回 了 1280 万 美元 损失 ， 占 挽回 损失 的 99.9%。http: //www.cuna.org/news- 
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now /archive/list .php? date= 041003 
PSCU 金融 服务 中 心 使 用 的 工具 是 Faloon neural net tcol， 这 个 工具 实时 检测 信用 卡 欺 诈 ，http: // 
ww. pscufs.com/falcon.htm。 如 果 你 曾经 在 登记 处 等 待 了 较 长 的 时 间 ， 可 能 是 神经 网 络 正在 检查 你 的 可 疑 
活动 。 对 于 不 同 寻 常 的 大 额 消费 ， 交 易 可 能 被 拒绝 ， 你 必须 致电 信用 卡 公司 确认 是 你 本 人 在 进行 消费 。 
国家 信用 卡 联合 委员 会 要 求 他 们 的 客户 使 用 神经 网 络 技术 作为 减少 欺诈 和 降低 开销 的 方法 。 至 于 
其 他 的 商业 应 用 ，BusinessWeek 在 线 站 点 中 有 很 好 的 搜索 引 警 可 以 很 容易 地 搜索 到 最 近 的 人 工 智 能 应 
FA: http: //www.businessweek.com/bw50 /content/mar2003/a3826072.htm 
CorMac Technologies 具有 非常 全 面 的 成 功 商业 人 工 智 能 工具 和 例子 ， 包 括 : 
。 使 用 神经 网 络 诊断 癌症 
。 使 用 归纳 规则 抽取 来 诊断 癌症 
。 从 线粒体 DNA 中 进行 归纳 规则 抽取 
。 从 线粒体 DNA 中 进行 聚 类 识别 
其 站 点 在 http: //www.cormactech.com。 一 个 人 工 神 经 网 络 软 件 的 试用 版 本 在 http: //corma- 
ctech. com eunet/index.html， 其 他 产品 可 以 从 他 们 的 主页 中 得 到 。 许 多 完整 的 例子 和 数据 集 在 
http: //cormactech. com/neunet “download . html # DATA 
很 多 有 趣 的 人 工 智 能 演示 和 项 目 : http: /Avww.cs. wisc. edu/~ dyer/cs540 /demos. html 
人 工 生命 链接 : http: //www.alcyone.com/max/inks/alife. html 
Simple online explanation， 称 为 “普通 人 的 模糊 逻辑 ”: http: //www. fuzzy-logic. com/ 
模糊 在 线 书籍 和 模糊 专家 系统 FLOPS: http: //members.aol.com/wsiler/ 
遗传 编程 的 优点 : http: //murl. microsoft .com/LectureDetails. asp? 785 
Genetics and Evolutionary Algorithm Archive。 遗 传 算法 和 进化 算法 及 其 应 用 的 巨大 资源 。http: // 
www. aic. nrl. navy. mil/galist/ 
GAUL™-the Genetic Algorithm Utility Library。 一 个 进化 计算 开源 代码 的 顶尖 图 书馆 ; http: // 
sourceforge. net/forum/forum. php? forum _ id= 386667 
PMSI 有 一 个 好 的 站 点 ， 具 有 大 量 向 导 和 工具 ， 可 以 免费 下 载 例子 : http: //www.pmsi.fr/home- 
gb.htm。 遗 传 算 法 的 下 面 应 用 在 : http: //ww. pmsi. fr/gafxmpa. htm 
。 食物: 机 器 人 学 习 寻 找 食物 
e GAFUNC: 各 种 优化 问题 的 函数 
。 TSPSA: 模拟 退火 神经 网 络 求解 旅行 售 货 者 问题 
神经 网 络 的 演示 在 http: //www. pmsi. fr/sxcexmpa. htm 
。 Parabola: 神经 网 络 的 实际 应 用 
。 FUNCTION: 演示 神经 网 络 学 习 建立 函数 模型 的 能 力 
。 OCR: 一 个 简单 的 视觉 特征 识别 例子 
。 VEHICLE.EXE: 车 辆 向 导 、 行 为 建 模 和 模型 倒置 ， 车 辆 或 机 器 人 试图 从 某 个 任意 起 点 找到 到 
达 目 的 地 的 路 径 。 
使 用 遗传 算法 和 模拟 退火 的 神经 网 络 的 进化 发 展 ， 你 可 以 从 : http: //www.pmsi.fr/gmxmpa. htm 
下 载 到 很 多 有 趣 的 例子 。 
归纳 决策 树 发 展 ， 使 用 经 典 的 ID3 和 C4.5 方法 自动 建立 决策 树 : http: /www.pmsi.fr/padxm- 
pa. htm 
蚁 群 进化 软件 ， 来自 Marco Dorigo 和 Thomas Stiitzle 所 著 的 Ant Colony Optimization, MIT 出 版 社 ， 
2004。 一 个 应 用 是 解决 重要 的 旅行 售 货 者 问题 ， 这 个 软件 在 : 
http: //iridia. ulb.ac.be/~ mdorigo/ACO/aco-code/public-software. html 
计算 机 科学 历史 。 关 于 计算 机 科学 多 年 来 的 发 展 的 许多 链接 ， 有 许多 关于 重要 历史 人 物 ， 如 阿兰 、 
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图 灵 的 主题 ，http: /Avww. eingang.org/Lecture/toc. html 

图 灵 测 试 网 页 。 关 于 阿兰 图 灵 一 生 和 其 重要 贡献 的 一 个 介绍 网 站 ， 包 括 图 灵 测 试 的 在 线 参 考 、 背 
景 阅读 材料 、 由 Dr. Hugh Loebner 在 1991 年 创建 的 10 万 美元 Loebner 奖 ， 奖 给 第 一 个 通过 非 限 制图 灵 
测试 的 计算 机 程序 的 作者 。 你 可 以 通过 某 些 程序 ， 看 看 人 们 在 哲学 或 思维 、 智 能 机 器 人 和 其 他 主题 所 
做 的 有 趣 的 工作 。 许 多 内 容 可 用 于 课堂 演示 和 进一步 的 工作 : http: //cogsci. ucsd. edu/% TEasaygin/tt/ 
ttest. html # people 

阿兰 .图 灵 的 主页 。 阿 兰 . 图 灵 是 谁 ? 可 以 从 这 里 知道 。 以 时 间 为 线索 ， 提 供 了 图 灵 工 作 的 一 个 完 
整 文献 目录 ， 在 线 传 记 ， 文件 、 图 片 、 专 业 论文 等 : http: //www.turing.org.uk/turing/ 

图 灵 测 试 不 是 骗术 。 图 灵 测 试 作为 有 效 的 科学 手段 可 以 分 辨 计算 机 和 人 类 ， 而 不 是 人 们 误 以 为 的 
游戏 。 从 另 一 方面 来 说 ， 当 人 们 通过 电视 游戏 例如 Jeopardy， 或 幸存 者 游戏 获得 百 万 美元 ， 难 道 也 仅 
仅 只 是 一 个 游戏 ? 这 就 好 像 说 投身 职业 篮球 只 是 一 个 游戏 ， 但 某 些 球员 每 年 可 得 到 10 000 000 美元 ! 
http: //www.ecs.soton. ac. uk/% 7Eharnad/Papers/Harnad/harnad92 . turing. html 

2003 年 的 Loebner 奖 获得 者 。 尽 管 2003 年 Jabberwock 并 没有 完全 通过 非 限 制 的 图 灵 测 试 ，Jabber- 
wok 还 是 因为 其 产品 获得 了 2 000 美元 。 尽 管 不 是 10 万 美元 , 但 是 你 有 多 少 软件 产品 可 以 给 你 带 来 
2 000 美 元 ? http: //www. surrey. ac . uk/dwrc/loebner/ 

Botspot。 用 户 可 以 在 这 个 网 页 尝试 很 多 流行 的 Chatterbots。Chatterbots 是 一 种 能 像 人 一 样 进行 会 
话 的 程序 。 有 一 些 是 真正 为 图 灵 测 试 设计 的 ， 而 其 他 则 是 为 各 种 各 样 的 娱乐 而 设计 。 他 们 越 来 越 完善 ， 
但 仍 不 足以 赢得 Loebner 奖 。 说 不 定 你 的 老板 会 使 用 其 中 一 个 来 回答 你 关于 项 目 作 业 的 问题 。 其 最 终 
的 目的 是 取代 在 电话 中 心 工 作 的 人 们 。 这 将 比 任何 外 来 工 便宜 ， 因 为 你 至 少 得 付 薪水 给 他 们 。http: // 
www. botspot.com 

The LISA project。 是 基于 Lisp 的 智能 软件 Agent 的 开发 平台 。 它 是 在 Common Lisp Object System 
(CLOS) 上 实现 的 一 个 产生 式 系统 ， 受 CLIPS 和 Jess 的 影响 较 深 。 智 能 Agent 在 今天 可 以 用 于 多 种 场 
e http: Misa. sourceforge. net/ 

New Directions Magazine 有 很 多 关于 量子 计算 机 和 其 他 主题 的 文章 和 链接 。 都 是 科普 文章 ， 是 一 个 
开始 学 习 的 好 地 方 。 主 页 可 以 看 到 有 关 科 学 和 计算 的 最 新 发 展 信息 。 同 时 还 有 一 个 工作 栏目 ， 不 过 绝 
大 多 数 工作 是 在 欧洲 ， 这 是 因为 New Scientist 在 英国 出 版 。http: //www. newscientist . com/hottopics/ 
quantum/ 

Quantum Information Science, AW Innsbruck 的 短期 课程 。 有 大 量 量 子 计算 、 量 子 密码 和 其 他 
主题 的 演示 报告 。 某 些 报 告 是 我 所 见 过 的 最 好 的 ， 值 得 一 看 。http: //wtec.org/qis/Awschalom.PDF 

人 工 智 能 接口 标准 委员 会 。 这 是 全 球 游戏 开 发 协会 的 下 属 单位 。 他 们 的 目标 是 “…… 促 进 基 本 人 
工 智 能 功能 接口 、 代 码 重用 和 供应 ， 把 程序 员 从 底层 人 工 智 能 开发 中 解放 出 来 进行 更 复杂 的 人 工 智 能 
资源 工作 。 如 果 你 想 加 入 游戏 行业 ， 或 者 为 公司 建立 人 工 智 能 开发 标准 ， 而 不 是 在 每 次 新 的 项 目 需 要 
人 工 智能 技术 时 才 “ 重 新 启动 车 轮 " ， 那 么 这 是 一 个 很 好 的 站 点 : http: /Avww.igda.org/ai/ 

网 格 计算 由 于 背景 的 原因 ， 还 没 能 使 用 网 络 或 者 因特网 的 很 多 计算 机 能 力 。 它 被 用 来 模拟 大 量 的 
虚拟 网 格 计算 机 ， 处 理 能 力 只 受到 带宽 和 计算 机 数量 限制 ; 理论 上 世界 上 的 每 一 台 计 算 机 都 可 以 应 用 
其 中 。 网 格 计算 正在 被 越 来 越 多 的 厂家 例如 IBM 用 于 实际 应 用 http: //www-1.ibm.com/grid/。 

新 的 网 格 服 务 提供 商 不 需要 真正 的 超级 计算 机 就 能 提供 超级 计算 能 力 。 事 实 上 ， 网 格 可 能 比 任何 
单独 的 超级 计算 机 的 处 理 能 力 都 强 ， 这 取决 于 具体 任务 如 何 分 派 给 所 有 相 联 的 机 器 。 特 殊 目 的 的 网 格 ， 
例如 BioGrid 正 用 于 生物 和 医药 研究 中 ， 因 为 当 在 所 有 机 器 上 运行 时 软件 共享 使 得 分 析 更 加 有 效 ， 虽 然 
这 并 不 一 定 必要 。 网 格 也 可 以 用 于 探索 由 于 计算 机 能 力 有 限 以 前 没有 进行 实践 的 新 的 人 工 智能 技术 和 
算法 。 以 下 是 一 些 参考 内 容 和 和 链接: 


Madhu Chetty and Rajkumar Buyya. “Weaving Computational Grids: How Analogous are 
they with Electrical Grids.” Computing in Science & Engineering, pp. 61-71, August 2002. 

Sergio Rajsbaum. “Distributed Computing Research Issues in Grid Computing,” ACM 
SIGACT News Distributed Computing Column 8, 50-70, July 2002. 
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更 多 的 网 格 计算 链接 ; 
http://www. gridcomputing.com http://www.eu-datagrid.org - 
http://www.globus.org/ http://www. bioinformaticsworld.info/feature3b.html 
http://www. gpds.org/ http://www-1.ibm.com/grid 
http://www.ncbiogrid.org/ http://www.sbml.org 
http://www.biogrid jp http://biocomp.ece.utk.edu 
hitp://www.biognid.icm.edu.pl hup://www.grid.org 
http://www.ncbi-nih.gov/BLAST/ http://gridcafe.web.cern.ch 
hup://www.nbirn-net 

专家 系统 应 用 


专家 系统 应 用 ， 论文、 软件 和 公司 。 来 自 PCAI 在 线 杂 志 的 大 量 列表 : http: /Avww.pcai.com/ 
web/ai _ info/expert _ systems. html 

医疗 专家 系统 。 大 量 列表 : http: /Avww.computer. privateweb. at/judith/name _ 3.htm 

人 工 智 能 和 专家 系统 。 大 量 链接 : http: //www.dmaier. net/teaching/cis386/links. htm 

农业 专家 系统 。 大 量 链接 ，http: //potato. claes. sci. eg/Home/wes. htm 

CLIPS 概述 幻灯 片 ， 来 自 Peter Jackson, (Introduction to Expert System 》 一 书 的 作者 ， 这 是 一 本 介 
绍 CLIPS 和 其 他 专家 系统 的 书 : http: /Avww. geocities. com/jacksonpe/clips/clips. htm 

Judith Lamont, “Innovative Applications Make Government More Responsive”, KMWorld Magazine, 
Vol.12, Issue 6。 较 好 地 介绍 了 不 同 的 政府 机 构 如 何 使 用 专家 系统 来 更 好 地 回答 公众 问题 。 这 是 一 个 
有 具有 很 多 关于 知识 管理 和 智能 系统 在 商业 和 政府 应 用 方面 有 趣 文 章 的 杂志 ， 值 得 一 看 。 可 以 通过 搜索 
引擎 或 发 布 列表 浏览 文章 : http: //www.kmworld.com/publications/magazine/index.cftm? action = 
readarticle& Article _ ID= 1541 &Publication _ ID= 93 

在 线 医疗 诊断 专家 系统 。 如 果 你 营养 不 够 ， 试 一 试 他 们 的 免费 诊断 : http: //easydiagnosis.com/ 

U.S. Department of Safety & Labor (美国 安全 劳动 部 ) 提供 了 许多 有 关联 邦 雇佣 法 、 工 作 场 所 法 、 
权利 和 义务 的 专家 系统 。http: //www.dol.govelaws/see_ adv.asp? Subset= ID>0 

OSHA 政府 专家 系统 。 协 助 承诺 处 理 的 电子 工具 和 产品 : http: //www.osha. gov/dts/osta/oshasoft/ 
eTools。 

OSHA 应 急 计划 专家 系统 。 设计 判断 公司 是 否 需 要 应 急 计划 ， 如 果 需 要 ， 则 帮助 创建 一 个 方案 : 
http: //www.osha-slc. gov/SLTC/etools/evacuation /experts. html 

自然 科学 基金 - 环境 监控 与 测量 顾问 : http: //www .emma-expertsystem.com/ 

美国 地 理 概貌 - 天 鹅 管 理 决策 支持 系统 : http: //swan.msu. montana. edu/cygnet/ 

自然 资源 与 环境 部 的 牛奶 场 专家 系统 。 澳 大 利 亚 一 第 七 “在 线 顾问 ”: 
http: //www.nre. vic. gov.au/web/root/ Domino/ Target10/ T10Frame. nsf 

BusinessLaw. gov 具有 大 量 的 商业 和 专家 系统 信息 http: /Avww. businesslaw. gov/tools/business-wiz- 
ards. htm 

Shyster。 一 个 基于 案例 的 法 律 专家 系统 ， 由 James Popple 开发 。 设 计 、 实 现 、 操 作 和 测试 细节 都 
在 他 的 书 中 给 出 : 《A Pragmatic Legal Expert System 》， 运 用 了 Legal Philosophy A+, Dartmouth, 
Aldershot，1996。Shyster Æ: http: //cs. anu. edu. au/software/shyster/ 


Knowledge acquisition and expert system shell Acquire 。 一 个 软件 的 试用 版 本 ， 可 以 从 其 站 点 获 
得 : http: /Avww.aiinc.ca/ 还 有 很 多 例子 在 http: //www. aiinc. ca/demos/index. html: 


» The Whale Watcher 

* The Graduate Admissions Screening System 

* The Spa Advisor 

* The Stock Demo 

+ Petroleum Advisor for the Geochemical and Environmental Sciences 
* The Job Coach 

* Douglas-Fir Cone and Seed Insects System 
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XpertRule Knowldege Builder， 以 及 一 个 数据 挖 气 工具， 名 为 XperRule Miner， 可 以 从 Attar 软件 有 
限 公司 获得 。 使 用 他 们 的 工具 创建 的 专家 系统 列表 可 以 从 http: //www.attar.com/deploy/demos. htm 以 
及 他 们 的 附属 公司 了 解 到 : 

+ Expenses web demo 

e Savings and Investments web demo 

* PC support web demo 

e Pension web demo 

* Direct PC Sales 

e PC support web demo 


Attar 软件 有 限 公 司 的 其 他 一 些 应 用 产品 http: //www. intellicrafters.com/cases. htm 

。 Rockwell Aerospace and NASA。 由 Rockwell 国际 公司 为 NASA 开发 的 污染 控制 建议 专家 系统 。 

。 Channel 4 TVResource Optimization using XpertRule8 ,使 用 遗传 算法 安排 连续 商业 广告 间隔 。 

Tokyo Nissan。 使 用 XpertRule@， 的 智能 “汽车 选择 系统 ”。 

Australian Taxation Office。 税 收 专 家 系统 。 

。 Work and Income New Zealand, 3000 名 员工 使 用 XpertRuleG 专家 计算 器 处 理 有 关 工 作 胜 任 、 
津贴 、 收 益 等 问题 。 

。 Hosokawa MicronData。 控 掘 粉末 与 颗粒 处 理 。 

。 GE Capital Global Consumer Finance。 人 金融 方面 的 数据 控 据 。 

。 The Gas Research and Technology Centre。 减 少 天 燃气 开采 花费 的 数据 挖掘。 

。 Department of Industry and Fisheries，Tasmania。Tasmanian 政府 机 构 服 务 于 农民 的 专家 系统 。 

* Department of Industry and Fisheries, Tasmania。 针 对 森林 公司 和 承包 商 的 有 威胁 动物 顾问 系统 。 

e Misselbrook and Weston stores。 基 于 知识 的 系统 ， 检 测 商 店内 部 欺诈 。 

Hibernian (Ireland)。 数 据 控 掘 与 基于 知识 的 系统 ,实现 企业 过 程 重 组 ， 由 Hibernian 

Life& Pensions (Ireland) 开发 。 


United Distillers. (FH XpertRuleR 进行 资源 优化 ， 优 化 苏格兰 United Distillers 酒 厂 的 whisky 


生产 以 便 产 出 高 质量 的 混合 物 。 

。 ICI and Carlsberg Tetley, ICI’ s Thornton Power Station and the Carlsberg Tetley brewery 使 用 数据 

。 Elf-Atochem North America, Produced Rilsan® Advisor， 一 个 为 他 们 的 技术 销售 人 员 和 市 场 人 员 
提供 向 导 的 专家 系统 。 

。 The Leeds Building Society, Leeds Building Society (现在 是 HBOS ple 的 一 部 分 ) 使 用 数据 挖掘 来 
发 现 抵押 拖欠 。 


。 Swedish Marines。 瑞 典 海军 健康 专家 系统 。 
。 Heureka。 瑞 典 工业 开发 委员 会 的 产品 评估 专家 系统 。 
VAT in Sweden. 一 个 瑞典 VAT (增值 税 ) 的 税务 建议 和 培训 系统 。 
Meiji Mutual Life Insurance。 基 于 知识 的 系统 ， 用 于 Meiji Mutual Life Insurance 公司 的 保险 计划 
选择 。 

。 Ebara Manufacturing。 用 于 一 个 日 本 公司 调整 3000 个 风力 水 力 来 以 满足 顾客 需求 。 

。 Traversum AB。 数 据 挖掘 和 基于 知识 的 系统 ， 提 供 欧 洲 股票 和 参股 建议 。 

。 Sun Direct Insurance。 基 于 知识 的 系统 ， 用 于 家 庭 和 汽车 保险 咨询 。 

LPA (Logic Programming Associates) 具有 基于 PROLOG 增强 版 本 ( 称 为 PROLOG ++) 的 软件 工 
具 。 另 一 个 称 为 Flint 的 工具 被 设计 用 于 Windows 环境 下 的 模糊 逻辑 应 用 和 PROLOG。 同 时 还 有 免费 的 


PROLOG 版 本 。 有 趣 的 演示 在 : http: //www.lpa.co.uk/pws _ dem. hum 


e Moon Phase * Eliza ¢ Expert 
* Choose Meal + Chat-80 * E-Forms 
* Salesman e Network e Insurance 
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Exsys. Ine。 具 有 用 商业 专家 系统 工具 开发 出 的 大 量 现代 专家 系统 列表 。 一 个 演示 版 本 可 以 从 
http: //www.exsys.com/case2.html 下 载 。 以 下 列 出 了 用 他 们 的 专家 系统 工具 开发 出 来 的 大 量 应 用 ， 网 
站 的 软件 具有 版 权 ， 需 经 允许 才能 复制 。 

金融 服务 - 欺诈 检测 -保险 


e Commercial Loan Approval Predictor and Fund Selector 

+ Detecting Insider Trading 

* Expert Credit Analysis & Analytical Report Support 

¢ System Prevents $Millions in Costs Due to Compromised International Assignments 
* EXPERTAX Handles Complex Tax and Legislative Auditing and Reporting 

* Private Online Pension “Consultant” Helps with Financial Planning Decisions 
« Expert Assistance and Database Analysis for Examiners Available Over a Network 
< Online Business Structure Recommendations from SBA 

* Bad Check Legal Assistant 

* Web-based system provides financial services to Navajo Nation 

法 律 - 法庭 程序 - 法 律 执行 

* Electronic Arrest Warrant and Bad Check Legal Assistance for Judges 

e System Handles Many Requirements of Loans 

° BusinessLaw.gov Provides Online Legal Business Structure Advisor 

¢ Detecting Insider Trading on Stock Exchange 

+ Public School Online Advisor Helps Select Appropriate Disciplinary Actions 

* Handling Legal Issues of Environmental Compliance 

e System Provides Quick Determination for Claimants 

+ Tax and Legislative Auditing & Reporting 

+ Making Relevant Sense of Fire Code Standards 

* The Expert on Security Classification Guidance 

e Over 20 Advisory Systems (and Growing) from Dept. of Labor 

* System Provides Federal and State Accounting and Reporting Capabilities 


农业 一 森林 - 地 球 科学 


* Best Seed Selection for Best Yield and Profit 

¢ Cross Breeding System Increases Margins by up to 50% 
+ Forest Inventory - Quality and Quantity 

¢ Lynx Population Management System 

¢ Irrigation and Pest Management 

* Planning and Design of Agroforestry Systems 

¢ Tree Selection Application 


交通 一 船 运 一 高 速 公路 


* Rockwell’s Aircraft Systems Material and Design Expertise 

* Railroad, Navy and Air Force Engine Component Failure Prediction 

* American Association of State Highway and Transportation Officials System 

e Improved Nautical Chart Cartography 

* Highway Construction Equipment Selection 

。 Better Weather Prediction for Safer Seas and Skies 

。 Federal Highway Administration and Transportation Research Council System 
e System Identifies Problems with Overseas Assignments 


电子 -通讯 -因特网 /内 部 网 


e System Runs on Same Hardware as Machine Vision Programmer 

e Expertise for Rockwell’s Autonetics Sensors and Aircraft Systems 

+ Analysis of Spectrum Analyzer Data Saves Millions 

* Pacific Gas & Electric Field Assistant Helps Service Revenue Meters 
¢ EPRI Prevents Power Outage Due to Bearing Failures 

e GE Identification of Common Metals 

* HP’s Recommendations for Warehouse Implementations 

e CIM Cell Re-Configuration in Minutes, Not a Full Day 

e Rotating Equipment Vibration Advisor 

。 Pacific Bells’ Monitoring, Prediction, and Repair Network Assistance 
e AUDEX Provides Electrophysiological Expertise 

¢ U.S. Postal Service Electronic Performance Support Systems 

* Voice Driven Diagnostic System 


销售 与 市 场 - 在 线 产品 选择 -发布 
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* Online Product Configuration Drives HP’s E-Business Strategy 

* Sales Support System Provides Pricing, Quotations and Reports 

* Multimillion$ Loan Approval System Saves Study Time and Costs 

e Profiling System Helps Businesses Successfully Penetrate Foreign Markets 
* Cost, Labor & Productivity Analysis and Estimating 

* Credit Analysis Advisor and Report System 

e Selecting the Right Equipment, Then the Right Model 

* Power Generation Unit Commitment Advisor Customized for Each Client 


化 学 -自然 资源 一 挖掘 


* Compliance for Asbestos Contamination 

"Texas Eastman Connects Over 400 Systems with External Programs 

e System Identifies Impurities from Analysis of Spectrum Analyzer Data 
* Know What to Do When Working with Fuel 

e GE Identification of Common Metals 

* Vibration Advisor Uses Patterns and Symptoms in Diagnosis 

* Nestle’s Real-Time Process Control 

* EXNUT Reduces Fungicide Use in Farm Management Operations 


医药 -诊断 -保健 组 织 


* Respiratory & Anesthesia Monitoring 

* Cedars-Sinai Information Management for Lung Cancer Patients 

e System Determines Adjustment/Stress Issues Before Overseas Assignments 
* Experts Agree with Pediatric Auditory Diagnostics System 100% 

+ Keeping People Safe From the Hazards of Asbestos 

* In-Vitro Fertilization Cycle Stimulation 

* Urodynamic Diagnosis Rates Diagnosis in Order of Probability 

e Hematology Support with Voice Driven System for Accurate Diagnosis 


建筑 -设备 选择 一 费用 评估 

“Advisors Help Contractors Interpret Complex Compliance Information 
* Labor Cost Diagnostics for Steel Construction and Welding Selection 
e Major Commercial Construction Loan Approval Predictor 

¢ System Provides Front-End Analysis for Construction Simulation 

e Equipment Selection for Highway Construction 

e Fast Fire Code Interpretation for Architects, Engineers and Designers 

* Control Panel Layout Design Aid 

e In-the-Field Procedural Assistant 

* Confined Spaces Work Place Advice 

* Economic, Crew and Maintenance Optimization for Scheduling 

e Construction Specialists Systems Help Project Supervisors at Field Sites 
* Work Zone Interactive Video Trainer & Advisor 


计算 机 硬件 与 软件 


+ Complex Configuration of Computer Integrated Manufactured Cells 

° Financial Analysis Support Techniques (FAST) 

e Customized Diagnostic System 

* Eastman implements Knowledge Automation Systems Enterprise Wide 
* EASE System for Dept. of Labor Running on LAN 

* Langton Clarke’s EXPERTAX in Use Since 1986 

* HP’s Interactive Hardware and Network Configuration 

¢ A Blend of Knowledge Automation Systems and 3-D Design 

* Nestle’s Real-Time Process Control with IBM Cooperative Effort 

¢ Systems Monitor Pacific Beli’s Front-End Computers 

+ EXSYS Streamlines ANVIL’s Tapes That Control Selection Process 

* U.S. Postal Service Electronic Performance Support Systems 

e Multimedia Integration Aids User in Analyzing and Diagnosing Problems 


培训 -维修 -故障 修理 


e System Keeps Compliance Support Up to Date for Businesses and Consultants 
* Troubleshooting System Prevents Power Outages 

e Tutorial Tool for Inexperienced Personnel 

+ 13 Years Running - Component Failure Prediction System Saves $Millions 

。 Profiling System Works in Tandem with Cross-Cultural Training 

e Interactive System Helps Train New Auditors 

* Troubleshooting Problems in Complex Equipment 

* System Brings Less Experienced Case Workers Quickly Up To Speed 

* System Assists New Judges 

* No Electricity? No Problem - Laptop Systems Provide Support in the Field 


512 附录 G 








* Training Tool Explains Recommendations and Brings in External Graphics 
* Classification System Makes Determination in Minutes 

* OSHA Heips Businesses Heip Themselves 

* NetHELP Provides 24-Hour Network Repair Assistance 

* Diagnostics System Helps in Training Programs 

* Portable Self-Paced Training Covers Operations Processing and Repairs 
* System Chooses Testing by Considering all Relevant Factors 

* Interactive Video/Trainer/Advisor 


研究 与 开发 -识别 


e Land Management System Assists Research Scientists 

* Agronomy Systems Combine “Expert Intuition” and Hard Data 

* Effective Cross Breeding Strategies via Genetic, Environmental Management 

e System Runs on Same Hardware as Machine Vision Programmer 

* Stratified Line Plot and Point Sampling Used in Forest Inventory System 

e GE’s System Identifies Metals in Non-Laboratory Setting 

* System for Invitro Program Speeds-Up Critical Decision Making 

* Improved Design Process Without Expensive Iterative Analyses 

* Diagnose and Locate Problems in Electrical, Mechanical or Fluid Systems 

* System Provides Relevant Staging, Prognostic and Therapeutic Information 

* Improved Accuracy for Charting and Geodetic Service 

* EXSYS Customized Interface Key to Real-Time System Success 

* Years of Experience Codified into Classification System 

* Turn Here When You Have to Work In Confined Spaces 

* Pacific Belf Monitoring, Repair and Prediction Systems 

* National Research Lab Systems Provide New Concepts 

* Diagnostic System Challenge Results in 100% Domain Expert Agreement 

« Scheduling System Combines Traditional Numeric Methods with Heuristic Rules 
* Rubber Research Institute Fields Systems in the “Field” 

* Sandia National Laboratory System Greatly Reduces Information Gathering Time 
* National Oceanic and Atmospheric Administration Prediction System 

* Support System in Latest Portable PC and Digital Technology 

* Voice Driven Interactive Diagnostic System Frees Eyes and Hands for Other Work 


能 源 - 工具- 油气 


© Unit Commitment Advisor for Power Generation Scheduling 

» Power Plant Outage Prevention and Maintenance Procedures 

* Invisibly Embedded System Handles Failure Prevention with Extreme Accuracy 

* Advisor for Fuel Delivery Systems 

* Nuclear Power Plant Automates Emergency Contingency Plan 

* Problem-Solving and Maintenance System Distributed to over 400 Client Installations 
* Pacific Gas & Electric Personnel Assistance 

* U.S. Department of Energy Classification Automation 

* Work Place Confined Spaces Compliance Systems 

¢ National Lab Numerically Controlled Machine Tool Selection 


工程 -计划 -调度 


。 Human-Factors Engineering Reduces Costly Operator Errors 

+ Material and Process Design Expertise From the “Get-Go” 

* Complex Configuration of Computer Integrated Manufactured Cells 

* Construction Simulation & Analysis 

+ Customized Diagnostics for Machine Vision System 

+ Eastman Distributes Top Engineering Expertise Enterprise 

* EPRI System Prevents Bearing Failures 

Highway Engineering Support for Earth-Moving Projects 

* Oil Analysis Saves $Millions By Predicting Component Failure 

e Fast and Specific Standards Interpretation for Engineers 

e GE Identifies Common Metals 

。 Mechanical Equipment Diagnosis in Electrical, Mechanical or Fluid Systems 

+ Real-Time Analysis Increases Power and Enables Multi-Tasking 

e Interactive Online and Downloadable Systems Help with Confined Spaces Permits 
e Monitoring, Repair and Prediction Handled Through Network System 

+ Power Generation Scheduling Incorporating Numeric and Qualitative Aspects 

e Numerically Controlled Machine Tool Selection 

* Total Productivity Support for U.S. Postal Service Mail Sorter 

° Major Oil Company Reduces Cost with Weld Procedure and Test Selection Systems 
* Traffic Control and Management Strategies for Construction 


安全 - 质量 控制 - 人 力 资 源 
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* Asbestos Advisor System Honored in Vice President’s “Best Practices” Award 

* Disaster Manager’s Emergency Management System 

+ Interactive Corporate Family Support for Overseas Assignments 

* Career Goal Advisor Assists Supervisors with Development Planning 

* Unemployment Eligibility Determination with Data Access and Automated Reports 
¢ Tremendous Time Savings, Nothing Overlooked and Site-Specific Report 

* Better Human-Factors Design Provides Safer Plant Operation 

* Case Worker Advisor Provides Equitable, Effective Welfare Administration 

* In-the-Field System Provides Quick Indexing and Reference to Safety Precautions 
e Nestle Pension Fund Advisor Distributed to all Personne! Departments 

* Public School Disciplinary Action Advisor 

e Nuclear Weapons Security Classification 

+ Thousands Access System Which Provides Safer, Healthier Work Place 

e Automated Student Advising System Provides Individualized Assistance 

¢ Advisors Help Farm Operations Management 

¢ Fast Storm Forecasting in Limited Time Frame 

e Work Zone Planning, Safety and Design Aid 


规划 /环境 /政策 保护 


e Interactive Regulatory Compliance Assistance 

* Environmental Compliance Support System 

* Public School Disciplinary Action Advisor 

¢ Counter Measures for Nuclear Power Station Emergencies 

。 System Handles More than 400 Questions a Week 

e Wildlife Population Protection and Trapping Regulations System 

« System Detects Situations and Concerns in Overseas Relocations 

¢ Online Help for Choosing a Legal Business Structure 

* National Fire Code and Environmental Permit Advisor 

e System Facilitates Transition of Welfare Program to Navajo Nation 

+ Organizational Policy on Development Goals 

e Incorporating Environmental and Management Constraints 

e Increasing Quality and Uniformity of Legal Procedures 

e EPRI Reduces Forced Plant Outages with Maintenance Procedures System 
«In the Field Procedural Assistant 

* Consistency & Reduced Subjectivity for Marine Service Organization 
e Pension Fund Advisor Conforms with Standards 

« System Interprets over 100 Classification Guides 

* Environmental Conditions Factor into Tree Selection 

+ Severe Thunderstorm Prediction 

* Major Oil Company Reduces Costs with Selection of Qualification Tests 


制造 -过程 控制 -预防 


+ Increased Performance, Productivity, Optimization and Overall Quality 

* Nestle Foods Install Real-Time Applications 

+ Set of Systems Handle Monitoring, Repair and Prediction 

e Bidding, Control and Productivity Analysis for Total Cost Evaluation 

* Customized Port for Diagnostics for Machine Vision System 

* Eastman Distributes “Know-How” Enterprise-Wide 

» Fast Prediction Using External Calls and Complex Mathematical Calculations 
+ Complex Product Configuration of Computer Integrated Manufactured Cells 
e GE Identifies Common Metals 

* Optimized Control Panel Layout Reduces Costly Operator Errors 

e Linear Programming Interface Optimizes Management Modules 

+ Numerical and Qualitative Rules Solve Scheduling Problems 

e System Automates Appropriate Tool Selection 

e Multimedia Electronic Repair Support Systems 

* Voice Driven Diagnostics and Frees Hands for Other Work 

* Procedure Selection System with Time Estimates and Material Requirements 
* Selecting Appropriate Control and Management Strategies 


政府 -军事 -航空 

* OSHA Compliance Advisor Helps Thousands 

* SBA Legal Business Structure Recommendation Wizard 

* System Identifies Potential Problems Before Overseas Assignments 

。 Federal Money Approval System for Major Construction 

e Assistance for State Magistrate Court Judges 

¢ Los Alamos National Laboratory Support System 

* Public Schoo! Disciplinary Action Advisor 

。 Emergency Support System for Security Bureau 

e American Association of State Highway and Transportation Equipment Selector 
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* Claimants Unemployment Compensation Determination 

* Oil Analysis Saves U.S. Air Force over $100 Million 

° U.S. Dept. of Commerce - 40% Higher Accuracy for U.S, Nautical Charts 
e U.S. Dept. of Energy Security Classification 

* Case Worker Advisor 

° U.S. Dept. of Labor Saves Time, Resources and Taxpayer Money 

* US. Dept. of Agriculture Planning Modules - Higher Yield/Less Water & Pesticides 
* Sandia National Laboratories Machine Tool Selection 

» Alaska Department of Fish and Game System 

* National Oceanic and Atmospheric Admin. Severe Thunderstorm Prediction 
* U.S. Postal Service Total Organization Productivity Support 

» Federal Highway Administration Work Zone Safety Manager 


第 2 章 

Ulf Nilsson and Jan Mahuszynski, Logic Programming and PROLOG， 第 二 版 ，2000。 一 个 可 以 免费 
下 载 的 在 线 书 籍 。PROLOG 是 专门 为 反 向 链 设计 的 语言 ， 它 与 LISP 是 仍 在 使 用 的 经 典 人 工 智 能 语言 。 
http: //Awww.ida.liu.se/~ ulfni/pp/. 许多 额外 的 教学 资源 可 以 从 Nilsson 的 站 点 下 载 。http: // 
www. ida. liu.se/~ ulfni/teaching.shtml. Nilsson 的 书 提供 了 对 知识 表示 、 侵 辑 程序 设计 和 例子 的 比 第 
2, 章 内 容 更 详细 的 介绍 

特殊 的 语言 例如 KQML 已 经 被 开发 出 来 用 于 知识 表示 和 查询 : http: /Avww.cs.umbc. edu/kqml/ 

Dave Hannay 的 站 点 允许 你 尝试 有 限 状 态 机 和 其 他 不 同类 型 的 编译 器 去 识别 教学 材料 中 的 符号 。 
http: //scoter3. union. edu/~ hannayd/esc140/simulators/ 

Doug Lenat 关于 常识 和 人 工 智能 在 线 演讲 : 

http: //murl. microsoft. com/LectureDetails.asp? 1032。 他 因 开 发 OpenCyc，Cyc 技术 的 开源 版 本 
(http: //www.cyc.com/cyc/technology/whatiscyc) THM, Cyc 是 世界 上 最 大 最 完整 的 通用 知识 库 和 常 
识 推 理 引 擎 。 他 同时 因 其 在 本 书 中 提 到 的 Automated Mathematician (AM) 和 Eurisko 中 的 自动 数学 发 
现 的 开创 性 工作 而 闻名 。 

形式 方法 。 有 许多 人 逻辑 资源 的 主要 站 点 : 

http: //archive. comlab .ox.ac.uk/comp/formal-methods. html 

通过 归纳 学 习 规则 的 软件 。Windows 平台 的 VisiRex 2.0， 包 括 试用 版 本 ， 可 从 CorMac Technolo- 
gies, Inc 公司 获取 。 还 可 获取 其 他 两 种 方法 ， 经 典 backprop 和 神经 网 络 SEAM。 软 件 还 带 有 很 好 的 例 
F: http: //cormactech.com/visirex/faq. html 


数据 挖掘 资源 和 软件 
Data mining success stories, X 自 Complexicas 公司 ， 提 供 数据 控 气 工具 和 服务 。http: // 


internet. cybermesa. com/ ~ rfrye/complexica/dm _ em. htm 

归纳 机 器 学 习 的 经 典 软件 是 Ross Quinlan 的 ID3， 后 来 增强 到 C4.5。 连 同 其 他 论文 和 幻灯 片 可 以 
从 他 的 个 人 主页 获取 : http: /Avww.cse.unsw.edu.au/~ quinlan/. ft Be ut Ay ARIE HR TA See3 和 CS 
提供 了 比 C4.5 更 强 的 功能 ， 可 以 从 其 公司 购 得 : http: //www. rulequest.com/ 

大 量 的 程序 集 。 关 于 数据 挖掘 、 决 策 树 构造 、 使 用 神经 网 络 分 析 数 据 、 统 计 、 模 糊 技术 : “http: // 
www. the-data-mine. com/bin/view/Software/WebIndex 

大 量 的 数据 库 、 领 域 理 论 和 数据 生成 器 集合 ， 可 用 于 测试 机 器 学 习 算 法 http: //www. ics. uci. edu/~ 
mjearn/MLRepository.html 

大 量 用 于 机 器 学 习 算法 的 C++ 类 库 。 可 以 开发 数据 挖 据 和 可 视 化 工具 : http: //www.sgi.com/ 
tech/mle/。 因 为 这 些 代 码 用 C++ 开发 ， 你 可 以 很 容易 地 为 这 些 任务 编写 CLIPS 函数 ， 然 后 重新 编译 
CLIPS 以 优化 性 能 。 在 本 书 附带 的 光盘 中 提供 了 CLIPS 的 完整 C++ 代码 。 

各 种 领域 的 大 数据 集 集 合 。 可 用 于 测试 数据 挖掘 工具 。 当 你 开发 自己 的 CLIPS 数据 挖掘 版 本 时 会 
发 现 这 些 数据 非常 有 用 : http: //kdd. ics. uci. edu/ 
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alphaWorks: 一 个 用 于 数据 挖掘 和 其 他 很 多 应 用 的 产品 。http: //www. alphaworks. ibm. com/ 
Home/ 

创建 超 链接 语义 网 的 优秀 软件 工具 。 免 费 而 且 功 能 强大 。 可 以 用 于 以 可 视 化 的 形式 表达 知识 专家 
知识 。 一 个 好 的 知识 获取 工具 ， 知 识 获取 在 第 6 章 中 有 讨论 。 附 带 全 世界 用 户 提供 的 很 多 例子 。 如 果 
你 注册 到 邮件 列表 中 ， 将 收 到 大 量 西班牙 语 的 电子 邮件 : http: //cmap.ihme. us/ 

Tap 是 一 个 知识 库 ， 用 于 辅助 可 机 读 的 语义 网 的 构造 (http: /Avww. w3.org/2001/sw/), FRR 
当前 万 维 网 WWW。 可 以 从 以 下 网 址 得 到 更 多 链接 : 
http: //www. iturls. com/English/TechHotspot/TH _ SemanticWeb. asp 

目前 人 们 只 能 使 用 初级 布尔 运算 对 web 进行 关键 词 搜索 。 尽 管 web 站 点 正在 转化 成 专门 领域 的 
XML 语言， 如 MusicXML, RuleXML, MathXML 等 ， 它 们 是 机 器 可 读 的 。 但 在 语义 上 下 文中 ，TAP 
将 对 现实 世界 和 当前 事件 有 更 多 了 解 。 

TAP 是 一 个 浅 的 但 广泛 的 知识 库 ， 包 括 广泛 范围 内 流行 对 象 的 基本 词典 和 分 类 学 信息 ， 例 如 音 
乐 、 电 影 、 作 者 、 体 育 、 汽 车 ,， AR, ZA, HR, BULA, a. RRS. TPR 
下 来 测试 不 同类 型 的 专家 系统 。 它 基本 上 是 浅 的 本 体 ， 也 就 是 说 它 是 Cyc 的 补充 而 不 是 取代 Cyc， 因 
为 Cyc 是 关于 常识 现象 的 深 的 本 体 ，Cyc 不 包括 当前 事件 ， 如 : 谁 是 Yo-Yo Ma? 学 生 的 研究 项 目 可 以 
基于 TAP: http: //tap. stanford. edu/tap/tapkb. html 

知识 表示 系统 中 的 传统 家 族 ， 针 对 只 要 求 有 限 的 表达 能 力 ， 但 需 快速 回答 问题 能 力 的 应 用 。 语 义 
网 络 具有 的 大 多 数 特征 传统 家 族 也 都 具有 。 它 允许 用 户 表 达 其 他 知识 表示 系统 和 面向 对 象 程序 设计 语 
言 里 的 描述 、 概 念 、 角 色 、 个 体 、 规 则 、 框 架 等 。 其 中 最 令 人 感 兴趣 的 是 概念 将 被 自动 分 类 ， 而 对 象 
将 自动 地 继承 。 

传统 家 族 可 以 发 现 信息 中 所 存在 的 不 一 致 性 〈 这 也 是 为 什么 它 可 以 在 电话 推销 员 来 电 时 回答 电话 ， 
或 者 删除 告诉 你 如 何 通过 帮助 一 个 外 币 存款 来 获得 1 千 万 美元 收入 的 垃圾 邮件 )。 

传统 家 族 有 3 个 成 员 。 他 们 是 (1) LISP 版 本 ， 用 于 研究 ，(2) C 版 本 和 (3) 用 C++ 编写 的 Neo- 
Classic 版 本 。 传 统 家 族 被 用 于 PROSE 和 QUESTAR 中 来 配置 产品 ,已 经 配置 了 价值 超过 和 0 亿美 元 的 
AT&T M Lucent 产品 。 更 多 细节 可 参看 http: //www. bell-labs. com/project/classic/. 

Rule Markup Initiative，RuieML， 是 一 个 依据 标准 的 正 向 反 向 链 方 式 进行 规则 推理 的 项 目 ， 因 此 
对 不 同 专家 系统 都 机 器 可 读 。 另 一 个 相关 的 项 目 是 RuleXML AA, AMESAKENZARA. 
RuleML 的 站 上 点: http: //www.ruleml.org/ 

为 规则 创建 一 种 单一 的 统一 格式 ， 而 不 是 使 用 不 同 的 编码 风格 ， 将 有 利于 不 同 专家 系统 之 间 的 知 
识 交换 。 目 前 没有 针对 不 同 专家 系统 交换 知识 的 标准 方法 ， 因 为 每 一 个 专家 系统 工具 使 用 自己 的 语法 
规则 。 这 是 一 个 大 的 项 目 ， 具 有 潜在 的 巨大 研究 回报 。 基 本 上 来 说 ， 它 类 似 重 用 软件 而 不 是 每 次 开始 
一 个 新 专家 系统 的 构建 。 最 能 实际 应 用 的 是 CLIPS 中 的 对 象 ， 因 为 对 象 是 良 定义 的 ， 它 可 以 在 不 同 的 
CLIPS 专家 系统 间 交 换 。 尽 管 Jess 用 面向 对 象 的 语言 Java 开发 ,但 2004 的 Jess 不 支持 规则 中 的 对 象 ， 
例如 COOL. Jess 最 大 的 好 处 在 于 能 典 和 人 宿主 语言 java 中 。 

也 正 因为 对 象 包含 了 数据 、 方 法 和 良 定义 接口 ， 它 就 更 容易 建立 大 型 的 专家 系统 。 建 立 面向 对 象 
的 混合 规则 系统 是 巨大 的 挑战 。 自 从 1986 年 发 布 以 来 ，CLIPS 的 每 一 个 版 本 都 在 持续 修订 和 严格 调 
试 。 但 是 还 有 很 多 充满 诱惑 的 特性 可 以 加 入 ,例如 反 向 链 、 模 糊 逻 辑 、 贝 叶 斯 等 。 为 了 保持 其 简单 和 
健壮 ， 我 们 一 直 限 制 着 这 些 诱惑 ， 以 便 人 们 可 在 一 个 稳定 的 软件 基础 上 去 建立 系统 。 这 样 的 处 理 方法 
很 有 效 ， 你 可 以 看 到 很 多 的 后 续 版 本 提供 各 种 各 样 的 新 功能 。 


逻辑 软件 资源 


很 多 人 工 智能 技术 正 被 用 于 自动 化 推理 过 程 ， 利 用 推理 人 们 可 处 理 逻 辑 。 事 实 上 ， 这 是 人 工 知 能 
面 对 的 最 早 挑战 ， 重 复数 学 家 的 符号 推理 过 程 而 不 是 数字 计算 机 器 。 虽 然 千 百 年 来 ， 机 器 已 经 用 于 所 
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供 成 倍 于 人 类 的 力量 ,或 者 简单 的 设备 例如 算盘 用 于 算术 , 但 现在 历史 上 第 一 次 ， 人 类 思维 的 智能 面 
临 着 证 明 符号 数学 定理 的 挑战 。 


Bit 
在 专家 系统 领域 ， 在 与 一 个 领域 知识 的 专家 交流 中 ， 廖 论 研究 很 重要 。 有 了 时 甚至 专家 也 会 出 现 逻 
辑 廖 论 ， 或 者 你 误解 专家 所 说 而 产生 了 一 个 廖 论 。 你 需要 在 把 专家 知识 放 人 数据 库 前 证 实 其 正确 性 。 
比 第 6 章 更 完整 的 廖 论 列表 提供 在 此 附录 中 。 
好 的 演绎 逻辑 雇 论 的 描述 和 例子 ;http: /Avebpages. shepherd. edu/maustin/thetoric/deductiv. htm 
HAPE: http: //webpages. shepherd. edu/maustin/rhetoric/inductiv. htm 
其 他 逻辑 廖 论 的 列表 : http: /Avebpages. shepherd . edu/maustin/rhetoric/fallacies. htm 
Critical Thinking on the Web 有 很 多 逻辑 、 在 线 向 导 以 及 很 全 面 的 廖 论 列 表 ; hop: //www.austhink.org/ 
critical/ 
逻辑 软件 
以 下 所 选 软件 可 以 从 因特网 中 获得 ， 覆 盖 了 有 关 膛 辑 的 广阔 主题 ， 可 以 用 于 检查 你 的 逻辑 问题 的 
答案 ， 观 察 自动 推理 等 。 这 些 关 于 逻辑 和 其 他 参考 的 教育 软件 的 信息 获得 了 Hans van Ditmarsch, hans 
@cs.otago.ac.nz 的 许可 ， 请 从 其 主页 获取 最 新 版 本 : http: /Avww.cs.otago.ac. nz/staffpriv/hans/logic- 
courseware. html 
Akka, http: //turing. wins. uva. nl/~ [hendrik/AkkaStart. html 
功能 : 可 证 明志 种 逻辑 公式 ， 验 证 模型 中 的 公式 ， 推 导 和 编辑 Kripke 模型 以 及 动态 逻辑 模型 
平台 : web 
开发 者 : Lex Hendriks, ILLC, Amsterdam KÆ, W= 
email: [hendrik@illc. uva. nl 
Alfie, http: //www.cs. chalmers.se/~ sydow/alfie/index . html 
功能 : 命题 逻辑 的 自然 演绎 
台 : web 
开发 者 : Björn von Sydow， 计 算 机 科学 系 ，Chalmers 大 学 ，Gateborg， 瑞 典 
email: sydow@cs.chalmers.se 
注释 : ASCII 接口 
Aristotle, http: //Awww.utexas. edu/courses/plato/aristotle. html 
功能 : 形式 化 英语 句子 为 符号 逻辑 
平台 : Windows95/98/NT 
开发 者 : 
email: marcow@cs.utexas.edu, Robert C. Koons: rkoons@mail. utexas. edu 
Athena Software, http; //www.athenasoft.org/ 
功能 : 层次 结构 化 辩论 及 其 支持 ， 采 用 树 形 图 形 化 界面 ; 对 否定 式 也 有 类 似 的 工具 
平台 : Windows 
开发 者 : Bertil Rolf, Blekinge 工学 院 , 瑞典 ， 以 及 其 他 人 
email: info@athenasoft.org, bertil. rolf{@bth. se 
书籍 : 各 种 在 线 文档 ，PPT 文件 等 
注释 : 也 可 用 于 中 学 ， 教 师 教学 的 支持 资料 ，2003 年 加 入 列表 
Bertie3, http: //137.99.26.4/~ wwwphil/SOFTWARE. HTML 
功能 : 命题 逻辑 和 谓词 逻辑 的 自然 演绎 
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平台 : DOS, Windows 
开发 者 : Austen Clark, Connecticut KY, #H 
email; austen. clark@uconn.edu 
书籍 : Merrie Bergmann, Jim Moor, and Jack Nelson, The Logic Book, 2nd edition. McGraw Hill, 1992 
注释 : 可 作为 GNU Public Domain License 软件 获取 a 
Bertrand, http: //www.uwosh. edu/faculty _ staff/herzberg/Bertrand. html 
功能 ; 场景 式 的 谓词 逻辑 公式 有 效 性 测试 
平台 : Apple ; 
FRH.: Larry A. Herzberg, Wisconsin - Oshkosh 大 学 ， 美 国 
email ，herzberg(@vaxa.cis.uwosh.edu 
注释 : 2003 年 更 新 
blobLogic, http: //users.ox.ac.uk/~ univ0675 /blob/ 
功能 : 命题 逻辑 和 谓词 逻辑 的 语义 场景 
平台 : web (需要 下 载 Shockwave) ，Mac，PC 
开发 者 : Corin Howitt, Oxford 大 学 ， 英 国 . 
email: corin. howitt@ philosophy .ox.ac. uk 
书籍 : 无 
注释 : 在 线 的 证 明 演 示 ;， 保存 /上 传 到 服务 器 ; 交互 向 导 ; 模 态 逻辑 的 版 本 随后 发 布 ; 2003 年 加 入 列 
表 
blogic, http: //www.umich. edu/~ velleman/ogic/ 
功能 : 布尔 搜索 ,逻辑 电路 ， 真 值 表 ， 带 可 能 世界 图 的 模 态 逻辑 的 语义 ， 量 化 
平台 : web 
开发 者 : David Velleman, Michigan 大 学 ， 美 国 
email; velleman@umich. edu 
书籍 : 这 是 一 本 交互 式 教材 
注释 : 2003 年 加 入 列表 
Boole, http: //www-csli. stanford. edu/LPL/ 
功能 : 真 值 表 
平台 : Windows, Apple 
开发 者 : John Etchemendy, Stanford 大 学 ， 美 国 ， Jon Barwise, Indiana 大 学 ， 美 国 
email: Dave Barker-Plummer, dbp@csli.stanford.edu, 或 用 户 支持 ，LPLbugs@csli.stanford.edu 
书籍 : John Etchemendy&Jon Barwise, Language, Proof and Logic. CSLI Publications, 2000. 注意 : 这 个 
出 版 社 在 其 网 站 上 发 布 了 大 量 关于 逻辑 的 书 ，http: //www-csli. stanford. edu/ 
注释 : 这 本 书 带 有 软件 : Fitch, Boole, and Tarski’ s World。 一 个 可 补充 任何 逻辑 教材 的 广泛 使 用 的 一 
阶 逻 辑 软 件 。 以 可 视 化 图 形 世界 表示 逻辑 命题 。 
Expression Evaluator, http: //www.cc. utah. edu/~ nahaj Aogic/evaluate/ 
功能 : 语义 (解释 ) 评估 命题 和 谓词 逻辑 公式 
平台 : web 
开发 者 : John Halleck, Utah 大 学 ， 美 国 
email; John. Halleck@utah. edu 
书籍 : 无 
注释 : 链接 到 其 他 网 页 资源 ( 模 态 逻辑 ) 
Fitch, http; A//www-csli. stanford.edu/LPL 
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功能 : 谓词 逻辑 的 自然 演绎 
平台 : Windows，Apple 

开发 者 : John Etchemendy, Stanford 大 学 ， 美国，Jon Barwise，Indiana 大 学 ， 美 国 
email: Dave Barker-Plummer，dbp(@csli. stanford.edu， 或 用 户 支 持 LPLbugs@csli. stanford. edu 
书籍 : John Etchemendy&Jon Barwise, Language, Proof and Logic .CSLI Publications, 2000. 
注释 : 这 本 书 带 有 和 软件: Fitch, Boole, and Tarski’ s World. 
Gateway to logic, http: //logik. phl. univie. ac. at/~ chris/formular-uk. html 
功能 : 谓词 逻辑 的 自然 演绎 (Lemmon- 和 Fitch eH), AR 
台 : web 
FEK.: Christian Gottschall (Vienna 大 学 ， 奥 地 利 ) 

email; gottschall@gmx.de 

书籍 : 无 
注释 : 具有 英文 和 德 文 
Hexagon, http: //www. science. uva. nl/projects/opencollege/cognitie/hexagon/ 
功能 : 认识 逻辑 中 的 公共 更 新 

台 : web 

FRE: Jan Jaspars, 自由 激进 派 逻辑 学 者 ，Amsterdam 大 学 ,荷兰 

email; jaspars@ science. uva. nl 

书籍 : 无 

注释 : 荷兰 语 (Amsterdam 大 学 的 额外 课程 软件 ) 

Hyperproof, http: //csli-www. stanford . edu/hp/ 

功能 : 谓词 逻辑 的 自然 演绎 ， 可 视 化 推理 

平台 : Apple 

开发 者 : John Etchemendy, Stanford 大 学 ， 美 国 ; Jon Barwise, Indiana 大 学 ， 美 国 
email: dbp@csli.stanford.edu (Dave Barker-Plummer) 

书籍 : Hyperproof, John Etchemendy and Jon Barwise, CSLI publications, 1994 
注释 : 

Inference Engine, http: //blue. butler. edu/~ sglennan/InferenceEngine. html 

功能 : 

平台 : Mac, PC 

开发 者 : Stuart Glennan 

email: sglennan®@ butler. edu 

书籍 : Joseph Bessie and Stuart Glennan, (Elements of Deductive Inference) 

http: //blue. butler. edu/~ sglennan/Elements. html, Wadsworth 2000 

注释 : 
Interactive Logic Programs, http: //www.thoralf.uwaterloo.ca/htdocs/LOGIC/st _ ilp. html 
功能 : 命题 逻辑 的 真 值 表 ， 词 语 统一 

台 : web 

FEK: Stanley N.Burris，Waterloo 大 学 ， 加 拿 大 

email: snburris@thoralf.uwaterloo.ca 

书籍 : Logic for Mathematics and Computer Science, Prentice-Hall, 1998 
注释 : 2003 年 加 入 列表 
Jape, http: //www .jape.org.uk/ 
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功能 : 经 典 谓词 逻辑 的 自然 演绎 和 序列 证 明 ; 以 及 各 种 其 他 逻辑 和 形式 系统 ; 以 及 用 户 定义 逻辑 
平台 : MacOSX, Unix, Linux, Solaris 

开发 者 : Bernard Sufrin, Oxford 大 学 ， 英 国 ; Richard Bornat, QMW, 伦敦 ,英国 
email; Bernard. Sufrin@comlab.ox.ac.uk, richard@des.qmw.ac.uk 

书籍 : 待 出 版 

注释 : Jape Æ “just another proof editer” 的 缩写 。2003 年 更 新 

JOJ-logics: The Propositional Proof Generator , 

http: //pgs. twi. tudelft. nl/~ tonino/teaching/JOJ-logics/JOJ-Logics. html 

功能 : 真 值 表 和 命题 逻辑 的 自然 演绎 

台 : web 

开发 者 : Jonne Zutt and Joost Broekens, Delft 大 学 W= 

email; j.zutt @ twi.tudelft.nl, d.j.broekens @ twi.tudelft.nl 或 导师 Hans Tonino: J.F.M. Tonino @ 
its. tudelft. nl 

注释 : M.Sc. 学 生 项 目 ， 无 证 明 编 辑 

LICS web tutor, http: //www. cis. ksu. edu/~ huthAlics/tutor/ 

功能 : 关于 各 种 逻辑 主题 的 MC 问题 和 答案 ， 包 括 模 态 

平台 : web 

开发 者 : Michael Huth and Marc Ryan, 计算 机 学 院 ，Birmingham 大 学 ， 英 国 
email: M.Huth@doc.ic.ac.uk, M.D.Ryan@ces.bham.ac.uk 

书籍 :《Logic in Computer Science), 2nd Edition, Cambridge University Press, 2004 
注释 : 

Logic Animations, http: //turing.wins.uva.nl/~jaspars/animations/ 

功能 : 命题 、 谓 词 、 动 态 、 模 态 逻 辑 的 语义 计算 

平台 : web 

开发 者 : Jan Jaspars, 自由 激进 派 逻 辑 学 者 ，Amsterdam 大 学 ， 荷 兰 

email; jaspars@ science. uva. nl 

书籍 : 无 

注释 : 基本 上 是 荷兰 语 

Logic Cafe, http: //www. oakland. edu/phil/cafe/ 

Shae: 真 值 表 ， 谓词 逻辑 辩论 ，MC 问题 

平台 : web (Linux, Mac public domain versions) 

开发 者 : John Halpin, Oakland AY, HH 

email: halpin@oakland. edu 

书籍 : 在 线 

注释 : 在 线 的 逻辑 课本 ， 附 带 基 于 web 的 练习 ，public domain 版 

Logic Daemon, http: //logic. tamu. edu/ 

功能 : 谓词 逻辑 的 自然 演绎 


台 : web 


开发 者 ; Colin Allen, Texas A&M 大 学 ， 美 国 

email: colin-allen@ tamu. edu 

书籍 : Colin Allen and Michael Hand, Logic Primer (2nd ed.), MIT Press, 2001. 
注释 : ASCH 接口 

Logic for Fun, http: //csl.anu.edu.au/~ jks/puzzlesite/ 
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功能 : 表达 一 阶 逻 辑 中 的 疑问 和 其 他 问题 
平台 : web 
开发 者 :John Slaney, 澳大利亚 国立 大 学 
email; John. Slaney@anu. edu. au 
Logic Toolbox, http: //philosophy. lander . edu/~ jsaetti/ Welcome. html 
功能 : 三 段 论 ， 真 值 表 ， 命 题 逻 辑 的 自然 演绎 
台 : web，windows 
开发 者 : John Saetti 
email: john. saetti@gcced. net 
LogicCoach Hf and IV, http: //academic. csuohio. edu/polen/ 
SORE: 非常 全 面 的 软件 ， 协 助 网 站 中 列 出 的 各 种 不 同 逻 辑 书籍 的 逻辑 教学 。 包 括 了 辩论 图 、 定 义 、 廖 
论 、 类 比 、Mill 方法 、 概 率 、 范 畴 论 、 标 准 化 、 三 段 论 、 省 略 三 段 论 、 复 合 三 段 论 、Venn 图 、 符 号 逻 
辑 、 转 化 : 英语 为 符号 、 转 化 : 符号 到 英语 、 逮 辑 表 格 、 真 值 表 、 间 接 真 值 表 、 量 化 、 同 一 、 证 明 、 
树 
平台 : Windows，Apple 
FRK: Nelson Pole, Cleveland 州立 大 学 ，Ohio， 美 国 
email: n.pole@csuohio. edu 
书籍 : Patrick Hurley, A Concise Introduction to Logic, 8th edition, Wadsworth, 2003 
TER: 提供 教学 指导 包 ，2003 年 更 新 
Logics Workbench, http: //www.|lwb. unibe.ch/ 
功能 : 命题 逻辑 中 的 证 明和 计算 〈 最 小 化 ， 直 党 主义 ， 经 典 的 ， 模 态 ， 非 单调 ) 
平台 : web, Apple, Linux, Solaris 
FEK.: Gerhard Jager (项 目 负责 人 ) Peter Balsiger, Alain Heuerding, Stefan Schwendimann, Bern KÆ, 
瑞士 
email; lwb@iam. unibe. ch 
书籍 : 扩展 的 在 线 手册 
注释 : 无 证 明 编 辑 
LogicWorks, http: //www. pdcnet.org/logicwo. html 
功能 : 真 值 表 ， 辩 论 分 析 〈 通 过 例子 )， 廖 论 (通过 例子 ) 
平台 ; PC, Apple (2000 年 版 ) 
开发 者 : Rob R.Brady, Stetson 大 学 ， 美 国 
email: (订购 者 ) order@pdcnet.org 
注释 : 由 Philosophy Documentation Center 发 布 ，http: //www.pdcnet.org。 提 供 教学 指导 包 
MacLogic, http: //www-theory.dcs.st-and.ac.uk/~ rdlogic/soft. html 
功能 : 谓词 逻辑 (最 小 化 ， 直 觉 主义 ， 经 典 的 )， 自 然 演绎 ， 序 列 演算 
平台 : Apple 
开发 者 : Roy Dyckhoff, St Andrews 大 学 ， 苏 格 兰 ， 英 国 
email; rd@dcs. st-andrews.ac.uk 
书籍 : 可 选 的 ，G. Forbes,，Modern Logic, Oxford University Press, 1993 
注释 : 没有 更 新 到 当前 版 本 的 MacOS 
New Pandora, http: //www.doc.ic.ac.uk/~ kb/NewPandora.html 
功能 ; 谓词 逻辑 的 自然 演绎 


平台 : web 
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开发 者 : Krysia Broda, 计算 机 系 ，Imperial 4B, CA, 英国 
email; kb@doc.ic.ac. uk 
注释 : 基于 “Pandora” 
Paul Tomassi, Logic, http: //www.oxford-virtual.com/Philosophy/Tomassi/ 
功能 ; 命题 和 谓词 逻辑 S 
平台 : web 
开发 者 : Oxford Virtual Technology 
书籍 : Paul Tomassi, Logic, Routledge, 1999 
注释 : 提供 配合 课本 的 网 站 指导 
Pier, http: //gentzen. math. hc. keio. ac. jp/ 
功能 : 交互 式 证 明 编 辑 器 ， 自 然 演绎 
台 : web 
开发 者 : Masaru Shirahata，Keio 大 学 , 日 本 
email: sirahata@math.hc.keio.ac.jp 
注释 ， 编写 成 一 个 Java Applet 和 应 用 程序 
Plato, http: //www .utexas.edu/courses/plato/ 
功能 : 命题 证 明和 谓词 演算 
平台 : PC, Mac 
FRE: 
email: marcow@cs.utexas.edu, Robert C. Koons: rkoons@mail. utexas.edu 
书籍 Robert C. Koons, A Logical Toolbox, 2000 
注释 : 
Power of Logic, http: //Awww. poweroflogic.com/ 
功能 : 各 种 逻辑 主题 ， 证 明 检 查 


@: web 


开发 者 : 

email: webmaster@ poweroflogic.com 

书籍 ; C.Stephen Layman, The Power of Logic (2nd ed. ), McGraw Hill. 

注释 : 

Program to learn Natural Deduction in Gentzen-Kleene’ s style, http: //193.51.78.161 /dnfn/deductio- 
neng. html l 
功能 : 谓词 逻辑 的 序列 式 自然 演绎 ; 正规 形式 计算 

平台 : DOS 

开发 者 : Patrice Bailhache, Nantes 大 学 ， 法 国 

email: patrice. bailhache@humana. univ-nantes. fr 

注释 : 由 Nantes (法 国 ) 哲学 学 生 使 用 

Reason! Able, http; //www. goreason . com 

功能 : 可 视 化 的 辩论 表达 

平台 ，Windows 95 及 其 高 版 本 

开发 者 : Tim van Gelder, Melbourne 大 学 ， 澳 大 利 亚 

email: info@goreason.com 

注释 : 教学 资源 


Socrates, http: //Awww. utexas. edu/courses/socrates/ 
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功能 : 语义 场景 

平台 : PC 

开发 者 : 

email: marcow@cs.utexas.edu, Robert C. Koons: rkoons@mail.utexas. edu 

书籍 : Robert C. Koons, A Logical Toolbox, 2000 

注释 

Tarski’ s World, http: //csli-www. stanford. edu/hp/ 

功能 : 谓词 逻辑 语义 解释 

平台 ; Windows, Apple 

开发 者 :John Etchemendy, Stanford 大 学 ， 美 国 ，Jon Barwise, Indiana 大 学 HH 

email: dbp@csli.stanford.edu (Dave Barker-Plummer) 

书籍 :The Language of First-order-Logic (3rd edition), John Etchemendy and Jon Barwise, CSLI publica- 
tions, 1994 (LAR: Tarski “Lite”, 作者 同上 ; Language, Proof and Logic) 

注释 : 著名 例子 ， 包 括 Hintikka 游戏 (语义 场景 ) 

TPS and ETPS, http: //gtps. math. cmu. edu/tps. html 

功能 : 一 阶 逻 辑 或 高 阶 逻 辑 (类 型 理论 ) 的 交互 定理 证 明 

平台 : Unix, Windows, web 

开发 者 : Peter B. Andrews, Carnegie Mellon 大 学 ; 以 及 其 他 人 

email; andrews@cmu. edu 

书籍 : Peter B. Andrews, An Introduction to Mathematical Logic and Type Theory: To Truth Through 
Proof, 2nd. Edition, Kluwer Academic Publishers, 2002 

注释 : 还 可 参看 “ETPS: A System to Help Students Write Formal Proofs”, 在 http: // 
gtps. math. cmu. edu/tps-papers.html, 2003 年 加 入 列表 

Twootie, http: //137.99.26.4/~ wwwphil/SOFTWARE. HTML 

功能 : 计算 命题 逻辑 和 谓词 逻辑 的 真 值 

平台 : DOS，Windows 

开发 者 ，Austen Clark, Connecticut 大 学 ， 美 国 

email: austen.clark(@uconn.edu 

书籍 ， Merrie Bergmann, Jim Moor, and Jack Nelson, 《The Logic Book}), 2nd edition. McGraw-Hill, 
1992. Richard Jeffrey, Formal Logic: (Its Scope and Limits), 3rd edition, McGraw-Hill, 1991 

注释 : 作为 GNU Public Domain License 软件 ， 可 以 获取 


定理 证 明 


更 复杂 的 软件 ， 称 为 定理 证 明 器 ， 自 动 推理 或 者 机 器 推理 用 于 逻辑 方面 的 高 级 工作 。 

机 器 推理 主页 http: //www-formal. stanford. edu/clt/ARS/ars-db. html 

World Wide Web Virtual Library: Formal Methods。 收 集 了 大 量 逻 辑 工具 和 语言 验证 器 : http: // 
vl. fmnet. info/ 

形式 方法 教育 资源 http: //www. cs. indiana. edu/formal-methods-education/ 

Logik Software fir Unterrichtszwecke (德语 ) : 
http: //www. phil-fak . uni-duesseldorf . de/logik /software. html 

现存 机 器 推理 系统 数据 库 。 一 个 巨大 的 资源 描述 和 链接 : 
http: //www-formal. stanford. edu/clt/ARS/systems. html 

逻辑 程序 与 教学 辅助 ， 定 理 证 明 器 和 语言 。 
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http: //home. clara. net/ghrow/subjects/logic _ software. html 

Newsletter on Philosophy and Computers: 
http: //www. apa. udel. edu/apa/publications/newsletters/computers. html 

A landmark Turing Test, 76 2000 年 春天 展示 ， 是 图 灵 预 测 50 年 内 计算 机 能 够 通过 他 的 测试 的 50 
周年 纪念 。 昌 然 人 们 能 很 快 判断 出 计算 机 ， 但 有 趣 的 是 也 有 人 会 误 认 另 一 些 人 是 计算 机 。 因 此 ， 计 算 
机 取代 人 类 还 需要 一 定 的 时 间 。http: /Avww.apa. udel. edu/apa/publications/newsletters/v99n2 /comput- 
ers/chair. asp 

Linear Logic Prover, Naoyuki Tamura 的 基于 web 的 线性 逻辑 证 明 器 ， 包 括 许 多 其 他 逻辑 证 明 器 的 
参考 、 程 序 (包括 PROLOG) ， 以 及 软件 列表 : http: //bach.cs. kobe-u.ac.jp/lprover/ 


逻辑 教育 项 目 和 研究 


Association of Symbolic Logic: Committee on Logic Education。 大 量 逻 辑 软件 和 逻辑 教学 资源 的 链 
接 。http: //www. math. ufl. edu/~jal/asl/ogic _ education. html 

‘Taller de Didáctica de la Ligica。( 西 班 牙 语 ) 墨西哥 的 逻辑 教学 网 页 。http: //www. filosoficas. unam. mx/~ 
Tdl/TDL. htm 

Aracne (西班牙 语 )。 西 班 牙 和 拉丁 美洲 的 逻辑 资源 。http: //aracne. usal.es/ 

David Gries 的 网 站 。http: //www.cs.cornell. edu/gries/ ， 有 很 多 逻辑 特别 是 新 的 计算 逻辑 的 资源 。 
同时 包括 他 的 一 本 书 的 资料 ，A Logical Approach to Discrete Math, Springer-Verlag, 1993 。http: // 
www. cs. cornell . edu/gries/Logic/intro. html 

List to discuss logic education。 由 美国 Bucknell 大 学 维护 ， 要 注册 到 列表 中 ， 可 发 送 消 息 给 listserv 
@bucknell,edu， 要 注册 到 消息 组 中 ， 可 发 消息 给 logic-l@bucknell.edu 

Carnegie Mellon 的 Causal and Statistical reasoning 课程 ， 提 供 因 果 推 理 的 在 线 教学 资源 。 可 从 他 们 
的 Causality Lab 免费 下 载 ， 其 例子 教导 学 生 在 接受 任何 事物 之 前 要 进行 论证 。 在 今天 这 一 点 显得 尤为 
重要 ， 很 多 人 轻信 电视 上 公布 的 一 切 ， 但 仅 一 年 以 后 这 些 内 容 就 被 证 明 是 虚假 的 。 

这 也 导致 了 专家 系统 中 真 值 维护 (Truth Maintenance) 这 个 重要 主题 。CLIPS 带 有 真 值 维护 功能 ， 
如 果 一 个 事实 被 证 明 为 不 正确 ， 所 有 后 继 被 断言 、 修 改 或 删除 的 事实 或 规则 将 被 撤销 ， 系 统 恢 复 到 错 
误 事实 被 断言 前 的 状态 。 这 使 得 CLIPS 的 结论 是 有 效 的 ， 这 一 点 比 很 多 人 都 做 得 好 。http: // 
www. phil. cmu.edu/projects/csr/ 

The Self-Paced Logic Project， 提 供 和 开发 软件 ， 为 大 型 的 自学 式 逻辑 课程 创建 和 管理 一 个 逻辑 问 
题 的 测试 库 。 这 个 问题 测试 库 由 程序 自动 创建 ， 达 到 每 学 期 不 同 的 目的 。 即 使 课程 内 容 没 有 包括 ， 作 
者 也 对 他 认为 逻辑 学 学 生 应 该 掌握 的 内 容 给 出 了 一 个 非常 全 面 的 学 习 指 导 。 主 题 列表 十 分 全 面 ， 可 以 
使 学 生 不 会 重复 问 一 个 问题 “我 到 底 需 要 学 习 什 么 才能 通过 测试 ?”http: //www.sp.uconn.edu/~ 
pyl02vc/selfpace. htm 
第 3 章 

Probability Web。 一 个 全 面 的 关于 概率 的 资源 集合 ， 覆 盖 了 : 要 点 、 书 籍 、 中 心 、 组 和 社团 、 会 
议 、 工 作 、 期 刊 ， 数 学 概要 、 杂 集 、 新 闻 组 和 自动 邮件 系统 、 人 和 群 、 概 率 主题 区 、 出 版 商 和 书店 、 赞 
助 商 、 软 件 、 教 学 资源 、 最 新 消息 等 内 容 : http: //www .mathcs. carleton.edu/probweb/probweb. html 

Chance; 辅助 讲授 Chance 一 个 计量 文学 课程 的 资料 。Chance 课程 的 目的 是 使 学 生 能 更 好 地 阅读 使 
用 了 概率 和 统计 的 新 闻 事件 。 一 本 很 好 的 免费 GNU 概率 和 统计 书籍 可 以 从 Grinstead 和 Snell 列 在 下 面 
的 站 点 得 到 。 计 算 机 程序 以 及 单数 号 习题 的 答案 也 可 从 Chance 站 点 获取 。 网 站 中 其 他 的 主题 包括 
Chance 新 闻 、Chance 课程 、 视 频 和 语音 、 教 学 辅助 、 最 新 消息 等 。 相 关 链 接 : hep: / 


www. dartmouth . edu/~ chance/ 
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概率 计算 机 项 目 : http: /Avww. wku. edu/~ neal/probability/prob. html 

许多 概率 链接 ， 包 括 要 点 、 自 动 邮件 系统 、 新 闻 组 、 人 群 、 工 作 ， 期 刊 、 软 件 、 书 籍 、 会 议 、 出 
版 社 和 杂项 : http: //www. maths. ug.oz.au/~ pkp/probweb/probweb. html 

概率 和 统计 软件 : http: //forum.swarthmore. edu/probstat/probstat . software. html 

公共 软件 和 在 线 概率 与 统计 出 版 商 ， 因 特 网 项 目 : 

http: //forum. swarthmore. edu/probstat/probstat .projects. html 

许多 不 确定 性 下 决策 的 软件 工具 ， 由 Pittsburgh 大 学 的 决策 系统 实验 室 评审 ，http: // 


www. sis. pitt.edu/~ dsl/software. htm 


第 4 章 统计 、 概 率 和 数据 挖掘 


大 量 软 件 资 源 ， 关 于 概率 、 统 计 和 贝 叶 斯 。 某 些 来 自 DOS 环境 , 但 仍 能 运行 。http: // 
archives. math. utk. edu/software/msdos/probability/. html 

大 量 数据 集 ， 可 以 测试 数据 挖掘 软件 。http: //ib. stat. mu. edu/datasets 

许多 与 统计 书籍 相关 的 数据 集 。 有 一 些 设计 用 来 与 Excel 一 起 使 用 ， 包 括 马尔 柯 夫 模型 。http: // 
www.duxbury.com/cgi-brookscole/course _ products _ be. pl? fid= M67 &discipline _ number = 17 

各 种 各 样 的 概率 计算 器 ，http: //softsia.com/re. php? kw= Probability + Distribution + Calculator 

很 多 有 趣 的 视频 ， 你 可 以 下 载 关 于 概率 、 统 计 和 现实 生活 问题 应 用 的 内 容 。http: // 
www. dartmouth. edu/ ~ chance/ChanceLecture/download . html 

巨大 的 数学 资源 ， 软 件 、 文 档 、 向 导 、 包 括 幻 灯 片 的 教学 辅助 资料 、 书 籍 和 相关 软件 列表 。 
http: //bayes. stat. washington. edu/almond/belief . html 

各 种 数学 软件 的 链接 列表 , http: //www. math. fsu.edu/Virtual index.php? f= 21 

统计 方面 国际 资源 列表 , http: //gsociology .icaap.org/methods/statontheweb. html 

非常 全 面 的 各 种 统计 资源 链接 列表 ,http: //gsociology. icaap.org/methods/statontheweb. html 

免费 统计 软件 的 集合 ,http: //members. aol. com/johnp71/javasta2. html 

马尔 柯 夫 链 ，http: /Avww.saliu.com/Markov _ chains. html 
贝 叶 斯 资源 

(Korb 04) .Kevin B.Korb and Ann E. Nicholson, Bayesian Artificial Intelligence, CRC Press, 2004, 
这 本 书包 括 了 不 同 贝 叶 斯 工具 的 非常 深入 的 比较 ， 这 些 工 具 在 一 个 在 线 附 录 中 : http: // 
www. csse. monash . edu. au/bai/book/appendix _b.pdf 

贝 叶 斯 网 络 主要 信息 资源 链接 可 以 从 Kevin Patrick Murphy 的 主页 获得 。 特 别 的 ， 他 关于 向 导 和 软 
件 的 链接 包括 指向 许多 其 他 资源 、 贝 叶 斯 产品 比较 、 软 件 的 链接 。http: //www.ai.mit.edu/~ mur- 
phyk/ 

Microsoft 的 免费 贝 叶 斯 分 析 工 具 (MSBNx) ， 贝 叶 斯 网 络 编辑 器 和 工具 箱 ， 可 以 创建 、 评 估 、 求 
值 中 叶 斯 网 络 。MSBNx 用 于 办 公 辅 助 ， 他 们 的 技术 支持 包括 故障 排除 、 垃 圾 过 滤 : http: // 
research. microsoft. com/adapt/MSBNx/ 

Bayes Net Toolbox v5 for MATLAB, Cambridge, MA: MIT 计算 机 科学 和 人 工 智能 实验 室 : http: // 
www.ai.mit.edu/~ murphyk/Software/BNT/bnt. html 

Bayesian Knowledge Discoverer。 可 以 学 习 贝 叶 斯 信念 网 的 软件 。 这 个 商业 软件 有 免费 的 学 习 版 本 : 
http: //kmi.open.ac. uk/projects/bkd/ 

贝 叶 斯 网 络 和 人 工 智能 的 Java 工具 : http: //bndev. sourceforge. net/ 

数据 控 据 和 其 他 问题 的 复杂 贝 叶 斯 工具 ， 包 括 免 费 的 试用 版 本 : http: //www. bayesia.com/ 

信念 网 络 操作 软 件 ， 关于 图 形 化 信念 函数 模型 ， 以 及 相关 的 模式 例如 贝 叶 斯 网 络 、 影 响 图 和 概率 
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图 形 模型 的 许多 资源 ，http: //archives. math. utk.edu/ 
贝 叶 斯 和 依赖 网 软件 : 大 量 的 贝 叶 斯 软件 和 资源 ; http: //www. kdnuggets. com/software/ 
bayesian .html 
大 量 的 贝 叶 斯 和 马尔 柯 夫 软件 及 资源 : http: /Avww.cs. toronto. edu/~ radford/fbm. software. html 
贝 叶 斯 网 络 和 影响 图 。 概 率 、 贝 叶 斯 理论 和 很 多 软件 的 优秀 网 站 : http: //www. ia. uned. es/~ 
fjdiez/bayes/ 
构造 贝 叶 斯 信念 和 影响 网 络 的 商业 工具 : http: /norsys.com。 优 秀 的 贝 叶 斯 网 络 在 线 向 导 ， 带 有 
自动 诊断 、 预 测 、 金 融 风 险 管理 、 业 务 分 配 、 保 险 、 生 态 系 统 建 模 、 传 感 器 合成 等 方面 的 例子 : 
http: //norsys.com/tutorials/netica/nt _ toc _ A.htm 
(Das 99) . Balaram Das, “Representing Uncertainties Using Bayesian Networks.” 非 常 详细 的 贝 叶 斯 
网 络 用 于 现实 战争 场景 中 不 确定 性 情况 下 的 建 模 和 推理 等 紧急 任务 应 用 的 报告 。 比 书 中 的 Prospector 
例子 复杂 的 多 : http: //www.dsto. edfence. gov.au/corporate/reports/DSTO-TR-0918. pdf 
第 5 章 
Glenn Shafer 的 Dempster-Shafer 理论 主页 。 许 多 资源 ， 例 如 关于 他 的 工作 的 文章 : http: // 
www.glennshafer.com/。 特 别 的 ， 有 一 个 该 理论 的 简短 而 明确 的 解释 : http: /Avww.glennshafer.com/ 
assets/downloads/article48 . pdf 
信任 函数 和 模式 识别 的 免费 MatLab 软件 。 不 同 模型 例如 Dempter-Shafer、 神 经 网 络 和 模糊 逻辑 的 
软件 : http: //www. hds. utc. fr/~ tdenoeux/software. htm 
Dave Marshall 的 好 的 在 线 教 学 资源 ， 包 括 概率 、 贝 叶 斯 理论 、 信 任 模型 、 确 定性 因子 、Dempster- 
Shafer、 贝 叶 斯 网 络 和 模糊 逻辑 : http: //Awww.cs.cf.ac.uk/Dave/AI2 /node84 . html 
Allan Ramsay 的 好 的 在 线 教 学 资源 。 参 看 链接 了 解 为 什么 谓词 逻辑 不 适 于 处 理 现实 世界 。 涵 盖 模 
糊 、Dempster-Shafer 以 及 其 他 。http: //www.ccl.umist.ac.uk/teaching/material/5005/ 
对 象 分 类 的 Dempster-Shafer 方法 : 不 是 浅显 读物 ， 而 是 Dempster-Shafter 理论 如 何 应 用 于 导弹 防 
御 。http: //www.stormingmedia. us/28/2812/A281293. html 
什么 是 Dempster-Shafer 模型 ? 该 方法 的 在 线 介 绍 : http: //iridia.ulb.ac.be/~ psmets/Whatls 
DS. pdf 
国际 模糊 系统 协会 主页 。 点 击 他 们 的 链接 可 以 找到 模糊 逻辑 的 许多 资源 : http: // 
www. pa. info. mie-u.ac.jp/~ furu/ifsa/ 
Magdeburg 大 学 有 很 多 神经 模糊 软件 和 资源 : http: //fuzzy.cs. uni-magdeburg. de/software. html 
。 神经 模糊 控制 软件 
。 神经 模糊 数据 分 析 软 件 (NEFCLASS 现在 有 JAVA 版 ) 
。 神经 模糊 函数 近似 软件 
。 模糊 聚 类 软件 
。 教学 软件 : 多 层 感知 训练 演示 
。 教学 软件 : 学 习 向 量 量化 演示 
。 教学 软件 : 自 组 织 图 训练 演示 
。 教学 软件 : 作为 关联 记忆 的 Hopfield 网 络 
Christian Borgelt， 来 自 Magdeburg 大 学 ， 收 集 了 广泛 的 免费 GNU 软件 : http: //fuzzy. cs. uni- 
magdeburg. de/ 一 borgelt/software.html。 所 有 的 程序 都 是 免费 的 GNU 软件 ， 用 下 面 的 话 发 布 :“ 所 有 程 
序 都 是 免费 软件 ， 你 可 以 重新 发 布 他 们 或 者 遵循 GNU General Public License 或 GNU Lesser (Library) 
General Public License 作为 免费 软件 的 基础 来 修改 他 们 (根据 程序 来 决定 选用 哪 一 个 license)。” 
以 下 是 来 自 他 的 页 面 的 列表 : 





526 附录 G 








名 R 语 F 描 R 
Apriori C 关联 规则 归纳 /频繁 项 目 集 挖掘 
Eclat C 频繁 项 目 集 控 掘 
MoSS/MoFa Java 分 子 子 结构 控 掘 器 
MPR C/Java 多 元 多 项 式 回 归 
Dtree C 决策 和 回归 树 归纳 
DTView Java 决策 和 回归 树 可 视 化 
Bayes C 朴素 和 完全 贝 叶 斯 分 类 器 归纳 
BCView C MHRI RAE 
NPoss C 朴素 概率 分 类 器 归纳 
INeS C 网 络 结构 归纳 〈 图 形 模型 ) 
MLP C 多 层 感 知 
LVQ C 学 习 向 量 量 化 
Cluster C 模糊 和 概率 聚 类 表 工 具 
Matrix C 矩阵 工具 
CHull C 山体 构造 
MLPDemo C 多 层 感知 演示 
LVQDemo C 学 习 向 量 量 化 演示 
SOMDemo C 自 组 织 图 演示 
HopfDemo C Hopfield 网 络 演示 
Hamster C 程序 设计 竞赛 环境 
Bridgit C 简单 的 两 人 游戏 
数据 生成 器 
。 BAYES PACKAGE 包括 程序 becdb， 可 用 于 产生 一 个 梓 本 的 随机 数据 库 ， 符 合 朴素 或 完全 贝 叶 斯 
分 类 器 所 描述 的 概率 分 布 。 


。 INES PACKAGE 包括 程序 sendb， 可 用 于 产生 一 个 样本 的 随机 数据 库 ， 符 合 贝 叶 斯 网 络 〈 属 性 
具有 有 限 个 域 ) 所 描述 的 概率 分 布 。 

模糊 逻辑 资源 

许多 模糊 逻辑 资源 的 好 的 页 面 链 接 。 来 自 Ortec Engineering， 一 个 制造 模糊 逻辑 硬件 的 公司 : 
http: A/www .ortech-engr . com/fuzzy/reservoir . html # sharks 

Fuzzy Logic Laboratorium 每 年 都 有 模糊 逻辑 和 数学 的 主题 讨论 会 ; 
http: //www. flll. uni-linz. ac. at/navigation/main _ navigation/frame _ research. html 

Fuzzy Sets & Systems; 一 个 由 Elsevier Science Inc 公司 出 版 的 期 刊 : 
http: //www. elsevier.com/wps/find/journaldescription. cws _ home/505545 /description 

模糊 逻辑 的 CLIPS. NRC Hi: 
http: //ai.iit.nrc.ca/TR _ public/fuzzy/fuzzyClips/fuzzyCLIPSIndex. html 

James Mathews, “An Introduction to Fuzzy Logic”。 模 类 逻辑 的 简短 指导 和 如 何 用 C++ 实现 模糊 逻 
辑 的 例子 程序 和 文档 : http: //www. generaion5 .org/content/1999/fuzzyintro. asp 
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微软 有 一 个 知识 管理 的 巨大 分 类 目录 ,在 : http: //www. microsoft .com/windows/catalog 

一 个 非常 复杂 的 工具 ，KnowledgeBase .net 4.0， 试 图 管理 所 有 的 KM, XT IT 界 当前 概念 的 有 趣 
读物 : http: //www. knowledgebase. net/ 

个 人 构造 心理 学 。 一 个 流行 的 处 理 人 们 作为 个 人 科学 家 概念 的 理论 ， 不 断 地 生成 关于 世界 的 假设 
和 理论 。 这 已 经 用 作 通 过 个 人 存储 网 格 进行 知识 获取 的 基础 。 许 多 资源 和 链接 在 : http: //rep- 
grid. com/pcp/ 
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信息 和 知识 管理 社 群 。 具 有 许多 会 议 、 论 文 、 案 例 分 析 和 软件 资源 : http: //Awww. ikms. org. sg/re- 
sources/index. html 

知识 管理 的 大 的 国际 门户 ， 很 容易 搜索 到 大 量 文档 ，http: //www.kmtool. net/ 

Brint Institute: The Knowledge Creating Company。 有 许多 知识 管理 各 种 主题 的 优秀 论文 ， 可 以 通 
过 其 非常 好 的 摘要 去 阅读 那些 最 感 兴趣 的 文章 http: //www. kmbook.com/ 

组 织 信息 管理 课程 : 模型 和 平台 。 很 多 案例 分 析 和 KM 类 型 的 资源 ,来 自 Chun Wei Choo: 
http: //choo. fis. utoronto. ca/FIS/Courses/LIS2 102/182102. slides. html 

Soumeya L. Achour, et. al., “A UMLS-based Knowledge Acquisition Tool for Rule-based Clinical Deci- 
sion Support System Development” : 
http: /Avww.pubmedcentral. gov/articlerender . {cgi? tool = pmcentrez&artid = 130080 


Knowledge acquisition and expert system shell Acquirea 。 虽 然 在 专家 系统 的 应 用 中 介绍 过 这 个 工 
具 ， 但 这 里 再 次 提 到 它 是 因为 它 具 有 知识 获取 能 力 。 如 果 一 个 工具 不 是 作为 人 类 知识 工程 师 的 通用 目 
的 ,那么 它 可 能 善于 某 种 领域 的 知识 构造 ， 例 如 决策 树 ， 它 可 以 通过 询问 问题 和 规则 来 自动 构造 。 这 
个 软件 可 以 从 其 网 站 获得 试用 版 : http: //www. aiinc. ca 

编写 规则 时 要 仔细 倾听 领域 专家 ， 避 免 写 出 廖 论 规则 。 另 一 方面 ， 如 果 是 针对 法 律 专家 系统 ， 则 
完全 可 以 ， 因 为 法 律 辩论 不 需要 一 定 是 有 效 的 ， 这 只 看 哪 一 方 的 律师 更 好 。 廖 论辩 论 的 主要 问题 是 人 
们 愿意 相信 它们 。 最 好 的 廖 论 听 起 来 比 真 理 更 容易 接受 。 以 下 都 使 用 了 善 说 服 的 辩论 而 成 功 地 使 人 们 
相信 你 是 正确 的 而 他 们 是 错误 的 ， 即 使 事实 上 他 们 是 正确 的 而 你 是 错误 的 。 正 如 廖 论 ， 修 辞 是 一 种 能 
说 服 人 的 辩论 技巧 ， 结 婚 之 前 学 会 非常 有 用 。 以 下 是 廖 论 的 部 分 列表 ， 注 意 : 即使 你 不 是 一 个 律师 或 
者 已 婚 者 ， 这 些 都 是 你 说 服 你 的 老师 你 的 成 绩 应 是 A， 或 者 说 服 你 的 老板 你 应 升 职 的 好 的 技巧 。 
http: //www. iep. utm. edu/f/fallacies. htm 





o> Abusive Ad Hominem o Digression o One-Sidedness 
Accent ° Distraction o Outrage, Argument from 
Accident e Division o Oversimplification 
Ad Baculum o Domino o Past Practice 
Ad Consequentiam o Double Standard o Pathetic 
Ad Crumenum o Either/Or ° Perfectionist 
Ad Hoc Rescue o Equivocation Petitio Principii 


Ad Hominem 

Ad Ignorantiam 

Ad Misericordiam 

Ad Novitatem 

Ad Numerum 

Ad Populum 

Ad Verecundiam 
Affirming the Consequent 


Appeal to Consequence 
Argument from Outrage 
Argument from Popularity 
Argumentum Ad 
Avoiding the Issue 
Avoiding the Question 
Bald Man 


Biased Statistics 
Bifurcation 
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e Etymological 

e Every and All 

o Excluded Middle 

o False Analogy 

° False Cause 

o False Dichotomy 

o False Dilemma 

° Far-Fetched Hypothesis 


。 Ignoratio Elenchi 

° Ignoring a Common Cause 
o Incomplete Evidence 

e Inconsistency 

o Intensional 

o Invalid Inference 

o Irrelevant Conclusion 


o Line-Drawing 
o Loaded Language 


Poisoning the Well 
Popularity, Argument from 
Post Hoc 

Prejudicial Language 
Questionable Analogy 
Questionable Cause 
Questionable Premise 
Quibbling 


Amphiboly ° Faulty Comparison Quoting out of Context 
Anecdotal Evidence o Formal Rationalization 
Anthropomorphism ° Four Terms Red Herring 

Appeal to Authority ° Gambler’s Refutation by Caricature 
Appeal to Emotions ° Genetic Regression 

Appeal to Force ° Group Think Reversing Causation 
Appeal to Ignorance o Guilt by Association Scapegoating 

Appeal to the Masses o Hasty Conclusion Scare Tactic 

Appeal to Money o Hasty Generalization Scope 

Appeal to the People e Heap Secundum Quid 

Appeal to Pity ° Hooded Man Self-Fulfilling Prophecy 


Slanting 
Slippery Slope 
Small Sample 
Smear Tactic 
Smokescreen 
Sorites 

Special Pleading 


Bandwagon ° Irrelevant Reason Specificity 
Begging the Question ° Is-Ought Stacking the Deck 
Biased Sample ° Jumping to Conclusions Stereotyping 


Straw Man 
Style Over Substance 


© 0 60 6069 0006000060 000080808000 00800000000 
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° Black-or-White 

o Circular Reasoning 

o Circumstantial Ad Hominem 
o Clouding the Issue 

° Common Belief 

o Common Cause 

° Common Practice 

° Complex Question 

e Composition 

o Consensus Gentium 

> Consequence 

o Converse Accident 

° Cover-up 

° Cum Hoc, Ergo Propter Hoc 
o Definist 

© Denying the Antecedent 
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CLIPS 已 经 被 用 于 全 世界 数 百 个 大 学 ， 用 来 讲授 专家 系统 。 使 用 搜索 引擎 是 寻找 如 何 组 织 典型 课 


° Logical 

o Lying 

° Many Questions 

o Misconditionalization 
o Misleading Vividness 
o Misrepresentation 

o Missing the Point 

o Modal 

° Monte Carlo 

o Name Calling 

° Naturalistic 

o Neglecting a Common Cause 
o No Middle Ground 

e No True Scotsman 

° Non Causa Pro Causa 
o Non Sequitur 


程 内 容 和 教学 资源 的 最 好 方法 。 以 下 是 少量 示例 网 站 : 
http: //www. ghgcorp. com/clips/CLIPS.html, CLIPS 的 主页 。 链 向 很 多 资源 。 
http: //www.cs. unc. edu/Admin/Courses/descriptions/275 . html 

http: //www. cs. wpi.edu/~ dcb/courses/CS538/ 
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Subjectivist 
Superstitious Thinking 
Suppressed Evidence 
Sweeping Generalization 
Syllogistic 

Tokenism 

Traditional Wisdom 

Tu Quoque 

Two Wrongs Make a Right 
Undistributed Middle 
Unfalsifiability 
Unrepresentative Sample 
Untestability 

Weak Analogy 

Willed ignorance 
Wishful Thinking 


